以JMAIL为例:

<%
sub sendmsg

dim HTML
'以下是发信内容
HTML="<table width='90%' border='0' align='center' cellpadding='5' cellspacing='0'>"
html=html&"<tr><td>Hello,<b>"&trim(request("fname"))&"</b>! Below is some message for you that send by your friend <b>"&trim(request("yname"))&"</b>. "
html=html&"</td></tr><tr><td>"&trim(request("message"))&"</td>"
html=html&"</tr></table>"

dim jmail

set jmail=server.createobject("JMail.SMTPMail")
JMail.silent = true
JMail.Charset = "GB2312"
JMail.Sender = trim(request("yname"))
JMail.Subject = trim(request("subject"))
JMail.AddRecipient trim(request("femail"))
JMail.ContentType = "text/html"
jmail.body=HTML
jmail.priority=3
JMail.Execute

if jmail.ErrorCode>0 or jmail.ErrorMessage<>"" then
Response.Write("<div align=center><p>There is some error,error code is:"&JMail.ErrorCode)
Response.Write("<br>Error Message is:"&JMail.ErrorMessage&"</p></div>")
else
show_ok
end if

set jmail=nothing

end sub

sub show_ok
response.write "<div align=center><p>信息发送成功！：）</p></div>"
end sub
%>

你可以联系我吗？
我要发哪个页面让你看看
谢谢