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

ASP
TSYS 新闻列表JS调用下载
使用asp代码突破图片的防盗连
一种理论上最快的Web数据库分页方法
asp：debug类调试程序
如何增加Referer功能--反向链接插件
pjblog中清空引用的小程序
光碟工具 Alcohol 120% v1.9.6.4719 下载(附序列号注册码)
ASP实现头像图像随机变换
UTF-8 Unicode Ansi 汉字GB2321几种编码转换程序
[转]XMLHTTPRequest的属性和方法简介
ASP常用函数:getpy()
我用ASP写的m行n列的函数,动态输出创建TABLE行列
ASP常用函数:Delay()
ASP常用函数:Trace()
[转]ASP实现关键词获取(各搜索引擎,GB2312及UTF-8)
对象标记具有无效的 ''MSWC.MyInfo'' ProgID
ServerVariables集合检索预定的环境变量
HTTP_HOST 和 SERVER_NAME 的区别详解
[转]ASP常用函数:TimeZone
Eval 函数 | Execute 语句 | ExecuteGlobal 语句

No. « 50 51 52 53 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 219 ::
收藏到网摘: n/a

       程序名称：savelyb.asp
  程序功能：保存贴子内容
  
  <!-- #include file="lybcon.inc" -->
  <%
  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><br><br><font size=4 color=red>资料不完整，留言标题和姓名必须填写
  </font><br><br><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),"<br>")
  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><br><br><font color=56abff size=4>谢谢你的留言！<br><br></font><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">
  <!--
  a { text-decoration: none}
  body {line-height:18px;font-size:10.5pt;font-family:宋体}
  a:hover {color:#FF0000;text-decoration:none}
  -->
  </style>
  </head>
  <body topmargin=16 background='topbg.gif'>
  <% =message %>
  </body>
  </html>
  <% end sub
  
  sub posttome
   guestcomm=replace(guestcomm," "," ")
 &n