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

ASP
基于ASP的收发文管理系统的设计与实现
用ASP制作张扬个性的调查系统
使用XMLHTTP制作域名查询系统
Delphi编写组件封装asp代码的基本步骤
采用XMLHTTP编写一个天气预报的程序
菜鸟详听ASP中也能解压缩rar文件
用Asp+XmlHttp实现RssReader功能
纯ASP代码之公历转农历实现(含属相)
纯ASP代码之公历转农历实现(含属相)--例子代码
多个域名后缀同时查询的域名查询系统
实现有管理功能的ASP留言板
Jmail发信的实例,模块化随时调用
纯ASP(VBscript)写的全球IP地址搜索程序
数字和字母组合并生成图片的验证码祥解
金额大小写转换的asp完全无错版本
用ASP学做一个在线调查
利用客户端js实现汉字简体繁体转换
ASP操作XML文件的完整实例
浅谈TeeChart组件在ASP中的应用
在VB中利用Word宏命令开发ASP组件

No. « 193 194 195 196 »

技术文章搜索

关键字

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

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