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

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

ASP: 分享一段代码show.asp?id=26变成show/?26的形式; 多域名一网站时如果返回最原来的域名; [原创]完美解决ASP 不能更新。数据库或对象为只读。; 5天学会asp; TSYS中生成静态页时溢出: ''CInt''; 对象标记具有无效的 ''MSWC.MyInfo'' ProgID; [原创]随机增加网站点击的一个不错的方法; Microsoft JET Database Engine 错误 ''80004005'' 未指定的错误的完美解决方法; 反SPAM新思路—换Z-BLOG的验证码！; 七步倒┈→专用asp后门; asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码; 使用ASP实现网站的“目录树”管理的代码; ShowPage 显示“上一页下一页”等信息的封装代码; [原创]站长感慨asp编程究竟何去何从; 响应对象错误 ''ASP 0185 : 80020003'' 缺少默认属性; [原创]asp下用实现模板加载的的几种方法总结; [原创]asp获取URL参数的几种方法分析总结; Access数据库中“所有记录中均未找到搜索关键字”的解决方法; ASP程序中输出Excel文件实例一则; ASP应用中如何限制同一表单被多次提交

No. « ‹ 86 87 88 89 › »

技术文章搜索

关键字

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

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

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