| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1034 人关注过本帖
标题:[求助]如何实现注册后发送邮件验证????
只看楼主 加入收藏
lzlcn
Rank: 2
来 自:广东网络公司
等 级:论坛游民
帖 子:100
专家分:10
注 册:2007-5-18
结帖率:100%
收藏
 问题点数:0 回复次数:2 
[求助]如何实现注册后发送邮件验证????
这个问题我很早就想知道了,
请高手给小弟讲一讲,最好能给源代码
先谢了
搜索更多相关主题的帖子: 邮件 验证 注册 
2007-05-22 00:20
lazich
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2007-4-5
收藏
得分:0 

装个Jmail v4.3 ASP邮件组件

源代码为:

<%
on Error resume Next

dim conn
set conn=server.createobject("ADODB.connection")
conn.Open "Driver={microsoft access Driver (*.mdb)};Dbq=" & server.mappath("db.mdb")
dim sql
sql="select * from mailParam where id=1"
set rs=conn.execute(sql)
if rs("useMailFlag")=1 then
Dim msg,SendMailResult
Set msg = Server.Createobject("JMail.Message")
msg.Logging = true

msg.From = rs("mailFrom") '发送人地址
msg.FromName = rs("mailFromName") '发送人姓名

msg.AddRecipient Session("user_email") '接收人地址1

msg.Subject = "在线图书销售系统账单确认" '邮件主题
'msg.Body = "asp mail test 主体内容" '邮件内容
msg.HTMLBody = Session("mailHtmlBody")


msg.Charset = "gb2312"
msg.MailServerUserName = rs("mailServerUserName") '邮件服务器登录帐号的姓名
msg.MailServerPassword = rs("mailServerPassword") '邮件服务器登录帐号的密码

'response.Write(rs("smtpMailServer"))
'response.End()

msg.Send(rs("smtpMailServer")) '发送邮件到邮件服务器

set msg = nothing
if err then
SendMailResult="尝试发送邮件到" & Session("user_email") & "时失败,错误信息为:" & err.description & "。&nbsp;&nbsp;(系统管理员用:请检查邮件服务器及本系统中的相应参数是否正确。)"
err.clear
else
SendMailResult="订单已成功发送到" & Session("user_email") & "。"
end if

response.write SendMailResult
end if

'释放资源

rs.close
set rs=nothing
conn.close
set conn=nothing
Session("mailHtmlBody")=""
%>


其它修改一下就可以了!!

2007-05-22 08:02
lzlcn
Rank: 2
来 自:广东网络公司
等 级:论坛游民
帖 子:100
专家分:10
注 册:2007-5-18
收藏
得分:0 

我看过一些网站说用Windows NT 4.0 Server:Option Pack
能给我上上课么?


弃我去者昨日之日不可留,乱我心者今日之日多烦忧。
2007-05-22 11:06
快速回复:[求助]如何实现注册后发送邮件验证????
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022250 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved