<!--#include file="conn/hl_Conn.asp"-->
<!--#include file="inc/HL_RegSet.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>
<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: "宋体"
}

body {
	background-color: #1776B6;
}
.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 
style="BACKGROUND-IMAGE: url(img/myalibaba_topbg.gif); BACKGROUND-REPEAT: repeat-x; BACKGROUND-COLOR: #4296ce" 
leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">

<TABLE width="628" border="0" cellPadding="0" cellSpacing="0">
  <TBODY>
    <TR>
      <TD class=s vAlign=top align=right width=459 
          background=img/leftmanu_top1.gif height=30>&nbsp;</TD>
      <TD class=s vAlign=top width=141 
          background=img/top_nav_bg2.gif>&nbsp;</TD>
      <TD width=28><IMG height=30 src="img/top_nav_5.gif" 
            width=28></TD>
    </TR>
  </TBODY>
</TABLE>
<table width="628" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top"><table width="623" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
      <tr>
        <td height="35"  align="middle"  style="BACKGROUND-POSITION: left top; BACKGROUND-REPEAT: no-repeat"><img height="35" src="img/txzzc.gif" width="544" /> </td>
      </tr>
      <tr>
        <td  style="BACKGROUND-POSITION: left top; BACKGROUND-REPEAT: no-repeat" align="middle"></td>
      </tr>
    </table>
        <table width="622" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#FFFFFF">
          <form action="User_RegPost.asp?usertype=<%=request("usertype")%>" method="post" name="form1" id="form1" onSubmit="return dosubmitReg3(form1)">
		  <input type="hidden" name="ComeUrl" value="<%=request("ComeUrl")%>">
            <tr>
              <td align="center"><br>
<%
     if request("action")="checkname" then
        call checkname()
     end if
IF RegClose<>1 Then
%>
 <table  width="96%" 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"  then
          response.Write "</p></td><td width=50% align=left><input type=password name="&a2&" onBlur=""JavaScript:checkPWD(this,'checkPwd')""><font color='#FF0000'>*</font><div id='checkPwd'></div></td></tr>"
		  elseif trim(a2)="repassword" then
		  response.Write "</p></td><td width=50% align=left><input type=password name="&a2&" onBlur=""JavaScript:checkPWD(this,'confirmPwd')""><font color='#FF0000'>*</font><div id='confirmPwd'></div></td></tr>"
		  elseif trim(a2)="username" then
          response.Write "</p></td><td width=50% align=left><input type=text name="&a2&" value='' onBlur=""JavaScript:isExist('Name','x',this)""><font color='#FF0000'>*</font><div id='checkName'></div></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>保密 "
          elseif trim(a2)="useremail" then
		  response.Write "</p></td><td width=50% align=left><input type='text' name="&a2&" onBlur=""JavaScript:isExist('Email','y',this)""><font color='#FF0000'>*</font><div id='CheckEmail'></div></td></tr>"
		  else
          response.Write "</p></td><td width=50% align=left><input type=text name="&a2&"></td></tr>"
          end if
          rs.movenext
          loop
          If RegCheckCode=1 Then
          response.Write "<tr><td align=right>请输入验证码</td><td><input type='text' name='CheckCode' size='6'><a href='javascript:refreshimg()' title='看不清楚，换个图片'><img id='checkcode' src='inc/checkcode.asp' style='border: 1px solid #ffffff'></a></td></tr>"
          End IF
          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(ErrMsg)
      End If
      rs.close
      set rs=nothing
Else
      Response.Write("<div align='center'>网站升级中，暂时关闭.....</div>")
End IF


