registerchk.asp

电子商务网络购物系统

<!-- #include file="includes/header.asp" -->
<%

Dim intForumID
Dim strMode
strMode = Request.QueryString("TP")

Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing

%>
<title>注册成功</title>

  <table width="96%" border="0" cellspacing="0" cellpadding="3" align="center">
 <tr>
  <td align="left" width="71%" class="bold"><img src="images/open.gif" border="0" align="absmiddle">&nbsp;<a href="index.asp" target="_self" class="boldLink"><% = strMainForumName %></a><% = strNavSpacer %><a href="registerchk.asp" target="_self" class="boldLink"><% If strMode = "UPD" OR strMode = "DEL" Then Response.Write("更新资料") Else Response.Write("注册新用户") %></a><br /></td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="3" align="center">
  <tr>
  <td align="center">
  <br /><br />
  <span class="text"><%
If strMode = "REACT" Then %>
你的E-mail地址已更新
<% ElseIf strMode = "UPD" Then %>
资料更新成功
<% ElseIf strMode = "DEL" Then %>
用户已删除
<% Else %>
谢谢您的注册 !&nbsp;<%= strMainForumName %>&nbsp;全体人员欢迎你的加入！
<%
End If 
  %>
<br /><br />
      <a href="topic.asp?fid=<% = Request.QueryString("fid") %>" target="_self">进入论坛</a>
      <br />
      <br />
 <span class="lgText"><%
If strMode = "REACT" Then %>
你将收到确认E-mail,点击邮件里面的链接来激活你的账号
<% ElseIf strMode = "ACT" Then %>
你将收到一封确认E-mail
<% End If %></span>
<%
If strMode = "REACT" OR strMode = "ACT" Then
 %>
 <br /><br />
 <% = "如果你在激活会员资格中有问题,请直接联系 " & strWebsiteName & " <a href=""mailto:" & strForumEmailAddress & """>的论坛管理员</a>." & " " & strMainForumName & " " & " <a href=""mailto:" & strForumEmailAddress & """>论坛管理员</a>." %><br /><%
End If
%>
<br />
</span>
   </td>
  </tr>
</table>
<br/><br/>
<!-- #include file="includes/footer.asp" -->