红色部分不懂 - ASP技术论坛

1000mb

等　级：新手上路
帖　子：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>    恭喜您，注册成为普通会员！(登录名:"&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>"