email.asp

是一个完整的留言板源代码

<%
on error resume next  
dim CLStr,msg9,mailserver,emailname,password,em1
CLStr=Chr(13) & Chr(10)

'填写发信smtp主机参数
mailserver="smtp.systen.com"

'发信的信箱
emailname="[e-mail]"

'发信信箱的密码
password="11111111"

'接收的信箱
em1="[e-mail]"

'填写发信参数结束
Set msg9 = Server.CreateObject("JMail.Message")
msg9.silent = true
msg9.Logging = true
msg9.Charset = "gb2312"
msg9.MailServerUserName = emailname
msg9.MailServerPassword = password   
msg9.From = emailname
msg9.FromName = Request.Form("mail")
msg9.AddRecipient (em1)
msg9.Subject = "网站的留言"
msg9.Body = msg9.Body&"网站有留言啦！"&CLStr
msg9.Body = msg9.Body&"=================================="&CLStr&CLStr
msg9.Body = msg9.Body&"留言人 < "&Request.Form("name")&" >"&CLStr
msg9.Body = msg9.Body&"内容如下:"&CLStr
msg9.Body = msg9.Body&Request.Form("content")
msg9.Priority = 1
msg9.Send (mailserver)
msg9.close
set msg9 = nothing
%>