MyException - 我的异常网
当前位置:我的异常网» ASP » asp的有关问题,用

asp的有关问题,用

www.MyException.Cn  网友分享于:2015-08-26  浏览:4次
asp的问题,急用
我设计的网上书店,我想让用户注册完之后,我的系统直接回复一个信息到到他的邮箱,代码怎么写?

------解决方案--------------------
去搜索一下jmail相关的资料看看
------解决方案--------------------
jmail实现:请确认你的服务器支持jmail组件

<% '======================================================================================
Dim ForUser, FromUser, ForUserEmail, FromUserEmail, SmtpServer
Dim emailTit, emailTxt, FromUserID, FromUserIDPW
emailTit = Request.Form( "emailTit ") '从表单获取email的标题
emailTxt = Request.Form( "emailTxt ") '从表单获取邮件的内容
'==========================以下绿色代码是判断服务器是否支持JMAIL组件
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
if not IsObjInstalled( "JMail.Message ") then
Response.write "你所使用的服务器不支持邮件发送! "
Response.End
end if
'==========================================================
if Trim(Request.Form( "action ")) = "确定发送 " then
SmtpServer = Request.Form( "SmtpServer ")
FromUserEmail = Request.Form( "FromUserEmail ")
FromUser = Request.Form( "FromUser ")
ForUserEmail = Request.Form( "ForUserEmail ")
FromUserID = Request.Form( "FromUserID ")
FromUserIDPW = Request.Form( "FromUserIDPW ")
Dim JMail
Set JMail=Server.CreateObject( "JMail.Message ")
JMail.Logging=True
JMail.Charset= "gb2312 "
JMail.ContentType = "text/HTML "
JMail.AddHeader "Originating-IP ", Request.ServerVariables( "REMOTE_ADDR ")
if Request.Form( "smtpPW ") = "1 " then '判断服务器是否需要身份验证
' 身份验证
JMail.MailServerUserName = FromUserID
' 身份验证的用户名
JMail.MailServerPassword = FromUserIDPW
' 身份验证的密码
end if
JMail.From = FromUserEmail '发件人的信箱
JMail.FromName = FromUser '发件人的名字
JMail.Subject = emailTit '邮件的主题
JMail.Body = emailTxt '邮件的内容
'==============================收件人的地址!
JMail.AddRecipient(ForUserEmail) '收件人的地址
JMail.Priority=5 '邮件级别1-5数字越大级别越高---3为普通邮件
JMail.Send(SmtpServer) '红色变量是邮件服务器地址
JMail.Close
Set JMail=nothing
if err then
err.clear
Response.Write " <center> <b> 发信功能已经打开,但因服务器不支持发信或者信箱地址错误,导致信件无法发出! </b> </center> "
Response.End
else
Response.Write " <center> <b> 信件已经发出! </b> </center> "
Response.End
end if
end if %>
<style type= "text/CSS ">
<!--
td {
font-size: 12px;
}
-->
</style>
<body leftmargin= "0 " topmargin= "2 " bgcolor= "#0066CC ">
<form action= " " method= "post " name= "input " target= "_self ">
<table width= "436 " border= "0 " align= "center " bgcolor= "#0066CC " cellpadding= "3 " cellspacing= "1 ">
<tr bgcolor= "#CADBF7 ">
<td width= "154 " align= "right " height= "28 "> 收件人名字: </td>
<td width= "267 " height= "28 " class= "text1 "> <input name= "ForUser " type= "text " value= "我容易么我 " size= "20 ">
</td>
</tr>
<tr bgcolor= "#CADBF7 ">

文章评论

“肮脏的”IT工作排行榜
“肮脏的”IT工作排行榜
为什么程序员都是夜猫子
为什么程序员都是夜猫子
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
亲爱的项目经理,我恨你
亲爱的项目经理,我恨你
程序员必看的十大电影
程序员必看的十大电影
2013年中国软件开发者薪资调查报告
2013年中国软件开发者薪资调查报告
鲜为人知的编程真相
鲜为人知的编程真相
我的丈夫是个程序员
我的丈夫是个程序员
要嫁就嫁程序猿—钱多话少死的早
要嫁就嫁程序猿—钱多话少死的早
老美怎么看待阿里赴美上市
老美怎么看待阿里赴美上市
那些争议最大的编程观点
那些争议最大的编程观点
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
5款最佳正则表达式编辑调试器
5款最佳正则表达式编辑调试器
一个程序员的时间管理
一个程序员的时间管理
程序员都该阅读的书
程序员都该阅读的书
编程语言是女人
编程语言是女人
程序员最害怕的5件事 你中招了吗?
程序员最害怕的5件事 你中招了吗?
Web开发人员为什么越来越懒了?
Web开发人员为什么越来越懒了?
老程序员的下场
老程序员的下场
不懂技术不要对懂技术的人说这很容易实现
不懂技术不要对懂技术的人说这很容易实现
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
程序员和编码员之间的区别
程序员和编码员之间的区别
十大编程算法助程序员走上高手之路
十大编程算法助程序员走上高手之路
每天工作4小时的程序员
每天工作4小时的程序员
代码女神横空出世
代码女神横空出世
程序员应该关注的一些事儿
程序员应该关注的一些事儿
“懒”出效率是程序员的美德
“懒”出效率是程序员的美德
60个开发者不容错过的免费资源库
60个开发者不容错过的免费资源库
团队中“技术大拿”并非越多越好
团队中“技术大拿”并非越多越好
为啥Android手机总会越用越慢?
为啥Android手机总会越用越慢?
做程序猿的老婆应该注意的一些事情
做程序猿的老婆应该注意的一些事情
看13位CEO、创始人和高管如何提高工作效率
看13位CEO、创始人和高管如何提高工作效率
我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
科技史上最臭名昭著的13大罪犯
科技史上最臭名昭著的13大罪犯
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
那些性感的让人尖叫的程序员
那些性感的让人尖叫的程序员
程序员的鄙视链
程序员的鄙视链
什么才是优秀的用户界面设计
什么才是优秀的用户界面设计
旅行,写作,编程
旅行,写作,编程
程序员眼里IE浏览器是什么样的
程序员眼里IE浏览器是什么样的
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
 程序员的样子
程序员的样子
程序员周末都喜欢做什么?
程序员周末都喜欢做什么?
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
10个帮程序员减压放松的网站
10个帮程序员减压放松的网站
聊聊HTTPS和SSL/TLS协议
聊聊HTTPS和SSL/TLS协议
如何成为一名黑客
如何成为一名黑客
我是如何打败拖延症的
我是如何打败拖延症的
如何区分一个程序员是“老手“还是“新手“?
如何区分一个程序员是“老手“还是“新手“?
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有