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 = guestitle&"—"&guestname myMail.body =guestcomm & vbCrLf & vbCrLf & "軟件使用留言薄 http://swuse.yeah.net" myMail.Send Set myMail=Nothing end sub %>
