<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../head.asp"-->
   <!--#include file="../checkrole.asp"-->
 <%
      call checkuser("ds")
	  
user=Replace_Text(request("user"))
email=Replace_Text(request("email"))
sql="select id from Yixiang_corporation where flag=1 and  [user]='"&user&"'"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write"<p align=center>用户名错误，未能激活！</p>"
else
id=rs("id")
sql="select * from Yixiang_emailorder where gsid="&id&" and email='"&email&"'" 
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,3 
if rs.eof or rs.bof then
response.write"<p align=center>Email错误，未能激活！</p>"
else
rs("orderflag")=1
rs.update

%>	  
<TABLE width="750" border=0 align="center" cellPadding=8 cellSpacing=0>
  <TR> 
      <TD width="80%" align="center" bgColor=#f5f5f5> <br>
        <table width="87%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CBB55A">
          <tr> 
            <td> <table width="100%" border="0" cellpadding="10" cellspacing="0" bgcolor="#FFFFFF">
                <tr> 
                  <td align="center"> 
                      <p>恭喜，您的邮件订阅功能已经激活！</p>
                      
                  <p>您也可以在商务助手里<a href="<%=HOPE_InstallDir%>member/index.asp">进入我的商务助手去查看订阅的信息</a>！</p>
                    
                  <p><a href="<%=HOPE_InstallDir%>member/index.asp"  >欢迎您使用其他贸易服务！</a> </p>
                  <p>
                    <input type="submit" name="Submit" value="关闭窗口" onClick="window.close()">
                    <input type="submit" name="Submit2" value="登录网站"  onClick="javascript:window.location.href='<%=HOPE_InstallDir%>index.asp'">
                  </p></td>
                </tr>
              </table></td>
          </tr>
        </table>
        <br>
      </TD>
    </TR>
  </TABLE>
<br><br><br><br>
<!--#include file="../boot.asp"-->
<%
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>