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

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

技术文章搜索

关键字

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

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

收藏到网摘: 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 中的用排序串字段实现树状结构（例程：保存贴子内容）