会员注册邮件确认的代码问题 - 编程论坛

#2

yms1232006-06-17 11:37

用Jmail或CDONTS来实现。

#3

danhaoran2006-06-18 21:07

没有。自已写吧。

#4

seal520_20082006-06-18 22:43

http://www.51windows.net/data/files/file_116.asp

相关代码你可以研究下

[此贴子已经被作者于2006-6-18 22:44:16编辑过]

#5

gogoley2006-08-01 20:23

谢谢各位支持，我写了一个返回验证的页，结果出现“操作必须使用一个可更新的查询”的错误，代码贴出来，请老大们
帮忙改改：
<%
if trim(request("user"))<>"" then
set conn=server.createobject("ADODB.CONNECTION")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("aa.mdb")
conn.open connstr
set rs=server.CreateObject("ADODB.RecordSet")
sql="update users set stat='D' where username='"&trim(request("user"))&"'"
rs.open sql,conn,1,1
'conn.close
'rs.close
%>

#6

yms1232006-08-01 21:29

Public Function JmailSend(Email)
Dim Jmail
Set Jmail=Server.CreateObject("JMail.SMTPMail")
JMail.Charset=Email.Charset'定义邮件的字符集gb3212或gbk
JMail.ContentType=Email.ContentType'定义邮件的连接属性
JMail.ServerAddress=Email.SMTPServer'定义SMTP邮件发送服务器的地址
JMail.Sender=Email.MailSender'发件人地址
JMail.FromName=Email.MailFormName'发件人名称
JMail.Subject=Email.MailTitle'标题
JMail.AddRecipient Email.MailReceive'收件人E-Mail地址
JMail.Body=Email.MailBody'邮件内容
JMail.Priority=Email.Priority'优先级(是否是急件）
JMail.Execute'发送邮件
Set Jmail=Nothing'清空对象
'错误处理部分
IF Err.Number=0 Then
JmailSend="OK!"
Else
JmailSend=Err.Description
End IF
End Function
'CDONTS组件的邮件发送方法
Public Function CDONTSSend(Email)
On Error Resume Next
Dim CMial
Set CMail=Server.CreateObject("CDONTS.NewMail")
CMail.BodyFormat=0
CMail.MailFormat=0
CMail.From=Email.MailSender'发件人地址
CMail.To=Email.MailReceive'收件人地址
CMail.Subject=Email.MailTitle'邮件标题
CMail.Importance=Email.Priority'邮件优先级
CMail.Body=Email.MailBody'邮件内容
CMail.Send'发送邮件
Set CMail=Nothing
IF Err.Number=0 Then
CDONTSSend="OK!"
Else
CDONTSSend=Err.Description
End IF
End Function
参数是一个Email类里面的属性与代码写的相同。

#7

mako2006-08-01 21:34

学习了,好东西

#8

gogoley2006-08-02 13:46

以下是引用yms123在2006-8-1 21:29:32的发言：

Public Function JmailSend(Email)
Dim Jmail
Set Jmail=Server.CreateObject("JMail.SMTPMail")
JMail.Charset=Email.Charset'定义邮件的字符集gb3212或gbk
JMail.ContentType=Email.ContentType'定义邮件的连接属性
JMail.ServerAddress=Email.SMTPServer'定义SMTP邮件发送服务器的地址
JMail.Sender=Email.MailSender'发件人地址
JMail.FromName=Email.MailFormName'发件人名称
JMail.Subject=Email.MailTitle'标题
JMail.AddRecipient Email.MailReceive'收件人E-Mail地址
JMail.Body=Email.MailBody'邮件内容
JMail.Priority=Email.Priority'优先级(是否是急件）
JMail.Execute'发送邮件
Set Jmail=Nothing'清空对象
'错误处理部分
IF Err.Number=0 Then
JmailSend="OK!"
Else
JmailSend=Err.Description
End IF
End Function
'CDONTS组件的邮件发送方法
Public Function CDONTSSend(Email)
On Error Resume Next
Dim CMial
Set CMail=Server.CreateObject("CDONTS.NewMail")
CMail.BodyFormat=0
CMail.MailFormat=0
CMail.From=Email.MailSender'发件人地址
CMail.To=Email.MailReceive'收件人地址
CMail.Subject=Email.MailTitle'邮件标题
CMail.Importance=Email.Priority'邮件优先级
CMail.Body=Email.MailBody'邮件内容
CMail.Send'发送邮件
Set CMail=Nothing
IF Err.Number=0 Then
CDONTSSend="OK!"
Else
CDONTSSend=Err.Description
End IF
End Function
参数是一个Email类里面的属性与代码写的相同。

谢谢了，可是我这边不是jmail发送的问题啊，我是发送完邮件后，在收到邮件后点击验证连接才出现的问题，我是要验证激活注册帐户，检验email是不是真实的。

#9

yzwt20042006-08-02 14:02

晕,那自己写个连接呀,后边加上用户名,
比如说,你的网站:www.123.com
你的验证页是user.asp
那你就在邮件中给个链接地址:
http://www.123.com/user.asp?user=***

而user.asp验证页这回会写吧?
要是还不会,加我QQ:38908449

呵,我没做过,不过这个方法绝对可行.

#10

gogoley2006-08-02 21:29

我上面贴的就是验证页的那段，出现“操作必须使用一个可更新的查询”的错误，楼上的老大帮忙啊，加你了
怎么不理我呢，我的是94730036

#11

gogoley2006-08-04 17:24

问题已经解决,谢谢以上各位支持,如果还有需要这个问题的话,请找我,我发完整代码出来

#12

mako2006-08-05 11:32

以下是引用gogoley在2006-8-4 17:24:44的发言：
问题已经解决,谢谢以上各位支持,如果还有需要这个问题的话,请找我,我发完整代码出来

希望看看你的完整代码，谢谢

#13

pucb2006-08-08 10:15

以下是引用mako在2006-8-5 11:32:13的发言：

希望看看你的完整代码，谢谢

就是呀,我也想看看你的完整代码,什么时候发出来呀.

#14

liuxiaolin2010-08-24 11:24

就是呀,我也想看看你的完整代码,什么时候发出来呀