Sub WriteErrMsg(ErrMsg)
    Dim strErr
    strErr = strErr & "<html><head><title>错误信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
    strErr = strErr & "<link href='../Images/style.css' rel='stylesheet' type='text/css'></head><body>" & vbCrLf
    strErr = strErr & "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbCrLf
    strErr = strErr & "  <tr align='center'><td height='22' class='title'><strong>错误信息</strong></td></tr>" & vbCrLf
    strErr = strErr & "  <tr><td height='100' class='tdbg' valign='top'><b>产生错误的可能原因：</b><br>" & ErrMsg & "</td></tr>" & vbCrLf
    strErr = strErr & "  <tr align='center'><td class='tdbg'><a href=""User_Login.asp?ComeUrl=" & ComeUrl & """>&lt;&lt; 返回登录页面</a></td></tr>" & vbCrLf
    strErr = strErr & "</table>" & vbCrLf
    strErr = strErr & "</body></html>" & vbCrLf
    Response.Write strErr
End Sub
 %>
                  <br>
              </td>
            </tr>
          </form>
      </table>
        <table width="623" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" >
          <tr>
            <td c>&nbsp;</td>
          </tr>
      </table></td>
  </tr>
</table>
<table width="628" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><img src="img/user_index_bottom.jpg" width="630" height="10" /></td>
  </tr>
</table>
<BR>
<BR>
<BR>
</BODY></HTML>
<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.username.value.length<2||myform.username.value.length>16) {
			alert("用户名必须在4-16位！");
			myform.username.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 refreshimg(){document.all.checkcode.src='inc/checkcode.asp';}
function checkPWD(Obj,StrID)
{
	switch(StrID.toLowerCase()){
		case 'checkpwd' :
			if (Obj.value.length<6)
			document.getElementById(StrID).innerHTML = '<font color=red>密码太短，建议设置较复杂密码</font>';
			else
			document.getElementById(StrID).innerHTML = '<font color=blue>符合要求，请确认一次!</font>';
			break;
		case 'confirmpwd' :
			if (Obj.value!=document.getElementById('userpassword').value)
			document.getElementById(StrID).innerHTML = '<font color=red>两次输入的密码不一样</font>';
			else {
			if(Obj.value=='')
			document.getElementById(StrID).innerHTML = '<font color=red>输入密码不能为空</font>';
			else
			document.getElementById(StrID).innerHTML = '<font color=blue>确认密码正确</font>';
			}
			break;
		default :
			return false;
	}
}
function isExist(checkType,Num,Obj)
{
	var StrPage,returnValue,ObjHttp;
	var StrLoc = location.href;
	var LenLoc = StrLoc.lastIndexOf("\/");
	ObjHttp = new ActiveXObject("MSXML2.XMLHTTP");
	//=================
	switch(checkType.toLowerCase())
	{
		case 'email':
			if (Obj.value=='')
			{
				document.getElementById('CheckEmail').innerHTML = '<font color=red>请输入邮件地址!!</font>';
				return false;
			}
			StrPage = 'CheckReg.asp?act=Email&value='+Obj.value;
			StrLoc = StrLoc.substring(0,LenLoc+1)+StrPage;
			ObjHttp.open("get",StrLoc,false);
			ObjHttp.send();
			returnValue = ObjHttp.responseText;
			if (returnValue=='empty') returnValue = '<font color=red>邮件地址不允许空！</font>';
			else if (returnValue=='OK') returnValue = '<font color=blue>恭喜！该邮件地址可用！</font>';
			else if (returnValue=='exist') returnValue = '<font color=red>该邮件地址已经被别人注册请更换一个！</font>';
			else if (returnValue=='bad') returnValue = '<font color=red>错误的邮件地址！</font>';
			else  returnValue = '未知错误！';
			document.getElementById('CheckEmail').innerHTML = returnValue;
			break;
		case 'name':
			if (Obj.value=='')
			{
				document.getElementById('checkName').innerHTML = '<font color=red>.请输入长度大于3小于20的用户名!!</font>';
				Obj.focus();
				return true;
			}
			StrPage = 'CheckReg.asp?act=name&value='+Obj.value;
			StrLoc = StrLoc.substring(0,LenLoc+1)+StrPage;
			ObjHttp.open("get",StrLoc,false);
			ObjHttp.send();
			returnValue = ObjHttp.responseText;
			if (returnValue=='empty') returnValue = '用户名不允许空！';
			else if (returnValue=='OK') returnValue = '<font color=blue>恭喜！该用户名可用！</font>';
			else if (returnValue=='exist') returnValue = '该用户名已经被别人使用,请换一个！';
			else if (returnValue=='bad') returnValue = '错误的用户名！';
			else  returnValue = '未知错误！';
			returnValue = '<font color=red>'+returnValue+'</font>';
			document.getElementById('checkName').innerHTML = returnValue;
			break;
		default :
			return false;
	}
}
</SCRIPT>
