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

'填寫發(fā)信smtp主機(jī)參數(shù)
mailserver="smtp.systen.com"

'發(fā)信的信箱
emailname="your@systen.com"

'發(fā)信信箱的密碼
password="11111111"

'接收的信箱
em1="your@263.com"

'填寫發(fā)信參數(shù)結(jié)束
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 = "網(wǎng)站的留言"
msg9.Body = msg9.Body&"網(wǎng)站有留言啦！"&CLStr
msg9.Body = msg9.Body&"=================================="&CLStr&CLStr
msg9.Body = msg9.Body&"留言人 < "&Request.Form("name")&" >"&CLStr
msg9.Body = msg9.Body&"內(nèi)容如下:"&CLStr
msg9.Body = msg9.Body&Request.Form("content")
msg9.Priority = 1
msg9.Send (mailserver)
msg9.close
set msg9 = nothing
%>