注册用户成功后自动发送一封email激活邮件到客户邮箱，客户通过邮箱链接打开页面进行激活，编程之家(qdxw.net)下面跟大家分享：ASP实现注册邮箱激活代码范例
ASP实现注册邮箱激活代码实现简要思路
2、邮件内容附上验证连接并附上用户注册的ID,例如:http://www.qdxw.net/test.asp?usrid=1,然后在test.asp页面做验证,并激活用户即可。当然也可以跟多个参数
ASP实现注册邮箱激活简单实例
1、假设一数据库qdxw.mdb,有一表qdxw_usr,结构如下:usrid usrname ischeck
<!--#include file="conn.asp"--> '这是数据库链接文件
当前注册用户<br/>
<%
sqlstr = "select usrname,ischeck from qdxw_usr order by usrid desc"
Set rs = conn.execute(sqlstr)
If Not rs.bof Or Not rs.eof Then
do while Not rs.eof
response.write rs(0) & "," & rs(1)
rs.movenext
loop
End If
rs.close
Set rs = nothing
%>
<form name="form1" id="form1" action="?Action=reg" method="post">
<br />注册表单
请您输入用户名:<input type="text" name="usrname" /><br />
请您输入邮箱:<input type="text" name="usrmail" /><br />
<input type="submit" name="btn1" value="注册" />
</form>
<%
If request.querystring("Action")="reg" Then
usrname = request.Form("usrname")
usrmail = request.Form("usrmail")
sql = "insert into test_usr(usrname) values('"&usrname&"')"
conn.execute(sql)
sqlstr = "select usrid from test_usr order by usrid desc"
Set rs = conn.execute(sqlstr)
If Not rs.bof Or Not rs.eof Then
usrid = rs(0)
End If
rs.close
Set rs = nothing
Set JMail = Server.CreateObject("JMail.Message")
'建立Jmail对象
JMail.silent=true
'silent:检查所有的邮件在 JMail.execute() 执行后返回真或假根据信件发送的成功与否
JMail.Logging = True
'Loggin:能/不能登录用Jmail
JMail.Charset = "gb2312"
'Charset:设置邮件的字符集
JMail.MailServerUserName = "***"
JMail.MailServerPassword ="***"
'MailServerPassword:发送邮件邮箱密码
JMail.ContentType = "text/html"
'ContentType:邮件头设置,默认为text/plain,如发送html信息,则用text/html
JMail.Priority = 1
'Priority:设置邮件优先级,数值越小,优先级越高
JMail.From = "***"
JMail.FromName = "No.1网络"
'FromName:接收邮件者看到的来信者的姓名
JMail.AddRecipient (usrmail)
'AddRecipient:收邮件邮箱地址
JMail.Subject = "恭喜您成为No.1网络的会员..."
JMail.Body = "恭喜您成为No.1网络的会员...<br/>请单击下列地址激活会员 -- <a href='http://www.qdxw.net/test.asp?usrid="&usrid&"' target='_blank'>http://www.qdxw.net/test.asp?usrid="&usrid&"</a>"
If JMail.Send ("***") Then
'Send:发送邮件服务器的smtp
response.write "Success..."
Else
response.write "fail...."
End If
Set JMail = nothing
response.write "恭喜您,注册用户成功,请到您的邮箱激活此用户..."
End If
%>
<!--#include file="conn.asp"-->
<%
usrid = request.querystring("usrid")
sqlstr = "update qdxw_usr set ischeck=1 where usrid="&usrid&""
conn.execute(sqlstr)
sqlstr = "select usrname from qdxw_usr where usrid="&usrid&""
Set rs = conn.execute(sqlstr)
If Not rs.bof Or Not rs.eof Then
response.write "恭喜您," & rs(0) & "您的会员激活成功。。。<br />欢迎使用"
Else
response.write "对不起,系统找不到此用户,无法激活..."
End If
rs.close
Set rs = nothing
%>
这样就可以实现注册成功邮箱激活用户了,简单吧。另外,真正做的时候,你可以把验证链接搞得神秘些,例如:http://www.qdxw.netn/test.asp?usrid=ea34lfal145125 后面的参数用加密函数进行加密即可。
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
