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

用Jmail或CDONTS来实现。

没有。自已写吧。

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

相关代码 你可以研究下

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

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

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是不是真实的。

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

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

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

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