?? finish.asp
字號:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../head.asp"-->
<Br><Br><Br>
<%
user=Replace_Text(request("user"))
email=Replace_Text(request("email"))
sql="select id from corporation where [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 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")=true
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="index.asp">查看訂閱的信息</a>!</p>
<p><a href="../../index.asp" target="_blank">歡迎您使用其他貿易服務!</a>
</p></td>
</tr>
</table></td>
</tr>
</table>
<br>
</TD>
</TR>
</TABLE>
<br><br><br><br>
<!--#include file="../../inc/end.asp"-->
<%
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -