<%
'以下为发信参数设置
'■■■■■■■■■■■■■■■■■■■■■■■■■■■
my_email="yyyyyy@163.cccoocooc" '自动发信使用的信箱
my_mailto="0" '发信组件0为smtp,1为jmail
'■■■■■■■■■■■■■■■■■■■■■■■■■■■
'以下为自动发信时邮件底部签名信息设置
'■■■■■■■■■■■■■■■■■■■■■■■■■■■
email_bd="客户服务中心<br>==================================================<br><a href=http:// target=_blank>http://</a><br>电话<br>地址: 邮政编码:<br>"
'■■■■■■■■■■■■■■■■■■■■■■■■■■■
'以下为发信程序请按相关说明进行修改(仅有说明的要修改)
'■■■■■■■■■■■■■■■■■■■■■■■■■■■
'jmail发信调用方法jmail email,bt,nr
sub jmail(email,bt,nr)
Set myjmail = Server.CreateObject("jmail.Message")
myjmail.silent = true
myjmail.logging = true
myjmail.Charset = "GB2312"
myjmail.ContentType = "text/html"
myjmail.AddRecipient email
myjmail.From = my_email
myjmail.MailServerUserName = "yyyyyy" '登录邮件服务器所需的用户名
myjmail.MailServerPassword = "yyyyyy" '登录邮件服务器所需的密码
myjmail.Subject = bt
myjmail.Body = nr
isgo=myjmail.Send("61.145.112.101:25") '执行邮件发送(通过邮件服务器地址127.0.0.1)
myjmail.Close
end sub
'------------------------------------------------------
'smtp发信调用方法smtp email,bt,nr
sub smtp(email,bt,nr)
Set objMail = Server.CreateObject("CDONTS.NEWMAIL")
With objMail
.From = my_email
.To = email
.Subject =bt
.Body =nr
.MailFormat=0
.BodyFormat=0
.Send
End With
Set objMail = Nothing
end sub
%>
<%
if request("email")="" then
response.write "<br><div align='center'>请填写您的mail,谢谢!</div>"
response.write "<br><a href=javascript:window.close()><div align='center'>关闭窗口</div></a>"
response.end
end if
'发注册信
if request("email")<>"" then
html="<html><head><title>"&name&"马上享受会员服务</title><meta http-equiv=Content-Type content=text/html; charset=gb2312></head>"
html=html&"<table width=100% height=100% border=0 cellpadding=0 cellspacing=0 bgcolor=#006699> <tr> <td align=center valign=top><br>"
html=html&"<table width=530 border=0 cellspacing=0 cellpadding=0><tr> <td><img src=/img/001.jpg width=530 height=149></td></tr><tr>"
html=html&"<td height=400 align=center valign=top background=/img/002.jpg><table width=90% border=0 cellpadding=0 cellspacing=0 class=font>"
html=html&"<tr><td>尊敬的"&name&":</td></tr><tr><td> 恭喜您,注册成为普通会员!(登录名:"&user&" )(密码:"&pass&")</td></tr><tr><td> </td>"
html=html&"</tr></table> <p> </p> <table width=86% height=100 border=0 cellpadding=0 cellspacing=0 bgcolor=fca21a class=font>"
html=html&"<tr><td align=center> <span class=style1>请确认此邮箱是您本人使用,保证潜在商业伙伴联系到您! </span><br></td>"
html=html&"</tr><tr> <td align=center><a href=/login.asp target=_blank><input type=button onClick=location.href=/login.asp' name=Submit value=' 确 认' > </a>"
html=html&"</td> </tr><tr><td align=center><span class=style1> 如果以上按钮无法点击,请点此 <a href=/vip_info_5.asp target=_blank>完成确认 </a> </span></td>"
html=html&"</tr></table><p> </p> <table width=90% border=0 cellpadding=0 cellspacing=0 class=font><tr><td> 完成确认后,您就可以进入: </td>"
html=html&"</tr><tr><td> <a href=/company_info.asp target=_blank>发布公司介绍 </a>:尽显您的公司优势和实力! </td>"
html=html&"</tr> <tr> <td> <a href=publish_info.asp target=_blank>发布供求信息 </a>:开展商业往来,寻求潜在商机! </td>"
html=html&"</tr></table><table width=90% border=0 cellpadding=0 cellspacing=0 class=font> <tr><td> </td> </tr> <tr> "
html=html&"<td> 如果有任何疑问,欢迎 <a href=/default.asp target=_blank>给我们留言 </a>,我们将尽快给您回复! </td>"
html=html&"</tr> <tr><td> </td></tr></table> <br> <br> <table width=90% border=0 cellpadding=0 cellspacing=0 class=font>"
html=html&" <tr><td align=center> 服务热线:,我们将热诚为您服务! </td></tr> <tr><td> </td> </tr><tr>"
email = request("email")
bt = "感谢您使用会员的服务"
if my_mailto="0" then
smtp email,bt,html
elseif my_mailto="1" then
jmail email,bt,html
end if
end if
'发信结束
Response.Write "<script language=javascript>alert('邮件己发送,请查收!^o^')</script>"
%>
红色部分是什么意思?
上面的代码是不是注册之后发邮件给注册账号?如果我要做一个已有的所有账号,给他们发邮件,要如何做呢?
[此贴子已经被作者于2005-12-22 11:12:09编辑过]