📄 ordermodify_ok.asp
字号:
<!--#include file="../head.asp"-->
<!--#include file="../checkrole.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
call checkuser("ds")
Response.Buffer = true
Response.ExpiresAbsolute=now()-1
Response.Expires=0
Response.CacheControl="no-cache"
if Not ChkPost then
response.write "<script language='javascript'>"
response.write"parent.location.href='"&HOPE_InstallDir&"login/login1.asp';</SCRIPT>"
response.end
end if
%>
<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD
style="BACKGROUND-POSITION: right 50%; BACKGROUND-IMAGE: url(i../mages/bg1.gif); BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: #ffffff"
vAlign=top align=middle>
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD width="8%"><IMG height=32 src="../images/myemail.gif"
border=0></TD>
<TD width="92%" background="../images/info_bg.gif"> </TD>
</TR></TBODY></TABLE>
<%
keyword_buy=Replace_Text(request.form("p_z_Z_keyword_buy"))
keyword_sell=Replace_Text(request.form("p_z_Z_keyword_sell"))
email=Replace_Text(request.form("email"))
sql="select * from Yixiang_emailorder where gsid="&session("id")&""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
rs("buyorder")=keyword_buy
rs("saleorder")=keyword_sell
rs("email")=email
rs("gsid")=session("id")
rs("yx_Time")=date()
rs.update
WebUrlks=replace(replace(WebUrl,"/",""),"http:","http://")
if rs("orderflag")=0 then '如果修改的此邮件仍未激活,则发邮件提示
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='"&WebUrlks&HOPE_InstallDir&"member/myemail/finish.asp?user="&session("user")&"&email="&email&"' target='_blank'>"&WebUrlks&HOPE_InstallDir&"membersfsdf/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
SendMailto SMTPServer,SystemEmail,"admin",HOPE_MailUser,HOPE_MailPwd,Session("User"),email,topic,mailbody
end if
end if
%>
<TABLE class=content_border cellSpacing=0 cellPadding=0 width=100%
border=0>
<TBODY>
<TR>
<TD align=middle><BR>
<% if rs("orderflag")=0 then
if rs("email")<>"" then
URLEmail=Split(rs("email"),"@")
linkEmail=URLEmail(1)
AEmail="<a href=http://www."&linkEmail&" target=_blank>打开邮箱</a>"
else
AEmail="<a href=# target=Right>打开邮箱</a>"
end if
%>
<table width="100%" height="3" border="0" cellPadding="2" cellSpacing="0">
<tr>
<td height="25" class="S"><font color="#CC3300"><span style="font-weight: bold">请赶快<%=AEmail%>,激活吧!您就成功订阅供求信息了!</span></font></td>
</tr>
</table>
<%else%>
<table width="100%" height="3" border="0" cellPadding="2" cellSpacing="0">
<tr>
<td height="25" class="S"><font color="#CC3300"><strong>您已经成功订阅了以下供求速配信息！</strong></font></td>
</tr>
</table>
<%
End if%>
<table width="100%" height="3" border="0" cellPadding="2" cellSpacing="0">
<tr>
<td height="25" align="center">
</td>
</tr>
</table>
<br>
<table width="100%" 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="100%" 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="100%" 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 width="95%"
border=0 align="center" cellPadding=0 cellSpacing=0 class=bdr1>
<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>
</TABLE>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -