<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../head.asp"-->
  <!--#include file="../checkrole.asp"-->
 <%
      call checkuser("ds")
	  
	 if issession=0 then
	gsid=Replace_Text(request.Cookies("Yxmemberid"))
	else
	gsid=session("id")
	end if 
  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">&nbsp;</TD>
        </TR></TBODY></TABLE>
<%
set rs=conn.execute("select * from Websen_emailorder where gsid="&gsid&"")
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">&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="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
%>