会员注册邮件确认的代码问题 - ASP技术论坛

楼主

问题点数：0 回复次数：4

会员注册邮件确认的代码问题

各位，我想实现：会员注册后系统自动发邮件给注册人，让注册人点邮件的连接，确认之后，方可使用帐号。
谁有现成的代码，帮忙发一下，感激不尽

搜索更多相关主题的帖子: 邮件　会员　代码　注册人　帐号　

第 2 楼

得分:0

谢谢各位支持，我写了一个返回验证的页，结果出现“操作必须使用一个可更新的查询”的错误，代码贴出来，请老大们
帮忙改改：
<%
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
%>

第 3 楼

得分:0

以下是引用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是不是真实的。

第 4 楼

得分:0

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

第 5 楼

得分:0

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