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

ASP
使用索引服务器 - 创建ASP页面
使用索引服务器 - 增加属性
用TDC建立自己的数据库格式
较长text型数据无法在Asp页面中取出的解决办法
用ASP控制Flash
计算ASP页面的载入时间
页面延迟的两个简单方法
将ASP生成的内容写入响应流中最有效的方法
如何使用asp创建dsn?
清除浏览器历史记录代码
不离开页面刷新数据
得到表中字段属性代码
用js制作完善的日，月组合下拉框.
WEB页面实现淡入淡出菜单
不用组件来实现StrCat函数的功能
不用java的垂直滚动看板
使用Server.scripttimeout来减少ASP意外错误而使务器瘫痪
ODBC Drivers错误80004005的解决办法
用ASP方式实现动态伸缩形式列表主页
如何使ASP程序暂停指定的时间后再继续执行

No. « 178 179 180 181 »

技术文章搜索

关键字

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

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