| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 577 人关注过本帖
标题:红色部分不懂
只看楼主 加入收藏
1000mb
Rank: 1
等 级:新手上路
帖 子:214
专家分:0
注 册:2005-11-7
收藏
 问题点数:0 回复次数:4 
红色部分不懂

<%
'以下为发信参数设置
'■■■■■■■■■■■■■■■■■■■■■■■■■■■
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>&nbsp;&nbsp;&nbsp;&nbsp;恭喜您,注册成为普通会员!(登录名:"&user&" )(密码:"&pass&")</td></tr><tr><td>&nbsp;</td>"
html=html&"</tr></table> <p>&nbsp;</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>&nbsp;</p> <table width=90% border=0 cellpadding=0 cellspacing=0 class=font><tr><td>&nbsp;&nbsp;&nbsp;&nbsp;完成确认后,您就可以进入: </td>"
html=html&"</tr><tr><td>&nbsp;&nbsp;&nbsp;&nbsp;<a href=/company_info.asp target=_blank>发布公司介绍 </a>:尽显您的公司优势和实力! </td>"
html=html&"</tr> <tr> <td> &nbsp;&nbsp;&nbsp;&nbsp;<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>&nbsp;</td> </tr> <tr> "
html=html&"<td> &nbsp;&nbsp;&nbsp;&nbsp;如果有任何疑问,欢迎 <a href=/default.asp target=_blank>给我们留言 </a>,我们将尽快给您回复! </td>"
html=html&"</tr> <tr><td>&nbsp;</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>&nbsp;</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编辑过]

2005-12-22 11:04
dzt0001
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:蒙面侠
威 望:5
帖 子:1281
专家分:4998
注 册:2005-10-12
收藏
得分:0 
定义两个发送邮件的组件.

----我怎能在别人的苦难面前转过脸去----
2005-12-22 11:30
1000mb
Rank: 1
等 级:新手上路
帖 子:214
专家分:0
注 册:2005-11-7
收藏
得分:0 

能详细说明吗?这个我也知到,想稿懂它。



如果我要对数据库里面的所有账号一次性都发一封邮件 怎么去做呢?



还有就是为什么对发邮件的内容都用上html=html&" 这个开头?

[此贴子已经被作者于2005-12-22 11:45:04编辑过]

2005-12-22 11:41
dzt0001
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:蒙面侠
威 望:5
帖 子:1281
专家分:4998
注 册:2005-10-12
收藏
得分:0 
<%
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误,返回FALSE跟TRUE两值j
jmail.logging = true '启用邮件日志
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为HTML格式
jmail.AddRecipient Email '邮件收件人的地址
jmail.From = "Email From for Sender" '发件人的E-MAIL地址
jmail.FromName = "Email From for SenderName" '发件人的姓名
jmail.MailServerUserName = "UserName of Email" '登录邮件服务器所需的用户名
jmail.MailServerPassword = "Password of Email" '登录邮件服务器所需的密码
jmail.Subject = "Mail Subject" '邮件的标题
jmail.Body = "Mail Body" '邮件的内容
Jmail.AddAttachment() '邮件的附件
jmail.Priority = 1 '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值
jmail.Send("Server Address") '执行邮件发送(通过邮件服务器地址)
jmail.Close() '关闭对象
%>

smtp就不太清楚了.




----我怎能在别人的苦难面前转过脸去----
2005-12-22 11:48
1000mb
Rank: 1
等 级:新手上路
帖 子:214
专家分:0
注 册:2005-11-7
收藏
得分:0 
jmail.Send("Server Address") '执行邮件发送(通过邮件服务器地址)

地址怎么来?



163的 126的 从哪里弄来



能帮我弄几个著名的来吗

[此贴子已经被作者于2005-12-22 12:06:49编辑过]

2005-12-22 12:04
快速回复:红色部分不懂
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021589 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved