user_register.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

		{	if (! isnum(obj.Form_FaceWidth.value))
			{
				alert("自定义头像宽度必须是数字！\n");
				obj.Form_FaceWidth.focus();
				return;
			}
			else
			{
				if(obj.Form_FaceWidth.value<<%=facewidthmin%> || obj.Form_FaceWidth.value><%=facewidthmax%>)
				{
					alert("自定义头像宽度必须在<%=facewidthmin%>-<%=facewidthmax%>之间！\n");
					obj.Form_FaceWidth.focus();
					return;
				}
			}
		}

		if(obj.Form_FaceHeight.value!="")
		{
			if (! isnum(obj.Form_FaceHeight.value))
			{
				alert("自定义头像高度必须是数字！\n");
				obj.Form_FaceHeight.focus();
				return;
			}
			else
			{
				if(obj.Form_FaceHeight.value<<%=faceheightmin%> || obj.Form_FaceHeight.value><%=faceheightmax%>)
				{
					alert("自定义头像高度必须在<%=faceheightmin%>-<%=faceheightmax%>之间！\n");
					obj.Form_FaceHeight.focus();
					return;
				}
			}
		}

		temp=obj.txl_FaceUrl.value;
		if (temp!="")
		{	temp=temp.toLowerCase();
			if(temp.indexOf("http:")>-1){
				alert(temp)
				document.faceimg.src=temp;
				document.faceimg.width=obj.Form_FaceWidth.value;
				document.faceimg.height=obj.Form_FaceHeight.value;
			}
			else
			{	
				document.faceimg.src=""+temp;
				document.faceimg.width=obj.Form_FaceWidth.value;
				document.faceimg.height=obj.Form_FaceHeight.value;
			}
		}
		else if(document.faceimg.src!="")
		{
			document.faceimg.width=obj.Form_FaceWidth.value;
			document.faceimg.height=obj.Form_FaceHeight.value;
		}
	}
	  //-->	  
	  </script>
      <form name="txlfrm" method="post" action="user_register2.asp" onsubmit="return checkfrm(this)">
      
  <TABLE width="100%" border=1 align="center" cellpadding="5" cellspacing="0" bordercolor="#FFFFFF" class=font style="border-collapse:collapse;">
    <TR> 
      <TD height="25" colspan="2" align=center class="blu"><B>新用户注册</B></TD>
    </TR>
    <TR> 
      <TD height="25" class="tar"> 申请模式：</TD>
      <TD height="25"><font color="#FF0000"> 
        <%
			select case session("usertype") 
				case 1: Response.Write("影音好友")
				case 2: Response.Write("准影音成员")
				case 3: Response.Write("影音成员")
				case "":Response.Redirect("user_register.asp")
			end select
			%>
        </font></TD>
    </TR>
    <TR> 
      <TD height="25" class="tar">*用户名称： </TD>
      <TD height="25"> <p> 
          <input maxLength=30 name="txl_username" size=15>
          (<font color="gray">用户名只能是字母,数字,下划线和中文</font>) 
          <input type="button" name="Submit4" value="测试用户名" style="border:1px solid #666666;height:20px;" onFocus="this.blur()" onClick="javascript:openScript('user_checkusername.asp?username='+document.txlfrm.txl_username.value,280,100)">
      </TD>
    </TR>
    <TR> 
      <TD height="25" class="tar">*你的密码： </TD>
      <TD height="25"> <input name="txl_password1" type=password class=fminpt id="txl_password1" size=15 maxLength=15>
        (<font color="gray">区分大小写,两端空格无效,大于4位</font>) </TD>
    </TR>
    <TR> 
      <TD height="25" class="tar">*验证密码： </TD>
      <TD height="25"> <input name="txl_password2" type=password class=fminpt id="txl_password2" size=15 maxlength=15>
        (<font color="gray">请填入刚才输入的密码</font>) </TD>
    </TR>
    <TR> 
      <TD height="25" class="tar">*电子邮件： </TD>
      <TD height="25"> <input name=txl_email class=fminpt id="txl_email" size=36 maxLength=40>
        (<font color="gray">请填入常用的邮箱，这个将是您的密码保密邮箱</font>) </TD>
    </TR>
    <TR> 
      <TD height="25" class="tar">*真实姓名:</TD>
      <TD height="25"><input name="txl_truename" type=text class=fminpt id="txl_truename" size=14 maxlength=20>
        (<font color="gray">真实姓名请填写中文</font>) </TD>
    </TR>
    <TR> 
      <TD height="25" class="tar" >*密码提示： </TD>
      <TD height="25"> <input name=txl_question class=fminpt id="txl_question" size=36 maxLength=30> 
      </TD>
    </TR>
    <TR> 
      <TD height="25" class="tar" >*提示答案： </TD>
      <TD height="25"> <input name=txl_answer class=fminpt id="txl_answer" size=36 maxlength=30> 
      </TD>
    </TR>
    <TR> 
      <TD height="25" class="tar" >ＱＱ号码： </TD>
      <TD height="25"> <input name=txl_oicq class=fminpt id="txl_oicq" size=15 maxlength=15 onkeyup='this.value=this.value.replace(/\D/gi,"")'>
        (<font color="gray">如果没有QQ号码请填入8个0</font>) </TD>
    </TR>
    <TR bgcolor="#CCCCCC"> 
      <TD colspan="2" align=center><font color="#000000">为了联系方便，请仔细填写以下信息，此信息对影音好友及游客保密</font></TD>
    </TR>
    <TR> 
      <TD height="25" class="tar">家庭电话：</TD>
      <TD height="25"><input name=txl_homephone class=fminpt id="txl_homeaddr3" size=15 maxlength=20></TD>
    </TR>
    <TR> 
      <TD height="25" class="tar" >家庭地址： </TD>
      <TD height="25"> <input name=txl_homeaddr class=fminpt id="txl_homeaddr" size=36 maxlength=50> 
      </TD>
    </TR>
    <TR> 
      <TD height="25" class="tar">家庭邮编：</TD>
      <TD height="25"><input name=txl_homezip class=fminpt id="txl_homezip" size=6 maxlength=6 onKeyUp='this.value=this.value.replace(/\D/gi,"")'></TD>
    </TR>
    <TR> 
      <TD height="25" class="tar">目前联系号码：</TD>
      <TD height="25"><input name=txl_newphone class=fminpt  size=15 maxlength=20></TD>
    </TR>
    <TR> 
      <TD height="25" class="tar">目前地址： </TD>
      <TD height="25"> <input name=txl_newaddr class=fminpt  size=36 maxlength=50> 
      </TD>
    </TR>
    <TR> 
      <TD height="25" class="tar">目前邮编：</TD>
      <TD height="25"><input name=txl_newzip class=fminpt  size=6 maxlength=6 onkeyup='this.value=this.value.replace(/\D/gi,"")'></TD>
    </TR>
    <TR> 
      <TD height="25" class="tar">你的性别： </TD>
      <TD height="25"> <select name="txl_sex" id="txl_sex">
          <option value="男" selected>男</option>
          <option value="女">女</option>
        </select> </TD>
    </TR>
    <TR> 
      <TD height="25" class="tar" >用户头像： </TD>
      <TD height="25"> <input name=txl_userpic class=fminpt id="txl_userpic" readonly size=4 maxlength=4>
        <span style='cursor:hand' title='查看头像代号' onclick="setface();">查看头像代号</span>
        <select name="select" onChange="document.txlfrm.txl_FaceUrl.value=this.options[this.selectedIndex].value;document.all('faceimg').src=''+this.options[this.selectedIndex].value">
			<% Call DisplayFaceSelect%>
        </select>
        <img name=faceimg id=faceimg src=<%=const_txl_HomeUrl%>images/null.gif align=absmiddle>&nbsp; 
        上传头像请先注册再上传</TD>
    </TR>
    <TR> 
      <TD height="25" class="tar">头像地址： </TD>
      <TD height="25"> <input name=txl_FaceUrl class=fminpt id="txl_FaceUrl" onchange="javascript:changeface2();" size=36 maxlength=100>
        <font color="gray">(网上图片填入完整的URL路径) </font></TD>
    </TR>
    <TR> 
      <TD height="25" class="tar">头像大小： </TD>
      <TD height="25"> 宽: 
        <input name=Form_FaceWidth class=fminpt id="txl_FaceWidth" onChange="javascript:changeface2();" value="32" size=3 >
        (<%=facewidthmin%>-<%=facewidthmax%>) 高: 
        <input  name=Form_FaceHeight class=fminpt id="txl_FaceHeight" onchange="javascript:changeface2();" value="32" size=3 >
        (<%=faceheightmin%>-<%=faceheightmax%>) </TD>
    </TR>
    <TR> 
      <TD height="25" class="tar">你的生日： </TD>
      <TD height="25" align="left"> <p> 
          <select name="txl_byear" id="txl_byear">
            <% dim selected
		  for i=1950 to 2003
		  		if i=1980 then
					selected="selected"
				else
					selected=""
				end if
				Response.Write("<option value='"&i&"' "&selected&">"&i&"</option>")
			 next	  
		   %>
          </select>
          年 
          <select name="txl_bmonth" id="txl_bmonth">
            <%for i=1 to 12
				Response.Write("<option value='"&i&"'>"&i&"</option>")
			 next%>
          </select>
          月 
          <select name="txl_bday" id="select2">
            <%for i=1 to 31
				Response.Write("<option value='"&i&"'>"&i&"</option>")
			 next%>
          </select>
          日</TD>
    </TR>
    <TR> 
      <TD height="25" class="tar">签名-UBB： </TD>
      <TD height="25" valign="baseline"> <textarea name=txl_Underwrite cols=34 rows=5 class=fmtxtra id="textarea"></textarea>
        (<font color="gray">255字符内</font>) </TD>
    </TR>
    <TR>
      <TD height="25" class="tar">新用户注册<br>
      邮件通知:</TD>
      <TD height="25"><input type="radio" name="new_reg_mail_inform" value="1">
        通知 
        <input name="new_reg_mail_inform" type="radio" value="0" checked>
        不要通知</TD>
    </TR>
    <TR> 
      <TD height="25" colspan="2" align=center><input name="send" type="submit" id="send" style="border:1px solid #666666;height:20px;" onFocus="this.blur()" value="注　册">　
        <input type="reset" name="Submit32" value="重　写" style="border:1px solid #666666;height:20px;" onFocus="this.blur()"></TD>
    </TR>
  </TABLE>
      </form>
<%end sub
function checkanswer()
	dim answer1,answer2,rs
	answer1=Trim(Request.Form("answer1"))
	answer2=Trim(Request.Form("answer2"))
	if answer1="" or answer2="" then
		checkanswer=false
		exit function
	end if
	opendatabase
	set rs=conn.execute ("select answer1,answer2 from config where id=1")
	if answer1=Trim(rs(0)) and answer2=Trim(rs(1)) then
		checkanswer=true
	else
		checkanswer=false
	end if
	rs.close
	set rs=nothing
end function
Function DisplayFaceSelect
	dim i,rs,faceurl
	on error resume next
	set rs=conn.execute ("select faceurl from config where id=1")
	faceurl=rs(0)
	rs.close
	set rs=nothing
	faceurl=Split(faceurl,"|")
	for i=0 to ubound(faceurl)-1
			Response.write "<option value='"&const_FaceUploadurl&faceurl(i)&"'>"&const_FaceUploadurl&faceurl(i)&"</option>"
	next
End Function
%>