用排序串字段实现树状结构（例程：保存贴子内容）- ASP

当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用排序串字段实现树状结构（例程：保存贴子内容）

ASP: session的用法具体解说; 模仿PHP写的ASP分页; 用排序串字段实现树状结构（例程：保存贴子内容）; Recordset对象方法详解; 为Html 的Select 加一个提示语和输入方法; PerlScript编写ASP; 嘿，大家瞧瞧这老外在页面之间传递元素的办法; 防止使用者按上一頁按鈕; 利用owc建立EXECL的例子; ASPHttp使用范例-远程读取别人的页面，并自动写入库; 实现文件下载而不是由ie打开的代码; ASP在Scripting.Dictionary对象的作用是什么?; 一种效率极高的分类算法(转--非常好，帮助很大对于想做好asp的朋友); 论坛关键技术,树状记录表的堆栈展开; 例子：文本搜索; 用ASP实现播放Flash的例子; 利用global.asa计划执行程序（转）; 关于如何保障Winnt +asp +sql web站点的安全经验; 用Asp修改注册表; 优化MICROSOFT ACCESS提高速度

No. « ‹ 134 135 136 137 › »

技术文章搜索

关键字

ASP 中的用排序串字段实现树状结构（例程：保存贴子内容）

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 19 ::

收藏到网摘: n/a

模仿PHP写的ASP分页 Recordset对象方法详解

程序名称：savelyb.asp
 程序功能：保存贴子内容

 
 <%
 posttype=request("posttype")
 pageno=request("pageno")
 keyid=request("keyid")
 if keyid="" then keyid=0
 emailpost=request("emailpost")
 guestitle=trim(request.form("guestitle"))
 guestname=trim(request.form("guestname"))
 guestcomm=rtrim(request.form("guestcomm"))
 guestemail=request.form("guestemail")
 emailflag=request.form("emailflag")
 if guestitle="" or guestname="" then
 call errmessage("<center> 资料不完整，留言标题和姓名必须填写
 <a href='javascript:history.back();'>返回重填</a> <a href='index.asp?pageno="&pageno&"'>
 放弃发表</a></center>")
 response.end
 end if
 guestcomm=replace(guestcomm," "," ")
 guestcomm=replace(guestcomm,chr(13)," ")
 if emailflag="on" then
 temailflag=1
 else
 temailflag=0
 end if

 if session("guestitle")=guestitle then response.redirect "index.asp"
 set guestconn=Server.CreateObject("ADODB.connection")
 guestconn.Open lybstr
 set cm = Server.CreateObject("ADODB.Command")
 Set cm.ActiveConnection = guestconn
 cm.CommandText = "lybsave"
 cm.CommandType = 4
 set p = cm.Parameters
 p.Append cm.CreateParameter("@keyid",3,1,4)
 p.Append cm.CreateParameter("@guestname",202,1,20)
 p.Append cm.CreateParameter("@guestitle",202,1,100)
 p.Append cm.CreateParameter("@guestcomm",201,1,16000)
 p.Append cm.CreateParameter("@guestemail",202,1,50)
 p.Append cm.CreateParameter("@emailflag",17,1,1)
 p.Append cm.CreateParameter("@fromip",202,1,15)
 p.Append cm.CreateParameter("@recimail",202,2,50)

 cm("@keyid")=keyid
 cm("@guestname")=guestname
 cm("@guestitle")=guestitle
 cm("@guestcomm")=guestcomm
 cm("@guestemail")=ltrim(guestemail)
 cm("@emailflag")=temailflag
 cm("@fromip")=Request.ServerVariables("REMOTE_ADDR")
 cm.execute


 if trim(guestemail)="" then guestemail="[email protected]" '如果回复的用户没有填写Email地址，则使用版主Email地址
 发信
 if guestemail="[email protected] abc" then guestemail="[email protected]" '处理版主邮件地址
 if cm("@recimail")<>"" then call posttome
 call errmessage("<center> 谢谢你的留言！ <a href='index.asp?
 pageno="&pageno&"'>阅读留言</a></center>")
 session("guestitle")=guestitle
 guestconn.close
 set guestconn=nothing
 response.end

 sub errmessage(message) %>
 <html>
 <head><title>软件使用留言薄回复</title>
 <style TYPE="text/css">
 
 </style>
 </head>
 <body topmargin=16 background='topbg.gif'>
 <% =message %>
 </body>
 </html>
 <% end sub

 sub posttome
 guestcomm=replace(guestcomm," "," ")
&n

模仿PHP写的ASP分页 Recordset对象方法详解

ASP 中的 用排序串字段实现树状结构（例程：保存贴子内容）

评论 (0) All

ASP 中的用排序串字段实现树状结构（例程：保存贴子内容）