<!--#include file="../head.asp"-->
  <!--#include file="../checkrole.asp"-->
 <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
 <%
      call checkuser("ds")
 	if issession=0 then
	username=Replace_Text(request.Cookies("Yxmember"))
	gsid=Replace_Text(request.Cookies("Yxmemberid"))
	else
	username=session("user")
	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

 
%>
<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">&nbsp;</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 Websen_emailorder where gsid="&gsid&"" 
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")=gsid
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="&username&"&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,username,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">&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%>"><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
%>