主题:  为什么只能我一个人收邮件

zdygh2009

职务:普通成员
等级:1
金币:0.0
发贴:66
#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
%>

请大家指点一迷津,注册用户为什么收不到同样的邮件???



{ 在指尖上绽放的花朵 }

职务:普通成员
等级:5
金币:14.0
发贴:3209
#22003/3/7 12:03:18
receive="zdygh2000@163.com;InsertCursor('E_mail')"

改为

receive="InsertCursor('E_mail')"

试试?