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

ASP
ASP页面随机添加字符实现防复制的代码
ASP中应用事务处理技巧
asp下比较全面的获取IP地址的代码
ASP实现缓存类无错版
asp下实现批量插入数据的方法
asp下用ADODB.Stream代替FSO读取文本文件
asp之基于adodb.stream的文件操作类
自己写的文件操作的function和Sub vb.net dll
kesion科讯V4.0管理员Key工具
asp 获取access系统表，查询等操作代码
asp之字符串函数示例
asp之日期和时间函数示例
ASP 关于动态数据显示页面得锚点
Asp无组件上传进度条解决方案
ASP控制每页打印行数
用ASP实现分级权限控制
ASP在服务器自动解压RAR文件
用ASP实现远程将文件批量改名的代码
在Asp程序中取得表单所有内容的代码
使用ASP实现网站的“目录树”管理的代码

No. « 65 66 67 68 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 199 ::
收藏到网摘: 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