#12003/3/6 18:43:14
请大家看看这收邮件程序。只能我一个人收,提交用户就能收。到底哪里有错?
dim CLStr,msg,mailserver,username,password,receive
CLStr=Chr(13) & Chr(10)
msg.Priority = 3
'请在此修改相关信息
mailserver="smtp.163.com" '邮局服务器地址(smtp服务器地址?
username="zdygh2000@163.com" 'smtp服务器验证登陆名(邮局中开设的任何一个信箱的地址)
password="gh2002" 'smtp服务器验证密码 (信箱密码)
receive="zdygh2000@163.com;InsertCursor('E_mail')" '接受反馈信息的email地址(可以是您的任何有效信箱)
'修改结束
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = username
msg.MailServerPassword = password
msg.From = username
msg.FromName = username
msg.AddRecipient (receive)
msg.Subject = "贵站在世盟网站登录注册的信息资料"
msg.Body = msg.Body&InsertCursor("username")&"网站注册详情"&CLStr&CLStr
msg.Body = msg.Body&"网站名称:"&InsertCursor("username")&CLStr
msg.Body = msg.Body&"网址:"&InsertCursor("homepage")&CLStr
msg.Body = msg.Body&"信箱地址:"&InsertCursor("E_mail")&CLStr
msg.Body = msg.Body&"登录类别:"&InsertCursor("leibie")&CLStr
msg.Body = msg.Body&"注册号码:"&InsertCursor("checkpwd")&CLStr
msg.Send (mailserver)
msg.close
set msg = nothing
%>
请大家指点一迷津,注册用户为什么收不到同样的邮件???