前提是你的支持Jmail
<%
rem 返回信息给用户Email
dim email
email=session("emailid") '此处取得用户的邮箱
Set msg = Server.CreateObject("Jmail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.ISOEncodeHeaders = false
msg.MailServerUserName ="1***@163.com" '此处改成你自已的邮箱
msg.MailServerPassword ="***" '此处改成你自已的邮箱密码
msg.from="1****@163.com" '此处改成你自已的
msg.Subject="密码确认信!" ‘主题
msg.Body ="尊敬的会员。。" '此处为邮件内容
msg.AddRecipient email '收信人,与前面的email所对应
msg.Send ("smtp.163.com") '如果你也用163的邮箱,此处不用改
set msg = nothing
%>