⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 ordermodify_ok.asp

📁 全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 系统概述: 软件名称:全球商务网站系统 当前版本:V1.0 最新版本:V1.1 运行环境:WINNT+(IIS)
💻 ASP
📖 第 1 页 / 共 2 页
字号:
            <IMG height=6 
            src="../images/leftmanu_bottom.gif" width=150><BR><BR>
            
            <!--#include file="../guestsubmit.asp"-->
            <BR><BR></TD></TR>
        </TABLE><BR><BR><BR></TD>
    <TD 
    style="BACKGROUND-POSITION: right 50%; BACKGROUND-IMAGE: url(i../mages/bg1.gif); BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: #ffffff" 
    vAlign=top align=middle width=628>
      <TABLE cellSpacing=0 cellPadding=0 width=628 border=0>
        <TBODY>
        <TR>
          <TD width=459><IMG height=30 
            src="../images/leftmanu_top1.gif" width=459></TD>
          <TD vAlign=top width=141 
          background=../images/top_nav_bg2.gif></TD>
          <TD width=28><IMG height=30 src="../images/top_nav_5.gif" 
            width=28></TD></TR></TBODY></TABLE><BR>
      <TABLE cellSpacing=0 cellPadding=0 width=578 border=0>
        <TBODY>
        <TR>
              <TD><IMG height=32 src="../images/myemail.gif" width=578 
            border=0></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 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.update
%>

<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="#CC3300"><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">&nbsp;</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 + -