<!--#include file="conn/hl_Conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%Dim regName 
set rs_set=server.CreateObject("adodb.recordset")
       sql="select * from hl_web"
	   rs_set.open sql,conn,1,1
	     HSiteNameL=rs_set("hl_webname")
		 HweburlL=rs_set("hl_weburl")
%>
<HTML><HEAD><TITLE>用户注册列表</TITLE>
<SCRIPT language=javascript>
function show_sader(mylink)
{
window.open(mylink,'','top=140,left=135,width=480,height=280,scrollbars=no')
}
function dosubmitReg3(myform) {
	if(myform.username.value=="") {
		alert("请输入用户名，谢谢！");
		myform.username.focus();
		return false;
	} else {
    	//用户名处请输入'以外的字符
    	if(!isRight(myform.username.value)){
	    	alert("用户名处请输入'以外的字符！");
            myform.email.focus();
	    	return false;
	    }
	}
	if(myform.userpassword.value==""){
			alert("请输入密码！");
			myform.userpassword.focus();
			return false;
	} else {
    	//密码处请输入'以外的字符
    	if(!isRight(myform.userpassword.value)){
	    	alert("密码处请输入'以外的字符");
            myform.userpassword.focus();
	    	return false;
	    }
		if (myform.userpassword.value.length<6||myform.userpassword.value.length>16) {
			alert("密码必须在6-16位！");
			myform.userpassword.focus();
			return false;
		}
	}
	if(myform.repassword.value==""){
		alert("请输入密码确认。");
		myform.repassword.focus();
		return false;
	} else {
    	//密码处请输入'以外的字符
    	if(!isRight(myform.repassword.value)){
	    	alert("密码确认处请输入'以外的字符");
            myform.repassword.focus();
	    	return false;
	    }
		if (myform.repassword.value.length<6||myform.repassword.value.length>16) {
			alert("密码确认必须在6-16位！");
			myform.repassword.focus();
			return false;
		}
	}
    //密码提示问题处请输入'以外的字符
	if(myform.userquestion.value ==null ||myform.userquestion.value == ""){
	}else{
		if (!isRight(myform.userquestion.value)){
	    	alert("密码提示问题处请输入'以外的字符");
	        myform.userquestion.focus();
	    	return false;
	    }
    }
    //密码提示答案处请输入'以外的字符
	if(myform.useranswer.value ==null ||myform.useranswer.value == ""){
	}else{
		if (!isRight(myform.useranswer.value)){
	    	alert("密码提示答案处请输入'以外的字符");
	        myform.useranswer.focus();
	    	return false;
	    }
    }
   if(myform.useremail.value=="") {
		alert("请输入邮箱，谢谢！");
		myform.useremail.focus();
		return false;
	} else {
     if (!chkemail(myform.useremail.value)) {
    		alert("邮箱不合法，请重新输入！");
            myform.useremail.focus();
            return false;
     }
    }
	if(myform.userpassword.value != myform.repassword.value){
		alert("密码不一样！请重新输入。");
		myform.userpassword.focus();
		return false;
	}
}

//regist4.jsp
function dosubmitReg4(myform) {
	if(myform.mName.value=="") {
		alert("请输入姓名,谢谢!");
		myform.mName.focus();
		return false;
	}
}
function isRight(str){
	if ((str == null)||(str == "")){

	}else{
		var len = str.length;
		for(var i = 0; i < len; i++){
			if (str.charAt(i)=="'")
				return false;
		}
	}
	return true;
}
function chkemail(a)
{	var i=a.length;
	var temp = a.indexOf('@');
	var all = a.substring(temp);
	var tempd = all.indexOf('.')+temp;
	if (temp > 1) {
					return 1;
	}
	return 0;
}

function checkname()
{
window.open()
}
</SCRIPT>

<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="img/css.css" type=text/css rel=stylesheet>
<STYLE type=text/css>
.style1 {
	COLOR: #ff0000
}
.style6 {
	FONT-SIZE: 14px; FONT-FAMILY: "宋体"
}
.style7 {
	FONT-SIZE: 14px
}
.style128 {
	FONT-SIZE: 24px; COLOR: #ff3300; FONT-STYLE: italic; FONT-FAMILY: Geneva, Arial, Helvetica, sans-serif
}
.style13 {
	FONT-SIZE: 20px; COLOR: #0066ff; FONT-FAMILY: "黑体"
}
.style3 {
	FONT-WEIGHT: bold; FONT-SIZE: 18px; COLOR: #ff3300; FONT-FAMILY: "宋体"
}
.login {
	 line-height: 150% COLOR: #000000; FONT-FAMILY: "宋体"
}
.td {font-size: 12px}
.leftmenu11 {	PADDING-LEFT: 6px; FONT-WEIGHT: bold; FONT-SIZE: 14px; BACKGROUND-IMAGE: url(img/leftmanu_bg1.gif); CURSOR: hand; PADDING-TOP: 4px; HEIGHT: 29px
}
.leftmenu21 {	PADDING-LEFT: 10px; FONT-SIZE: 14px; BACKGROUND-IMAGE: url(img/leftmanu_bg2.gif); HEIGHT: 26px
}
.leftmenu4 {	BORDER-RIGHT: #4296ce 0px solid; BORDER-TOP: #4296ce 1px solid; PADDING-LEFT: 7px; FONT-SIZE: 14px; BACKGROUND-IMAGE: url(img/leftmanu_bg3.gif); PADDING-BOTTOM: 1px; BORDER-LEFT: #4296ce 0px solid; PADDING-TOP: 1px; BORDER-BOTTOM: #4296ce 0px solid
}
</STYLE>

<META content="MSHTML 6.00.2900.2873" name=GENERATOR></HEAD>
<BODY leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<form action="User_AddPost.asp" method="post" name="form1" id="form1" onSubmit="return dosubmitReg3(form1)">

       
	    <table width="820" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#FFFFFF">
          
            <tr>
              <td align="right"><table width="820" border="0" align="center" cellpadding="0" cellspacing="0" background="img/r3_c3.jpg">
  <tr>
    <td width="59" height="24">&nbsp;</td>
    <td width="587" valign="bottom"><span class="STYLE92">会员管理</span></td>
    <td width="174" valign="bottom"><div align="center" class="STYLE92"><a href="user_Add.asp">添加用户</a></div></td>
  </tr>
  <tr>
    <td height="7"></td>
    <td colspan="2"></td>
  </tr>
</table></td>
            </tr>
            <tr>
              <td align="right">
<%if request("action")="checkname" then
call checkname()
end if
%>
                  <table  width="98%" border="1"  align="center" cellpadding="2" cellspacing="0" bordercolor="#A0D3FE" bgcolor="#EEF9FD" style="BORDER-COLLAPSE: collapse">
                    <%
set rs=server.CreateObject("adodb.recordset")
sql="select * from [hl_control] where control_flag=1 order by control_order asc"
rs.open sql,conn,1,3
if not rs.eof then
do while not rs.eof
set a1=rs("control_intro")
set a2=rs("control_name")
response.Write "<tr><td height=25 width=50% align=left class=login><p style=""line-height: 150%""><strong>"&a1&"</strong>:"
if trim(a2)="username" then 
response.write "<br>用户名和密码用于登录。<br>用户名不能少于4个字符（两个汉字）<br>用户名不能超过20个字符（10个汉字）"
end if
if trim(a2)="userpassword" then 
response.write "<br>请输入密码，区分大小写。请尽量设得复杂一些，以防被人暴力猜解。"
end if
if trim(a2)="repassword" then 
response.write "<br>请再输一遍确认。"
end if
if trim(a2)="useremail" then 
response.write "<br>请输入有效的邮件地址，以便我们可以及时和你联系。"
end if
if trim(a2)="userquestion" then 
response.write "<br>忘记密码的提示问题，最好设成别人不知道答案的问题，以防被人用找回密码功能窃取您的帐号。"
end if
if trim(a2)="useranswer" then 
response.write "<br>忘记密码的提示问题答案，用于取回密码。请尽量设得复杂一些，以防被人用找回密码功能窃取您的帐号。"
end if

if trim(a2)="userquestion" then 
response.write"</p></td><td width=50% align=left><input type=text name="&a2&"><br>"
response.write "<SELECT width=24  onchange=document.form1.userquestion.value=this.value  name=select>"
response.write "<OPTION value="""" selected>快速选择提示问题</OPTION> <OPTION value=我家的宠物的名字？>我家的宠物的名字？</OPTION> <OPTION  value=我就读的第一所学校的名称？>我就读的第一所学校的名称？</OPTION> <OPTION  value=少年时代心目中的英雄是谁？>少年时代心目中的英雄是谁？</OPTION> <OPTION  value=我最喜欢的休闲运动是什么？>我最喜欢的休闲运动是什么？</OPTION> <OPTION value=我最喜欢哪支运动队？>我最喜欢哪支运动队？</OPTION> <OPTION value=我最喜欢的运动员是谁？>我最喜欢的运动员是谁？</OPTION> <OPTION value=高中的校训是什么？>高中的校训是什么？</OPTION></SELECT></td></tr>"
elseif trim(a2)="userpassword" or trim(a2)="repassword" then
response.Write "</p></td><td width=50% align=left><input type=password name="&a2&"></td></tr>"
elseif trim(a2)="username" then
response.Write "</p></td><td width=50% align=left><input type=text name="&a2&" value='"&Trim(request("regName"))&"'><input type='button' name='checkname' value='检测用户名' onclick=""document.location.href='User_Add.asp?action=checkname&regName='+username.value""><br></td></tr>"
elseif trim(a2)="sex" then
response.Write "</p></td><td width=50% align=left><input type='radio' name="&a2&" value=1>男<input type='radio' name="&a2&" value=2>女<input type='radio' name="&a2&" value=3 checked>保密 "
else
response.Write "</p></td><td width=50% align=left><input type=text name="&a2&"></td></tr>"
end if
rs.movenext
loop
response.Write"<tr><td colspan='2' align=center><input type=submit name=submit value=添加新会员><input type=reset name=reset value=重设></td></tr>"
%>
</table >
                 
<%
else
FoundErr = True
ErrMsg = ErrMsg & "<tr><td><li>对不起，本站暂停新用户注册服务！</li></td></tr></table>"
Call WriteErrMsg
End If
rs.close
set rs=nothing
'conn.close
'set conn=nothing

Sub checkname()
dim relText
regName=replace(request("regName"),"'","")
set rss=server.CreateObject("adodb.recordset")
sqlss="select id from hl_user where username='"&regName&"'"

rss.open sqlss,conn,1,1
if rss.eof then
relText="恭喜你，该用户名可以注册！"
else
relText="很抱歉，该用户名已经被注册!"
end if
rss.close
set rss=nothing
response.Write "<div align='center'><font color='red'>"&relText&"</font></div>"
End Sub
 %>
                  <br>              </td>
            </tr>
      </table> 
</form>
        <BR>
<BR>
<BR>
</BODY></HTML>
