在线发送邮件

最近公司网速出奇的慢,打开一个网页都要很长的时间,更别说打开我的网易邮盘将以前用过的源码down下来,而常用的程序终究是要用的。

隔壁的公司是一家游戏公司,很烦人,就是他们天天打啊打啊游戏,耗着别人的网速,太自私了。

在线发送邮件:

<%
Dim Jmail
Set Jmail = Server.CreateObject("Jmail.Message")
Jmail.charset="gb2312"
jmail.contenttype="text/html"
Jmail.AddRecipient "test115@163.com"
Jmail.From = "test115@163.com"
Jmail.Subject = "您有新的留言,请注意查收!"
Jmail.Body ="用户名:"&request("username")&"<br>"&"联系电话:"&request("tel")&"<br>"&"公司名称:"&request("company")&"<br>"&"留言内容:"&request("content")
Jmail.send("test115:mypassword@smtp.163.com")
Jmail.Close
response.write "发送成功!"
%>
 

 

    A+
发布日期:2007年10月24日  所属分类:未分类

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: