📄 orderbegin_ok.asp
字号:
topic="请确认您在"&webname&"的邮件订阅" ' 信件主题
l_message = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & vbCrLf
l_message = l_message & "<html>"
l_message = l_message & "<head>"
l_message = l_message & "<meta http-equiv=""Content-Type"""
l_message = l_message & "content=""text/html; charset=gb2312"">"
l_message = l_message & "<title>邮件订阅</title>"
l_message = l_message & "<style>"
l_message = l_message & ".L {"
l_message = l_message & "FONT-WEIGHT: bold; FONT-SIZE: 16px; LINE-HEIGHT: normal; FONT-STYLE: normal; FONT-VARIANT: normal"
l_message = l_message & "}"
l_message = l_message & ".lh15 {"
l_message = l_message & "LINE-HEIGHT: 150%"
l_message = l_message & "}"
l_message = l_message & "</style>"
l_message = l_message & "</head>"
l_message = l_message & "<body text=#000000 leftMargin=0 topMargin=0 marginheight=0 marginwidth=0>"
l_message = l_message & "<TABLE cellSpacing=0 cellPadding=0 width=520 border=0>"
l_message = l_message & "<TBODY><TR><td>"
l_message = l_message & "<font color=#ff0000>您的邮件订阅确认信！</font><br><Br>"
l_message = l_message & "感谢您的支持，请点击以下网址，即可使用我们为您提供的邮件订阅服务了：<br><Br>"
l_message = l_message & "<font color=#ff0000><a href='"&WebUrl&"member/myemail/finish.asp?user="&session("user")&"&email="&email&"' target='_blank'>"&WebUrl&"member/myemail/index.asp</a></font>"
l_message = l_message & "</td></TR></TBODY></TABLE>"
l_message = l_message & "</body>"
l_message = l_message & "</html>"
mailbody=l_message
if IsValidEmail(email)=true then sendjmail2 email,topic,mailbody
Function SendJmail2(Email,Topic,MailBody)
Dim JMail
on error resume next
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.LazySend = true
JMail.silent = true
JMail.Charset = "gb2312"
JMail.ContentType = "text/html"
JMail.Sender = ""&webname&"邮件订阅" '发送人
JMail.ReplyTo = ""&SystemEmail&"" '回复到
JMail.SenderName = "邮件订阅"
JMail.Subject = Topic
JMail.SimpleLayout = true
JMail.Body = MailBody
JMail.Priority = 3 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
JMail.AddRecipient Email
JMail.AddHeader "Originating-IP", GBL_IPAddress
If JMail.Execute() = false Then
SendJmail = 0
Else
SendJmail = 1
End If
JMail.Close
Set JMail = Nothing
End Function
%>
<TABLE class=content_border cellSpacing=0 cellPadding=0 width=578
border=0>
<TBODY>
<TR>
<TD align=middle><BR>
<table width="90%" height="3" border="0" cellPadding="2" cellSpacing="0">
<tr>
<td height="25" class="S"><font color="#FF6600"><strong>您已经成功订阅了以下供求速配信息！</strong></font></td>
</tr>
</table>
<table width="90%" height="3" border="0" cellPadding="2" cellSpacing="0">
<tr>
<td height="25" align="center">
<input type="button" name="choosecategory" value="帮朋友做个速配，他会感激你的！" onClick="javascript:window.open('tofriend.asp','newwin','toolbar=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=550,height=350');">
</td>
</tr>
</table>
<br>
<table width="90%" height="3" border="0" cellPadding="3" cellSpacing="0" id="您已订阅的信息如下，如需要调整请进行相关的操作！">
<tr>
<td height="25" class="S"><font color="#FF0000"> </font></td>
<td align="center" class="M">
<div align="right"><a href="ordermodify.asp"><img src="../images/button_key3.gif" width="66" height="20" border="0"></a>
<a href="orderno.asp"><img src="../images/button_key2.gif" width="41" height="20" border="0"></a></div>
</td>
</tr>
</table>
<table width="90%" border="0" cellPadding="4" cellSpacing="1" bgcolor="#d3d3d3">
<tr bgcolor="#D9D9D9">
<td width="38" height="25" align="center" class="S"><strong>序号</strong></td>
<td width="171" height="25" align="center" class="S"><strong>我感兴趣的产品</strong></td>
<td width="154" height="25" align="center" class="S"><strong>我订阅的信息类型</strong></td>
<td width="41" height="25" align="center" class="S"><strong>删除</strong></td>
</tr>
<%
orderbuy=rs("buyorder")
if orderbuy<>"" then
if instr(orderbuy,",")>0 then
Arrob=split(orderbuy,",")
for i=0 to ubound(Arrob)
%>
<tr bgcolor="#FFFFFF">
<td width="38" height="25" align="center" class="S"><%=i+1%></td>
<td width="171" height="25" align="right" class="S"> <p align="center" class="S"><%=Arrob(i)%></td>
<td width="154" height="25" align="center" class="S">求购</td>
<td width="41" height="25" align="center"><A href="deloneorder.asp?type=buy&keyid=<%=i+1%>"><IMG height=16
src="../images/index_new_tb02.gif" width=16
border=0></A></td>
</tr>
<%
next
j=i
else
%>
<tr bgcolor="#FFFFFF">
<td width="38" height="25" align="center" class="S">1</td>
<td width="171" height="25" align="right" class="S"> <p align="center" class="S"><%=orderbuy%></td>
<td width="154" height="25" align="center" class="S">求购</td>
<td width="41" height="25" align="center"><A href="deloneorder.asp?type=buy&keyid=0"><IMG height=16
src="../images/index_new_tb02.gif" width=16
border=0></A></td>
</tr>
<%
end if
end if
%>
<%
ordersale=rs("saleorder")
if ordersale<>"" then
if instr(ordersale,",")>0 then
Arros=split(ordersale,",")
for i=0 to ubound(Arros)
%>
<tr bgcolor="#FFFFFF">
<td width="38" height="25" align="center" class="S">
<%
if orderbuy<>"" then
if instr(orderbuy,",")>0 then
response.write j+i+1
else
response.write j+i+2
end if
end if
%>
</td>
<td width="171" height="25" align="right" class="S"> <p align="center" class="S"><%=Arros(i)%></td>
<td width="154" height="25" align="center" class="S">供应</td>
<td width="41" height="25" align="center"><A href="deloneorder.asp?type=sale&keyid=<%=i+1%>"><IMG height=16
src="../images/index_new_tb02.gif" width=16
border=0></A></td>
</tr>
<%
next
else
%>
<tr bgcolor="#FFFFFF">
<td width="38" height="25" align="center" class="S">
<%
if orderbuy<>"" then
if instr(orderbuy,",")>0 then
response.write j+1
else
response.write"2"
end if
end if
%>
</td>
<td width="171" height="25" align="right" class="S"> <p align="center" class="S"><%=ordersale%></td>
<td width="154" height="25" align="center" class="S">供应</td>
<td width="41" height="25" align="center"><A href="deloneorder.asp?type=sale&keyid=0"><IMG height=16
src="../images/index_new_tb02.gif" width=16
border=0></A></td>
</tr>
<%
end if
end if
%>
</table>
<br>
<table width="90%" border="0" cellPadding="4" cellSpacing="1" bgcolor="#d3d3d3">
<tr bgcolor="#EEEEEE">
<td bgcolor="#FFFFFF" class="S"><strong>您的电子邮箱：<%=rs("email")%></strong></td>
</tr>
</table>
<br>
<BR><BR><BR>
<TABLE class=bdr1 cellSpacing=0 cellPadding=0 width="95%"
border=0><TBODY>
<TR>
<TD>
<TABLE class=bdr2 cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD class=lh15>
<FONT color=#666666>订阅指南：即日起，我们会在第一时间内把您订阅的供求速配信息发送到您的邮箱。如果发现接收不正常或者有其他的建议，请立即和我们联系！</font>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<BR><BR><BR></TD></TR></TBODY></TABLE>
<BR><BR>
</TABLE><IMG
height=10 src="../images/bottom.gif" width=778><BR>
<!--#include file="../end.asp"-->
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -