savareplyword1.asp

Hmily s Guestbooks v1.0 演示：http://chichi.6to23.com/gb 功能简介: 1、用户在线留言功能。 2、管理员后台回复、删除功能。 3、QQ邮件及普通邮件回

<!--#include file="conn.asp" -->
<% 
id=request.form("id")    
myemail=Request.form("replyemail")
qqmail=Request.form("tadeqq")&"@qq.com"                                
huifu=replace(Request.form("ireplyword"),CHR(10),"<br>")
ren=Request.form("replyusername")                         
riqi=Request.form("replycreat")                       
neirong=replace(Request.form("liuyanneirong"),CHR(10),"<br>")
youjian=Request.form("tongzhi")
huifuriqi=Now
mailbody=mailbody &"<font color=#0099f1 size=2>亲爱的"&ren&"，您好！</font><br>"
mailbody=mailbody &"<font color=#0099f1 size=2>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;您于"&riqi&"在我站的留言已经回复,非常感谢您对"&website&"的支持！</font><br>"
mailbody=mailbody &"<font color=#0099f1 size=2>==============================================================================</font><br>"
mailbody=mailbody &"<font color=#0099f1 size=2>您在我站的留言是：</font><br>"
mailbody=mailbody &"<font color=#0099f1 size=2>"&neirong&"</font><br>"
mailbody=mailbody &"<font color=#0099f1 size=2>==============================================================================</font><br>"
mailbody=mailbody &"<font color=#0099f1 size=2>我们的回复内容是："&huifu&"</font><br>"
mailbody=mailbody &"<font color=#0099f1 size=2>我们的回复时间为："&huifuriqi&"</font><br>"
mailbody=mailbody &"<font color=#0099f1 size=2>==============================================================================</font><br>"
mailbody=mailbody &"<font color=#0099f1 size=2>具体查看请点击：<a href="&weburl&" target=_blank><img src="&Logo&" border=0></a></font><br>"
%>
<% if youjian="yes" then %>
<%
set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true
jmail.Charset = "gb2312"
JMail.ContentType = "text/html"
jmail.From = smtpemail
jmail.FromName = sendname
jmail.ReplyTo = email
jmail.Subject = topic
jmail.AddRecipient myemail
jmail.AddRecipient qqmail
jmail.Body = mailbody 
jmail.MailServerUserName = smtpuser
jmail.MailServerPassWord = smtppwd
isgo = jmail.Send(smtpserver)
jmail.Close
set jmail = nothing
%>
<% 
set conn=server.createobject("adodb.connection") 
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath(""&datapath&"") 
exec="select * from gbook where id="&id
set rs=server.createobject("adodb.recordset") 
rs.open exec,conn,1,3 
rs("replyword")=Request.form("ireplyword")          
rs("replyshijian")=now()                         
rs.update 
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
%> 
<% Else %>

<% 
set conn=server.createobject("adodb.connection") 
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath(""&datapath&"") 
exec="select * from gbook where id="&id
set rs=server.createobject("adodb.recordset") 
rs.open exec,conn,1,3 
rs("replyword")=Request.form("ireplyword")          
rs("replyshijian")=now()                         
rs.update 
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
%> 

<% End if %>

<% 
response.redirect "index.asp" 
%>