用排序串字段實(shí)現(xiàn)樹狀結(jié)構(gòu)（例程——保存貼子內(nèi)容）

2019-11-18 22:30:02

字體：大中小

供稿：網(wǎng)友

程序名稱：savelyb.asp
程序功能：保存貼子內(nèi)容


<%
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> 資料不完整，留言標(biāo)題和姓名必須填寫
 <a href='javascr放棄發(fā)表</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="swuse@21cn.com" '如果回復(fù)的用戶沒有填寫Email地址，則使用版主Email地址
發(fā)信
if guestemail="swuse@21cn.com abc" then guestemail="swuse@21cn.com" '處理版主郵件地址
if cm("@recimail")<>"" then call posttome
call errmessage("<center> 謝謝你的留言！ <a href='index.asp?
pageno="&pageno&"'>閱讀留言</a></center>")
session("guestitle")=guestitle
guestconn.close
set guestconn=nothing
response.end

sub errmessage(message) %>
<html>
<head><title>軟件使用留言薄回復(fù)</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
%>

上一篇：用排序串字段實(shí)現(xiàn)樹狀結(jié)構(gòu)（例程——回復(fù)表單）

下一篇：用排序串字段實(shí)現(xiàn)樹狀結(jié)構(gòu)（例程——?jiǎng)h除貼子）