⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 reg_info.asp

📁 方舟网免费空间申请程序(自助建站系统) v3.0 1　界面美观 2　后台管理功能强大：A　可以设置多种参数
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!-- #include file="CONST.ASP" -->
<!--#include file="inc/chkuser.asp"-->
<!--#include file="inc/chkinput.asp"-->
<!--#include file="inc/md5Fix.asp"-->
<!-- #include file="inc/htmlhead.asp" -->
<!--#include FILE="inc/coo_footer.asp"-->
<!--#include FILE="inc/Emailchar.asp"-->
<SCRIPT LANGUAGE="JavaScript">
	<!--
		function noInput()
	{
	if ((form1.oldPass.value=="")||(form1.UserEmail.value==""))
		{return (!!(window.alert('旧密码和Email输入不能有空')));}
		else{return true;}
	}

	function onlyNum()
	{ var keys=event.keyCode
	if (!((keys>=48&&keys<=57)||(keys>=96&&keys<=105)
		||(keys==8)||(keys==46)||(keys==37)||(keys==39)||(keys==13)||(keys==229)
		))
		event.returnValue=false;} 

	function onlyChar()
	{ var keys=event.keyCode
	if (!((keys>=48&&keys<=57)||(keys>=96&&keys<=105)||(keys>=65&&keys<=90)||(keys>=97&&keys<=122)
		||(keys==8)||(keys==46)||(keys==37)||(keys==39)||(keys==13)||(keys==229)
		))
		event.returnValue=false;} 
	//-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
function chkChar(char)
	dim i,testChar,chrNum
	if char="" then 
		chkChar=""
		exit function
	end if
	chkChar=""
	for i=1 to len(char)
		testChar=mid(char,i,1)
		chrNum=asc(testChar)
		if (chrNum>=48 and chrNum<=57) _
		or (chrNum>=96 and chrNum<=105) _
		or (chrNum>=65 and chrNum<=90) _
		or (chrNum>=97 and chrNum<=122) then
		 chkChar=chkChar&testChar
		end if
	next
End Function
//-->
</SCRIPT>

<head>
<title></title>
</head>

<body leftmargin="0" rightmargin="0" topmargin="0" bottommargin="20" background="pic/back.gif">
<!--#include file="TopNav.asp" -->
<br><br>
<%helpID=7

if chkpost()=false then
	call GetError("<br><li>不允许外部提交发言！")	
end if

if SetPower(2,2)=false and not TopMaster then
		Call GetError ("<li>没有管理本人帐号的权限！")
end if

Select CASE GetAction 
	CASE "Active"  
		call toActive()
	CASE "saveReg"  
		call saveReg()
	CASE else 
	if request("chang")="yes" then response.write "<center><b>修 改 完 成</b></center>"
		call Main()
End Select
call Footer()


SUB Main()
		dim rs
		dim UserName
		dim oldPass
		dim UserEmail

 		set rs=server.createobject("adodb.recordset")
		rs.open "select * from [userList] where userid="&memberid&"  and userpassword='"&memberword&"'",conn,0,1

		if not rs.eof then
			UserName=rs("UserName")
			UserEmail=rs("UserEmail")
			oldPass=rs("UserPassword")
		end if
		rs.close
