求一个【ASP自动发email】完整的代码!（在线等）

求一个【ASP自动发email】完整的代码!
可以直接上传空间用的!只改一下发送信箱就OK了!比如:我的email是 123456______qq@163 密码是：123456
需要工作的内容是
如：有个123.asp文件我把自动发email的代码放进去
然后打开123.asp页面后自动运行这个页面里的自动发email代码。
代码运行后
1代码.自动获得当前网站域名
2代码.自动获得当前网站真实域名路径
3代码.自动获得当前IP
把以上获得的信息当做email发送到423116954@qq.com信箱内！

帮我写这样的一个脚本好吗？我一直在线的。。
最好是通过我的信箱把文件全部打包发到我的信箱423116954@qq.com谢谢了！！

我在ASP.NET找了好多这样的代码..但是复制到ASP里都发送不到!

大哥快哦急死我了..忽忽

我晕。都搞.NET你来要ASP的？到WEB版块的ASP里面看看吧

HTML code


<%
Dim jmail,msg

msg = "当前的域名是:"&request.servervariables("HTTP_HOST")&"<br>"
msg = msg & "当前的真实物理路径是:"&request.ServerVariables("APPL_PHYSICAL_PATH")&"<Br>"
msg = msg & "当前的客户端IP是:"&Request.ServerVariables("REMOTE_ADDR")&"<br>"
msg = msg & "当前的客户端代理IP是:(如果有的话) "&Request.ServerVariables("HTTP_X_FORWARDED_FOR")

Set jmail = CreateObject("JMAIL.Message")   '建立发送邮件的对象
'jmail.silent = true    '屏蔽例外错误，返回FALSE跟TRUE两值
jmail.Logging = True    '记录日志
jmail.Charset = "GB2312"     '邮件的文字编码
jmail.ContentType = "text/html"    '邮件的格式为HTML格式或纯文本
jmail.AddRecipient "423116954@qq.com" '收件人EMAIL地址
jmail.From = "423116954@qq.com"   '发件人的E-MAIL地址
jmail.FromName = "QQ"   '发件人的名称
jmail.MailServerUserName = "123456______qq@163.com"     '登录邮件服务器的用户名 (您的邮件地址)
jmail.MailServerPassword = "321654"     '登录邮件服务器的密码 (您的邮件密码)
jmail.Subject = "发送信息测试 "    '邮件的标题 
jmail.Body = msg      '邮件的内容
jmail.Priority = 3      '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Send("smtp.163.com")     '执行邮件发送（通过邮件服务器地址）
jmail.Close()   
set jmail = Nothing
%>

如果是WINDOWS2000系统,则要把实例对像写成:

HTML code

Set jmail = Server.CreateObject("JMAIL.Message")   '建立发送邮件的对象

收藏 不显示删除回复显示所有回复显示星级回复显示得分回复 求一个【ASP自动发email】完整的代码!（在线等）[问题点数:100分]

收藏求一个【ASP自动发email】完整的代码!（在线等）[问题点数:100分]