【 tulaoshi.com - ASP 】
程序名称: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="swuse@21cn.com" '如果回复的用户没有填写Email地址,则使用版主Email地址
发信
if guestemail="swuse@21cn.com abc" then guestemail="swuse@21cn.com" '处理版主邮件地址
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," "," ")
guestcomm=replace(guestcomm,"<br","")
Set myMail = Server.CreateObject("CDONTS.NewMail")
myMail.From = guestemail
myMail.To = cm("@recimail")
myMail.Subject = gu