%><table width="550" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#333369"><tr><td>
<table width="100%" height="100%" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#ffffff"><tr><td>
  <table width="100%" height="100%" align="center" cellpadding="0" cellspacing="0" bgcolor="#E1DDD4" border=0>
  <form name="form1" method="post" action="reg_info.asp?action=saveReg" onSubmit="return noInput();">
    <tr>
      <td height="24" bgcolor="#75a6f2" >
        <p align="center">&nbsp;&nbsp;<strong><font bgcolor="#75a6f2" color="#FFFFFF">注 册 帐 号 管 理</font></strong></p>     
      </td>      
    </tr>

	
	<tr>
      <td><table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#f3f3f3">
          <tr> 
            <td height="24" colspan="2" align="center" valign="bottom"></td>
          </tr>
          <tr> 
            <td height="5" colspan="2"></td>
          </tr>

		  <tr bgcolor="#75a6f2"> 
            <th height=26 colspan=2><font color=#ffffff>帐号信息</font></th>
          </tr>


          <tr> 
            <td align="right"><b>帐号名称&nbsp;</b></td>
            <td align="left" width="70%"><b><%=UserName%></b></td>
          </tr>
          <tr> 
            <td align="right"><b>旧密码&nbsp;</b></td>
            <td align="left"><input name="oldPass" type="password" style="width:176;" class="tx1" size="20" maxlength="16"> 
              <font color="#aa0000"> *必需输入正确的旧密码</font> </td>           
          </tr>
          <tr> 
            <td align="right"><b>新密码&nbsp;</b></td>
            <td align="left"><input name="UserPass" type="password" style="width:176;" class="tx1" size="20" maxlength="16"> 
              <font color="#aa0000"> *至少5位</font> </td>           
          </tr>
          <tr> 
            <td align="right"><b>核对新密码&nbsp;</b></td>
            <td align="left"><input name="UserPass1" type="password"  style="width:176;" class="tx1" size="20" maxlength="16"> 
              <font color="#aa0000"> *核对输入的新密码</font></td>           
          </tr>
		  <tr> 
            <td align="right"><b>联系邮箱&nbsp;</b></td>
            <td align="left"><input name="UserEmail" type="text" class="tx1" style="width:176;" size="20" maxlength="50" value="<%=UserEmail%>"> 
              <font color="#aa0000"> *请务必填写,否则无法完成注册</font></td>           
          </tr>

<!-- 		  <tr> 
            <td align="right"><b>管理目录&nbsp;</b></td>
            <td align="left"><input name="UserPath" type="text" style="width:176;" class="tx1" size="20" maxlength="20"></td>
          </tr> -->

 <%		dim reg_config,rNameArr,TexAtt,i
		rs.open "select reg_config from [config]",conn,0,1
		reg_config=split(rs(0),"|")
		rs.close
		sql="select * from [reginfo] where UserID="&memberid
		rs.open sql,CONN,0,1
 
 		rNameArr=array("Reg_Name","Reg_Number","Reg_phone","Reg_moCall","Reg_OICQ","Reg_MSN","Reg_From","Reg_work","Reg_for","Reg_birthday","Reg_descript") 
		TexAtt	=array("真实姓名","身份证号码","联系电话","联系手机","OICQ","MSN","所在地","从事职业","空间用途","出生日期","个人简历")   

