功能说明:就是在后台回复留言簿里的内容的同时给留言人发一封邮件通知他有回复了

找到admin/KS.GuestBook.asp文件

'回复留言 Sub GuestReply() 过程下面添加和修改红色部分

      sadminhead = KS.G("adminhead")
      scheckbox = KS.G("htmlok")
      sansertime = Now()
      SqlStr=" UPDATE KS_GuestBook SET AnserTime='" & sansertime & "',AdminHead='" & sadminhead & "',Anser='" & sanser &"',Verific=1 WHERE ID=" & useridtxt
      Conn.Execute SqlStr
      set Conn = nothing
    
       '开始发送===================================================
       dim MailBody,Memos,emailadd
       emailadd = KS.G("emailadd")
       Memos=KS.g("Memos")
       MailBody="<table border='0' width='90%' align='center'><tr>"
     MailBody=MailBody &"<td valign='middle' align='top'>"
       MailBody=MailBody &"你好,你在<a href=" & DomainStr&" target=_blank>" &KS.Setting(0)&"</a>上的留言中提到<br><hr><br>" & Memos &"<hr><br>以下是站长的回复:<br><hr><br>"& KS.G("txtanser")
     MailBody=MailBody &"</td></tr></table>"
 
     ReturnInfo=KS.SendMail(KS.Setting(12),KS.Setting(13),KS.Setting(14), "你在"&KS.Setting(0)&"上的留言有了回复!",emailadd,KS.Setting(0),MailBody,KS.Setting(13))
      IF ReturnInfo<>"OK" Then
        Response.Write ("<script>alert('信件发送失败!失败原因:\n" & ReturnInfo & "');</script>")
      End if
      Response.Write "<script>location.href='KS.GuestBook.asp?page=" & pagetxt & "';</script>"
'这句是修改原来的哪一句跳转

End If
                Set RSObj=Server.CreateObject("Adodb.Recordset")
    SqlStr="SELECT * FROM KS_GuestBook WHERE ID="&useridtxt
    RSObj.Open SqlStr,Conn,1,1

再找到下面点的添加红色代码

<td colspan="2" align="center" height="14"  bgcolor="#99CD76">:::::::::::::::::::::::::::::::::::: 留 言 内 容 ::::::::::::::::::::::::::::::::::::<input type="hidden" name="Memos" value="<%=RSObj("Memo")%>"><input type="hidden" name="emailadd" value=<%=RSObj("Email")%>></td>

[申请加入精华哦,谢谢]

[此贴子已经被作者于2007-9-10 18:23:24编辑过]

支持一下