activate.asp

电子商务网络购物系统

<!-- #include file="includes/header.asp" -->
<%
Dim strUserCode
Dim lngUserID	
Dim blnActivated
Dim intForumID	

blnActivated = False
strUserCode = Trim(Mid(Request.QueryString("ID"), 1, 44))
strUserCode = formatSQLInput(strUserCode)
If strUserCode <> "" Then
	strSQL = "SELECT timesuser.* From timesuser WHERE timesuser.usercode = '" & strUserCode & "';"
	rsConn.CursorType = 2
	rsConn.LockType = 3
	rsConn.Open strSQL, adoCon
	If NOT rsConn.EOF AND InStr(1, strUserCode, "N0act", vbTextCompare) = False Then
		strUserCode = userCode(rsConn("Username"))
		rsConn.Fields("usercode") = strUserCode
		rsConn.Fields("Active") = 1
		rsConn.Update
		Response.Cookies("Forum")("UID") = strUserCode
		blnActivated = True
	End If
	rsConn.Close
End If %>  
<title>激活账号</title>
<script  language="JavaScript">
function CheckForm () {
	var errorMsg = "";
	if (document.frmRegister.name.value.length <= 3){
		errorMsg += "\n\t用户名 \t- 您的用户名最少为4个字符";
		document.frmRegister.name.focus();
	}
	if (errorMsg != ""){
		msg = "_______________________________________________________________\n\n";
		msg += "表单不完整，请填写完全\n";
		msg += "请修正后再发表\n";
		msg += "_______________________________________________________________\n\n";
		msg += "以下区域需要修改: \n";
		errorMsg += alert(msg + errorMsg + "\n\n");
		return false;
	}
	return true;
}
// -->
</script>
  <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="activate.asp" class="boldlink">激活账号</a><br /></td>
  </tr></table>
<div align="center">
<br /><br /><br />
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr><%
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing  
If blnActivated = True Then %>
<td align="center" class="text">你的账号已被激活</td>
<% Else  %>
<td align="center" class="text">在激活你帐号过程中有问题.<br><br>请联系 <%= strWebsiteName %> <a href="mailto:<%= strForumEmailAddress %>">论坛管理员</a></td>
<% End If %>
  </tr> </table>
</div> 
<br /><br /><br />
<!-- #include file="includes/footer.asp" -->