add_check.asp

qiangda de wangluo liuyanban

<% server.scripttimeout = 90 %>
<% response.buffer = true %>


<!-- #include file = "setup.asp" -->

<%

Set gbook =Server.CreateObject("wzxBook.GuestBook") 
gbook.stopthisword = stopthisword

'允许留言板的留言内容长度，填写范围 1 - 65000
gbook.lybmsglen = LybMsgLen

gbook.dsntemp = dsntemp
gbook.addcheck
Set gbook = Nothing

if isSendmail = 1 then
on Error resume next
'发送电子邮件开始
'使用了w3 JMail邮件发送组件，版本3.6
'你可以根据你的具体情况做相应的修改

ReplyEmail = trim(request.querystring("replyemail"))
ThisEmail = trim(request.form("email"))
vguestname = trim(request.form("guestname")) '留言者名字
vemail = trim(request.form("email"))
vhomepage = trim(request.form("homepage"))
vsubject = trim(request.form("subject"))
voicq = trim(request.form("oicq"))

vguo = trim(request.form("guo"))
vsheng = trim(request.form("sheng"))
vxian = trim(request.form("xian"))
if vguo = "中国" then
	vwhere = vguo & vsheng & vxian
else
	vwhere =vguo & vxian
end if

Reply = trim(request.querystring("reply")) '0新留言  1有人回复这个留言
vname = trim(request.querystring("name"))

titletop = Session(vName & "add_check_titletop")
sendinfo = Session(vName & "add_check_sendinfo")
Banzhumail = Session(vName & "add_check_banzhumail")
message = Session(vName & "add_check_message")
message = replace(message,chr(13),"<br>")
message = replace(message,chr(10),"<br>")
message = replace(message,chr(32),"&nbsp;")

MailBody = ""
MailBody = MailBody & "在 " & now() & " 网友 " & vguestname & " 写下如下留言：<br>"
MailBody = MailBody & "留言主题：" & vsubject & "<br>"
MailBody = MailBody & "来&nbsp;&nbsp;&nbsp;&nbsp;自：" & vwhere & "<br>"
MailBody = MailBody & "电子邮件：<a href=""mailto:" & vemail & """>" & vemail & "</a><br>"
MailBody = MailBody & "主&nbsp;&nbsp;&nbsp; 页：<a href=""" & vhomepage & """ target=""_blank"">" & vhomepage & "</a><br>"
MailBody = MailBody & "QQ 号 码：" & voicq & "<br>"
MailBody = MailBody & "留言内容(前1000字符)："
MailBody = MailBody & "<p>　</p>"
MailBody = MailBody & left(message,1000)
MailBody = MailBody & "<p>　</p>"
MailBody = MailBody & "<p><a href=""" & lyburl & "show.asp?name=" & vname  & """ target=""_blank"">浏览留言详细内容、发表和回复这个留言信息，请点这里</a></p>"
MailBody = MailBody & "<p>----------------------------------------------------------------<br>"
MailBody = MailBody & "留言板服务由 <a href=""http://www.CnTopNet.com"" target=""_blank"">DIY动态网页</a>(<a href=""http://www.CnTopNet.com"" target=""_blank"">http://www.CnTopNet.com</a>) 提供</p>" 


'1、发送给这个留言者
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = smtpserver '发送邮件服务器地址
JMail.AddRecipient thisemail '邮件接收人
if sendinfo = "1" then
	JMail.AddRecipient(banzhumail) '抄送斑竹
end if
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Sender = mailsender
JMail.Subject = "感谢你在留言板《" & titletop & "》留言"
JMail.ContentType = "text/html"
JMail.Body = mailbody
JMail.Execute
JMail.Close
Set JMail = Nothing


if reply = "1" then
	'2、发送给上个留言者
	Set JMail=Server.CreateObject("JMail.SMTPMail")
	JMail.ServerAddress = smtpserver '发送邮件服务器地址
	JMail.AddRecipient = ReplyEmail '邮件接收人
	JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
	JMail.Sender = mailsender
	JMail.Subject = "有人回复你在留言板《" & titletop & "》的留言"
	JMail.ContentType = "text/html"
	JMail.Body = MailBody
	JMail.Execute
	JMail.Close
	Set JMail = Nothing
end if
end if
%>