<%
dim email,title,msg,smtpserver,smtpuser,smtppwd,smtpemail,jmail,isgo
'收件人信息
email="[email protected]"          '//收信人地址
title="你好!"                    '//标题  
msg="我的测试邮件!"              '//信件内容'发送邮件参数设置
smtpserver = "10.0.0.13"   '//邮件服务器(我使用的是新浪的)
smtpuser = "lyhold"           '//你的用户名
smtppwd = "11"           '//你的密码smtpemail = "[email protected]"  '//你的邮箱'发送邮件
Set jmail= server.CreateObject ("jmail.message")
jmail.Silent = true
jmail.Charset = "gb2312"
jMail.ContentType = "text/html"
jmail.From = "[email protected]"  '//这里成你的发信人地址
jmail.FromName = "han"       '//发信人姓名jmail.Subject = title         '//标题
jmail.AddRecipient email      '//地址
jmail.Body = msg              '//内容jmail.MailServerUserName = han
jmail.MailServerPassWord = 6543210123456
isgo = jmail.Send(smtpserver)if isgo then 
   SendMail= "<center><font size=22 color=red>发送成功</font></center>"
else
   SendMail="<center><font size=22 color=red>发送失败</font></center>"
end if
Response.Write  SendMail%>
是可以发送的