if not rs.eof then 'fff%>
 
		  <tr bgcolor="#75a6f2"> 
            <th height=26 colspan=2><font color=#ffffff>用户档案</font></th>
          </tr>
		  <%for i=0 to 5%>
		  <tr> 
            <td align="right"><b><%=TexAtt(i)%>&nbsp;</b></td>
            <td align="left"><input value="<%=rs(rNameArr(i))%>" name="<%=rNameArr(i)%>" maxlength="<%=rs(rNameArr(i)).definedsize%>" type="text" class="tx1" style="width:176;" size="20" ><%if reg_config(i)="1" then response.write "<font color=""#aa0000""> *</font>" end if%></td>
          </tr>
		  <%next%>
		  <tr> 
            <td align="right"><b><%=TexAtt(6)%>&nbsp;</b></td>
            <td align="left"><select name="<%=rNameArr(6)%>" class="tx1" style="width:176;">
			<OPTION value="<%=rs(rNameArr(i))%>" selected><%=rs(rNameArr(i))%></OPTION>
			<OPTION value=安徽>安徽</OPTION>
			<OPTION value=北京>北京</OPTION>
			<OPTION value=重庆>重庆</OPTION>
			<OPTION value=福建>福建</OPTION>
			<OPTION value=甘肃>甘肃</OPTION>
			<OPTION value=广东>广东</OPTION>
			<OPTION value=广西>广西</OPTION>
			<OPTION value=贵州>贵州</OPTION>
			<OPTION value=海南>海南</OPTION>
			<OPTION value=河北>河北</OPTION>
			<OPTION value=河南>河南</OPTION>
			<OPTION value=黑龙江>黑龙江</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=天津>天津</OPTION>
			<OPTION value=西藏>西藏</OPTION>
			<OPTION value=新疆>新疆</OPTION>
			<OPTION value=云南>云南</OPTION>
			<OPTION value=浙江>浙江</OPTION>
			</select><%if reg_config(6)="1" then response.write "<font color=""#aa0000""> *</font>" end if%></td>
          </tr>
		  <tr> 
            <td align="right"><b><%=TexAtt(7)%>&nbsp;</b></td>
            <td align="left">
			<select name="<%=rNameArr(7)%>" class="tx1" style="width:176;">
					<OPTION value="<%=rs(rNameArr(7))%>" selected><%=rs(rNameArr(7))%>
					<OPTION value="财会/金融">财会/金融
					<OPTION value=工程师>工程师
					<OPTION value=顾问>顾问
					<OPTION value=计算机相关行业>计算机相关行业(Internet)
					<OPTION value="计算机相关行业（其他）">计算机相关行业（其他）
					<OPTION value=家庭主妇>家庭主妇
					<OPTION value="教育/培训">教育/培训
					<OPTION value="客户服务/支持">客户服务/支持
					<OPTION value="零售商/手工工人">零售商/手工工人
					<OPTION value=退休>退休
					<OPTION value=无职业>无职业
					<OPTION value="销售/市场/广告">销售/市场/广告
					<OPTION value=学生>学生
					<OPTION value=研究和开发>研究和开发
					<OPTION value=一般管理>一般管理
					<OPTION value="政府/军队">政府/军队
					<OPTION value="执行官/高级管理">执行官/高级管理
					<OPTION value="制造/生产/操作">制造/生产/操作
					<OPTION value="专业人员（医药、法律等）">专业人员（医药、法律等）
					<OPTION value="自雇/业主">自雇/业主
					<OPTION value="其他">其他</OPTION>
			</select><%if reg_config(7)="1" then response.write "<font color=""#aa0000""> *</font>" end if%></td>
          </tr>
          <tr> 
            <td align="right"><b><%=TexAtt(8)%>&nbsp;</b></td>
            <td align="left">
			<select name="<%=rNameArr(8)%>" class="tx1" style="width:176;">
			<OPTION value="<%=rs(rNameArr(8))%>" selected><%=rs(rNameArr(8))%></OPTION>
			<OPTION value=娱乐>娱乐</OPTION>
			<OPTION value=休闲与生活>休闲与生活</OPTION>
			<OPTION value=人文艺术>人文艺术</OPTION>
			<OPTION value=科学技术>科学技术</OPTION>
			<OPTION value=工商产业>工商产业</OPTION>
			<OPTION value=医疗健康>医疗健康</OPTION>
			<OPTION value=社会文化>社会文化</OPTION>
			<OPTION value=投资理财>投资理财</OPTION>
			<OPTION value=少儿乐园>少儿乐园</OPTION>
			<OPTION value=情感天地>情感天地</OPTION>
			<OPTION value=体育运动>体育运动</OPTION>
			<OPTION value=黑龙江>黑龙江</OPTION>
			<OPTION value=游戏世界>游戏世界</OPTION>
			<OPTION value=新闻时事>新闻时事</OPTION>
			<OPTION value=美眉天地>美眉天地</OPTION>
			<OPTION value=家庭与消费>家庭与消费</OPTION>
			<OPTION value=旅游户外>旅游户外</OPTION>
			<OPTION value=教育就业>教育就业</OPTION>
			</select><%if reg_config(8)="1" then response.write "<font color=""#aa0000""> *</font>" end if%></td>
          </tr>

		  <tr> 
            <td align="right"><b><%=TexAtt(9)%>&nbsp;</b></td>
			<%
			dim bir
			if trim(rs(rNameArr(9)))<>"" then 
				bir=split(trim(rs(rNameArr(9))),"-")
			end if%>
			<TD width=336><input type=hidden name="<%=rNameArr(9)%>" value="<%=rs(rNameArr(9))%>" class=tx1  style="width:176;">
			<INPUT class=tx1 maxLength=4 size=5 name=Reg_Year onkeyup="{document.all.<%=rNameArr(9)%>.value=document.all.Reg_Year.value+'-'+document.all.Reg_Month.value+'-'+document.all.Reg_Day.value}" autocomplete="OFF" value="<%=bir(0)%>">&nbsp;<SPAN class=PPSubDesTxt></SPAN>&nbsp;<LABEL for=Month>
			<SELECT  id=Reg_Month tabIndex=691 onpropertychange="{document.all.<%=rNameArr(9)%>.value=document.all.Reg_Year.value+'-'+document.all.Reg_Month.value+'-'+document.all.Reg_Day.value}"           
                name=Reg_Month >
				<OPTION value="<%=bir(1)%>" selected><%=bir(1)%>
				<OPTION value=01>1 月
				<OPTION value=02>2 月
				<OPTION value=03>3 月
				<OPTION value=04>4 月
				<OPTION value=05>5 月
				<OPTION value=06>6 月
				<OPTION value=07>7 月
				<OPTION value=08>8 月
				<OPTION value=09>9 月
				<OPTION value=10>10 月
				<OPTION value=11>11 月
				<OPTION value=12>12 月</OPTION>
				</SELECT></LABEL>
				<LABEL for=Day>           
				<SELECT  tabIndex=721 name=Reg_Day  onpropertychange="{document.all.<%=rNameArr(9)%>.value=document.all.Reg_Year.value+'-'+document.all.Reg_Month.value+'-'+document.all.Reg_Day.value}">
				<OPTION value="<%=bir(2)%>" selected><%=bir(2)%>
				<OPTION value=01>1 日
				<OPTION value=02>2 日
				<OPTION value=03>3 日
				<OPTION value=04>4 日
				<OPTION value=05>5 日
				<OPTION value=06>6 日
				<OPTION value=07>7 日
				<OPTION value=08>8 日
				<OPTION value=09>9 日
				<OPTION value=10>10 日
				<OPTION value=11>11 日
				<OPTION value=12>12 日
				<OPTION value=13>13 日
				<OPTION value=14>14 日
				<OPTION value=15>15 日
				<OPTION value=16>16 日
				<OPTION value=17>17 日
				<OPTION value=18>18 日
				<OPTION value=19>19 日
				<OPTION value=20>20 日
				<OPTION value=21>21 日
				<OPTION value=22>22 日
				<OPTION value=23>23 日
				<OPTION value=24>24 日
				<OPTION value=25>25 日
				<OPTION value=26>26 日
				<OPTION value=27>27 日
				<OPTION value=28>28 日
				<OPTION value=29>29 日
				<OPTION value=30>30 日
				<OPTION value=31>31 日</OPTION>
				</SELECT></LABEL><%if reg_config(9)="1" then response.write "<font color=""#aa0000""> *</font>" end if%></td>
          </tr>
		  <tr> 
            <td align="right" valign=top><img height=2px width=0><br><b><%=TexAtt(10)%>&nbsp;</b></td>
            <td align="left"><textarea name="<%=rNameArr(10)%>" class="tx1" style="width:262;" rows="5" maxlength="2048" cols="20"><%=rs(rNameArr(10))%></textarea><%if reg_config(10)="1" then response.write "<font color=""#aa0000""> *</font>" end if%></td>
          </tr>
<%else 'fff%>

		 
		  <tr bgcolor="#75a6f2"> 
            <th height=26 colspan=2><font color=#ffffff>用户档案</font></th>
          </tr>
		  <%for i=0 to 5%>
		  <tr> 
            <td align="right"><b><%=TexAtt(i)%>&nbsp;</b></td>
            <td align="left"><input name="<%=rNameArr(i)%>" maxlength="<%=rs(rNameArr(i)).definedsize%>" type="text" class="tx1" style="width:176;" size="20" ><%if reg_config(i)="1" then response.write "<font color=""#aa0000""> *</font>" end if%></td>
          </tr>
		  <%next%>
		  <tr> 
            <td align="right"><b><%=TexAtt(6)%>&nbsp;</b></td>
            <td align="left"><select name="<%=rNameArr(6)%>" class="tx1" style="width:176;">
			<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>
			<OPTION value=贵州>贵州</OPTION>
			<OPTION value=海南>海南</OPTION>
			<OPTION value=河北>河北</OPTION>
			<OPTION value=河南>河南</OPTION>
			<OPTION value=黑龙江>黑龙江</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=湖北>湖北</OPTION>
			<OPTION value=湖北>湖北</OPTION>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -