📄 ordermodify_begin.asp
字号:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../head.asp"-->
<!--#include file="../checkrole.asp"-->
<%
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
%>
<script language="javascript">
function isoka()
{
var i=confirm("你确定要删除吗？");
if(i)
{
return true ;
}
else
{
return false;
}
}
</script>
<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="12%"><IMG height=32 src="../images/myemail.gif"
border=0></TD>
<TD width="88%" background="../images/info_bg.gif"> </TD>
</TR></TBODY></TABLE>
<%
set rs=conn.execute("select * from Yixiang_emailorder where gsid="&session("id")&"")
if rs.eof or rs.bof then
response.redirect("../../login/chklogin?login=4")
else
%>
<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%>
<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%>" onClick="return isoka();">
<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" onClick="return isoka();"><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
else
response.write i+1
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%>" onClick="return isoka();"><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
else
response.write"1"
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" onClick="return isoka();">
<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>
<%
end if
%>
<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>
<BR>
<BR>
</TABLE>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -