register.asp

电子商务网络购物系统

	        strSQL = strSQL & "WHERE timesuser.userid = " & lngUserProfileID
        rsConn.Open strSQL, adoCon
        If rsConn.EOF Then
                rsConn.Close
                Set rsConn = Nothing
		adoCon.Close
		Set adoCon = Nothing
                Response.Redirect("index.asp")
        End If
        strUsername = rsConn("Username")
        strRealName = rsConn("realname")
        strEmail = rsConn("useremail")
        blnShowEmail = CBool(rsConn("disemail"))
        strHomepage = rsConn("Homepage")
        strLocation = rsConn("Location")
        strSignature = rsConn("Signature")
        strAvatar = rsConn("Avatar")
        strMemberTitle = rsConn("rank")
        strDateFormat = rsConn("dtfmt")
        strTimeOffSet = rsConn("tmset")
        intTimeOffSet = CInt(rsConn("tmhour"))
        blnReplyNotify = CBool(rsConn("replynotify"))
        blnAttachSignature = CBool(rsConn("attachsign"))
        blnWYsiWYGEditor = CBool(rsConn("richedit"))
        strICQNum = rsConn("ICQ")
        strAIMAddress = rsConn("AIM")
        strMSNAddress = rsConn("MSN")
        strYahooAddress = rsConn("Yahoo")
        strjob = rsConn("job")
        strInterests = rsConn("Interests")
        dtmDateOfBirth = rsConn("DOB")
        blnPMNotify = CBool(rsConn("messnotify"))
        If blnAdminMode Then
                intUsersGroupID = CInt(rsConn("grpid"))
                blnUserActive = CBool(rsConn("Active"))
                lngPosts = CLng(rsConn("postnum"))
        End If
        rsConn.Close
        If blnAdminMode AND blnModerator AND intUsersGroupID = 1 Then
                Set rsConn = Nothing
		adoCon.Close
		Set adoCon = Nothing
                Response.Redirect("nopermission.asp?fid=" & intForumID)
        End If
        If isDate(dtmDateOfBirth) Then
	        intDOBYear = Year(dtmDateOfBirth)
		intDOBMonth = Month(dtmDateOfBirth)
		intDOBDay = Day(dtmDateOfBirth)
	End If
End If
If strSignature <> "" Then  strSignature = EditPostConvertion(strSignature)
%>

<script language="JavaScript">
function CheckForm () {
        var errorMsg = "";
        var errorMsgLong = "";
<%
'If this is new reg then make sure the user eneters a username and password
If strMode ="new" Then %>
        //Check for a username
        if (document.frmRegister.name.value.length <= 1){
                errorMsg += "\n\t用户名 \t- 您的用户名最少为2个字符";
        }

        //Check for a password
        if (document.frmRegister.password.value.length <= 3){
                errorMsg += "\n\t密码 \t- 您的密码最少为4个字符";
        }
<%
'If this is an update only check the password length if the user is enetring a new password
Else %>
        if ((document.frmRegister.password.value.length <= 3) && (document.frmRegister.password.value.length > 0)){
                errorMsg += "\n\t密码 \t- 您的密码最少为4个字符";
        }
<%
End If %>
        if ((document.frmRegister.password.value) != (document.frmRegister.password2.value)){
                errorMsg += "\n\t密码错误\t- 两次输入的密码不同";
                document.frmRegister.password.value = ""
                document.frmRegister.password2.value = ""
        }
        if (<%
'If e-mail activation is on check that the e-mail address entered is correct
If blnEmailActivation = True Then
        Response.Write("document.frmRegister.email.value == """" || ")
Else
        Response.Write("document.frmRegister.email.value.length >0 && ")
End If
                %>(document.frmRegister.email.value.indexOf("@",0) == -1||document.frmRegister.email.value.indexOf(".",0) == -1)) {
                errorMsg +="\n\t电子邮件\t\t- 输入您的真实电子邮件地址";
<%
'If e-mail activation is not on display a long error message to the user if they enter an incorrect e-mail addres
If NOT blnEmailActivation = True Then Response.Write("          errorMsgLong += ""\n- 如果您不想输入您的电子邮件,请留空""; ")
%>
        }
        if (document.frmRegister.email.value == "" && document.frmRegister.emailShow[0].checked == true){
                errorMsgLong += "\n- 如果您未输入电子邮件地址,将不能显示";
                document.frmRegister.emailShow[1].checked = true
                document.frmRegister.email.focus();
        }
        if (document.frmRegister.signature.value.length > 200){
                errorMsg += "\n\t签名 \t- 您的签名太长";
                errorMsgLong += "\n- 你的信箱中有 " + document.frmRegister.signature.value.length + " 你的签名必须小于200字节";
        }
        if ((errorMsg != "") || (errorMsgLong != "")){
                msg = "_______________________________________________________________\n\n";
                msg += "表单不完整，请填写完全\n";
                msg += "请修正后再发表\n";
                msg += "_______________________________________________________________\n\n";
                msg += "以下区域需要修改: \n";

                errorMsg += alert(msg + errorMsg + "\n" + errorMsgLong);
                return false;
        }
        document.frmRegister.action = "register.asp?fid=<% = intForumID %>"
        document.frmRegister.target = "_self";

        return true;
}
function DescriptionCharCount() {
        document.frmRegister.countcharacters.value = document.frmRegister.signature.value.length;
}
</script>

<title><% If strMode = "update" Then Response.Write("编辑资料") Else Response.Write("注册新用户") %></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="register.asp" target="_self" class="boldLink"><% If strMode = "update" Then Response.Write("用户更新资料") Else Response.Write("注册新用户") %></td>
  </tr>
<%
If blnUsernameOK = False OR blnEmailOK = False OR blnEmailBlocked = True Then %>
<br />
  <tr>
  <td align="center" class="text"><%
        If blnUsernameOK = False Then 
                Response.Write(Replace("对不起您要的用户名已经有人使用.<br>请选择其他的用户名.", "\n\n", "<br />"))
        End If
        If blnEmailOK = False Then
                Response.Write(Replace("对不起,这个email地址已经被一个论坛会员使用.", "\n\n", "<br />"))
        End If
        If blnEmailBlocked = True Then %>
		你输入的电子信箱被屏蔽
		<%  End If  %></td></tr></table>
		<% End If %>
<form method="post" name="frmRegister" action="register.asp?fid=<% = intForumID %>" onReset="return confirm('你确认要重新填写此表单?');">
  <table width="96%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="<% = strTableBgColour %>">
 <% If blnAdminMode AND (blnAdmin Or blnModerator) Then %>
<tr bgcolor="<% = strTableTitleColour %>"> 
<td colspan="2" height="25" align="center" background="<% = strTableTitleBgImage %>" class="tHeading"> 管理功能</td></tr>
<%	If lngUserProfileID > 2 Then     %>
                <tr bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>"> 
                  <td align="left" width="50%"  height="12" class="text" background="<% = strTableBgImage %>"> 
                    活动用户:</td>
                  <td height="12" width="50%" valign="top" class="text" background="<% = strTableBgImage %>"> 
                    是<input type="radio" name="active" value="True" <% If blnUserActive = True Then Response.Write "checked" %>> 
                    &nbsp;&nbsp; 
                    否<input type="radio" name="active" value="False" <% If blnUserActive = False Then Response.Write "checked" %> /> 
                  </td> </tr>
                <%     If blnAdmin Then
	                strSQL = "SELECT timesgrp.grpid, timesgrp.Name, timesgrp.cusrank, timesgrp.minipost FROM timesgrp;"
	                rsConn.Open strSQL, adoCon
	                If NOT rsConn.Eof Then     %>
                <tr bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>"> 
                  <td align="left" width="50%"  height="12" class="text" background="<% = strTableBgImage %>"> 
                    用户组:</td>
                  <td height="12" width="50%" valign="top" class="smText" background="<% = strTableBgImage %>"> 
                    <select name="group">
                      <%
	                        Do While NOT rsConn.EOF
	                                Dim intSelGroupID
	                                Dim strSelGroupName
	                                Dim blnSelSpecialGroup
	                                Dim lngSelMinimumRankPosts
	                                intSelGroupID = CInt(rsConn("grpid"))
	                                strSelGroupName = rsConn("Name")
	                                blnSelSpecialGroup = CBool(rsConn("cusrank"))
	                                lngSelMinimumRankPosts = CLng(rsConn("minipost"))
	                                Response.Write("<option value=""" & intSelGroupID & """")
	                                If intUsersGroupID = intSelGroupID Then Response.Write(" selected")
	                                If blnSelSpecialGroup Then
	                                        Response.Write(">" & strSelGroupName & " - 没有等级</option>" & vbCrLf)
	                                Else
	                                        Response.Write(">" & strSelGroupName & " - 等级最低发帖 " & lngSelMinimumRankPosts & "</option>" & vbCrLf)
	                                End If
	                                rsConn.MoveNext
	                        Loop    %>  </select></td> </tr>
                <%  	End If
                End If
		End If     %>
                <tr bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>"> 
                  <td width="50%"  class="text" background="<% = strTableBgImage %>">  头　衔:</td>
                  <td width="50%" valign="top" class="smText" background="<% = strTableBgImage %>"><input type="text" name="memTitle" size="30" maxlength="40" value="<% = strMemberTitle %>" /></td>