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

2022-07-15 80酷酷网 80kuku.com

排序程序名称：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>

<font size=4 color=red>资料不完整，留言标题和姓名必须填写</font>

<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="swuse21cn.com"  '如果回复的用户没有填写Email地址，则使用版主Email地址发信
if guestemail="swuse21cn.com abc" then guestemail="swuse21cn.com"  '处理版主邮件地址
if cm("recimail")<>"" then call posttome
call errmessage("<center>

<font color=56abff size=4>谢谢你的留言！

</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">

</style>
</head>
<body topmargin=16 background='topbg.gif'>
<% =message %>
</body>
</html>
<% end sub

sub posttome
   guestcomm=replace(guestcomm," "," ")
   guestcomm=replace(guestcomm,"
","")
   Set myMail = Server.CreateObject("CDONTS.NewMail")
   myMail.From = guestemail
   myMail.To = cm("recimail")
   myMail.Subject = guestitle&"—"&guestname
   myMail.body =guestcomm & vbCrLf & vbCrLf & "软件使用留言薄 http://swuse.yeah.net"
   myMail.Send
   Set myMail=Nothing
end sub
%>

软件使用主页http://swuse.yeah.net