send1.asp

网上商城的设计与实现

<meta http-equiv="Content-Language" content="zh-cn">
<%
td=request.form("td")
if td<>"" then
session("td")=request.form("fsemail")
response.redirect "td.asp"
response.end
end if
%>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
%>
<%
addr0=request.servervariables("server_name")
addr1=request.servervariables("url")
addr1=replace(addr1,"send1.asp","check.asp")
addr="http://"&addr0&addr1
sql="select qrx,yjlb,fwq,passname,password,fa,faemail from admin"
rs.open sql,conn,3,1
fsemail=request.form("fsemail")
emailbody=rs("qrx")
emailbody=emailbody  &"<p><font size=2>＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝</font></p>"
emailbody=emailbody  &"<p><font size=2>请点击下面的链接以确认你的订阅：</font></p>"
emailbody=emailbody  &"<p><font size=2>"
emailbody=emailbody  &"<a href="&addr&"?email="&fsemail&">"
emailbody=emailbody  &addr&"?email="&fsemail&"</a></font></p>"
emailbody=emailbody  &"<p><font size=2>如果不能点击的，请你把上面这段地址复制后添入浏览器确认就可以了。</font></p>"
emailbody=emailbody  &"<p><font size=2>＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝</font></p>"
set jmail=server.CreateObject ("jmail.message")
jmail.Silent=true
jmail.charset="gb2312"
jmail.addrecipient  fsemail
jmail.subject = rs("yjlb")&"邮件列表确认信"
jmail.appendtext "这是一封html格式的信件"
jmail.appendhtml emailbody
if rs("faemail")<>"" then
jmail.from = rs("faemail")
end if
if rs("fa")<>"" then
jmail.fromname=rs("fa")
end if
jmail.priority = 3
if rs("passname")<>"" then
jmail.MailServerUserName =rs("passname")
end if
if rs("password")<>"" then
jmail.MailServerPassWord =rs("password")
end if
err=jmail.send(rs("fwq"))
rs.close
jmail.close
set jmail=nothing 
if err then
%><%
set rs=conn.execute("select dy from admin")
response.write rs("dy")
set rs=nothing
conn.close
set conn=nothing%>
<%else%><p>　</p>
<p>　</p>
<p>　</p>
由于系统错误，订阅没有成功。请稍后再试，或者联系网站管理员。谢谢。
<%end if%>