ASP问题，救命啊．．如果能实现自动给用户发E-mail

要系统支持JMAIL，下面给出了个下载的地址，装上它就可以用给出的代码来发邮件了。注意要改你的用户名和密码还有STMP服务器。

http://www.ajiang.net/products/download/coms/jmail44_free.zip

<%
Call SendMail("zhangzhenyu-555@163.com","浩方网络影院会员","注册成功确认","浩方网络会员注册成功 用户名：密码：注册时间：","浩方网络影院站长","gs057788@163.com")
Function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom)
'函数参数说明（收件人地址,收件人姓名(可选),主题,邮件内容,发件人姓名(可选),发件人地址）
'on error resume next
Dim JMail,MailServer,Flag
Set JMail=Server.CreateObject("JMail.Message")
If err Then
SendMail = False
err.clear
Exit Function
End if
JMail.Charset="gb2312" '邮件编码
JMail.silent=True
JMail.ContentType = "text/html" '邮件正文格式
MailServer = "smtp.163.com" '用来发送邮件的SMTP服务器