求一个【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里面看看吧 --------------------编程问答-------------------- 原来走错路了
--------------------编程问答-------------------- 晕 --------------------编程问答--------------------
--------------------编程问答-------------------- 如果是WINDOWS2000系统,则要把实例对像写成:
<%
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
%>
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象补充：.NET技术 , ASP.NET
