?? savareplyword1.asp
字號:
<!--#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> 您于"&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"
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -