📄 reg_info.asp
字号:
<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)%> </b></td>
<td align="left">
<select name="<%=rNameArr(7)%>" class="tx1" style="width:176;">
<OPTION value="" selected>[请选择一种职业]
<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)%> </b></td>
<td align="left">
<select name="<%=rNameArr(8)%>" 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>
</select><%if reg_config(8)="1" then response.write "<font color=""#aa0000""> *</font>" end if%></td>
</tr>
<tr>
<td align="right"><b><%=TexAtt(9)%> </b></td>
<TD width=336><input type=hidden name="<%=rNameArr(9)%>" value="--" 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"> <SPAN class=PPSubDesTxt>年（例如 1999）</SPAN> <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 selected>月份
<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 selected>日期
<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)%> </b></td>
<td align="left"><textarea name="<%=rNameArr(10)%>" class="tx1" style="width:262;" rows="5" maxlength="2048" cols="20"></textarea><%if reg_config(10)="1" then response.write "<font color=""#aa0000""> *</font>" end if%></td>
</tr>
<%end if 'fff%>
<tr>
<td height="5" colspan="2"></td>
</tr>
<tr>
<td> </td> <td><input type="submit" name="Submit32" value="确 认" class="btx" >
<input type="reset" name="Submit42" value="重 填" class="btx">
<input name="button122" type=button class="btxx" onClick="location.href='login.asp?action=exit';" value="退 出"></td>
</tr>
<tr>
<td height="26" colspan="2"><br><font color=#888888> 注:1.如果用户目录未指定,你的管理目录将被系统缺省指定为用户名<br>
2.最好不要使用汉字目录名<br>
3.星号*为必须填写项目</font></td>
</tr>
</table></td>
</tr>
<tr>
<td height="20" bgcolor="#F3F3F3"> </td>
</tr>
<tr>
<td align="left" valign="top" bgcolor="#F3F3F3"><br></td>
</tr>
</form>
</table>
</td></tr></table>
</td></tr></table>
<br><br>
<%rs.close
set rs=nothing
End SUB
SUB SaveReg()
'Call SendEmail("AAA","lfgbox@hotmail.com","d46fdt234")
dim rs,sql,i,chkregs
dim UserName,UserPassA,UserPassB,UserPath,UserEmail,oldpass,reg_name 'display input
dim Fso,myfolder
dim reg
dim founderr,errinfo
dim NewCreatePath
dim Reg_Quota,Reg_GroupID,Reg_sFlag
dim ActiveID
set rs=server.createobject("adodb.recordset")
NewCreatePath=false
founderr=false
reg_name=request.form("Reg_Name")
oldpass=request.form("oldpass")
UserPassA=request.form("UserPass")
UserPassB=request.form("UserPass1")
'UserPath=request.form("UserPath")
UserEmail=CheckStr(request.form("UserEmail"))
'验证用户名是否已经存在于数据库!
if UserPassA<>"" then
if strLength(UserPassA)<5 then
errinfo=errinfo+"<br><li>新密码至少五位！请重输入！"
founderr=true
end if
if UserPassB="" then
errinfo=errinfo+"<br><li>核对密码未填！"
founderr=true
end if
if UserPassA<>UserPassB then
errinfo=errinfo+"<br><li>核对密码和新密码不一致,请重新输入！"
founderr=true
end if
end if
if UserEmail<>"" then
if IsValidEmail(UserEmail)=false then
errinfo=errinfo+"<br><li>无效的Email格式输入！"
founderr=true
else
sql="select * from [UserList] where UserEmail='"&UserEmail&"' and UserID<>"&memberid
rs.open sql,CONN,0,1
if not rs.eof and not rs.bof then
errinfo=errinfo+"<br><li>对不起，您输入的Email已经被注册,请重新输入！"
founderr=true
end if
rs.close
end if
else
UserEmail="未填"
end if
chkregs=chkreg()
if chkregs<>"" then
founderr=true
errinfo=errinfo+chkregs
end if
if founderr then call GetError(errinfo)
'on error resume next
dim err1,curUserID,err1Number,Reg_Active
Randomize timer()
ActiveID=md5(cstr(nowTime)&cstr(int(899999*Rnd+100000))&timer(),md5order)
set rs=server.createobject("adodb.recordset")
rs.open "config",conn,0,1
Reg_Quota=rs("Reg_Quota")
Reg_GroupID=rs("Reg_GroupID")
Reg_sFlag=rs("Reg_sFlag")
Reg_Active=rs("Reg_Active")
rs.close
rs.open "select * from [userList] where userid="&memberid,CONN,1,3
if rs.eof then
GetError "编辑的帐号不存在"
else
if rs("userpassword")<>md5(oldpass,md5order) then
GetError "输入的旧密码不对!"
end if
end if
if UserPassA<>"" then rs("UserPassword")=md5(UserPassA,md5order)
rs("UserEmail")=UserEmail
rs("reg_name")=reg_name
rs.update
curUserID=rs("userID")
rs.close
rs.open "select * from [RegInfo] where userid="&memberid,CONN,1,3
if rs.eof then
rs.addnew
rs("userID")=curUserID
end if
for i=0 to rs.fields.count-1
if rs(i).Name<>"UserID" then
rs(rs(i).Name)=GetValue(trim(Request.Form(rs(i).Name)),"str"," ")
else
rs("UserID")=curUserID
end if
next
rs.update
rs.close
set rs=nothing
CONN.close
set CONN=nothing
if UserPassA<>oldpass and UserPassA<>"" then
Response.Redirect "regok.asp?changpass=yes"
else
Response.Redirect "reg_info.asp?chang=yes"
end if
Response.end
End sub
Function checkStr(str)
if isnull(str) then
checkStr = ""
exit Function
end if
checkStr=replace(str,"'","")
checkStr=replace(str,";","")
End Function
Function chkreg()
chkreg=""
dim rs,reg_config,rNameArr,TexAtt,i,tmpStr,newstr
set rs=server.createobject("adodb.recordset")
rs.open "select reg_config from [config]",conn,0,1
reg_config=split(rs(0),"|")
rs.close
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","所在地","从事职业","空间用途","出生日期","个人简历")
for i=0 to ubound(rNameArr)
if reg_config(i)="1" then
tmpStr=checkStr(Request.form(rNameArr(i)))
if tmpStr="" then
chkreg=chkreg&"<li><b>"&TexAtt(i)&"</b> 要求必须填写</li>"
end if
end if
next
'if chkreg="" then
' newstr="'"&checkStr(Request.form(rNameArr(0)))&"'"
' for i=1 to ubound(rNameArr)
' newstr=newstr&",'"&checkStr(Request.form(rNameArr(i)))&"'"
' next
' Conn.execute("insert into ("&join(rNameArr,",")&") values ("&newstr&")")
'else
' GetError chkreg
'end if
End function
SUB SendEmail(inceptUserName,inceptUserMail,Aid)
if IsValidEmail(inceptUserMail)=true then
dim imailbody,cooUrl,cooLogo,iMailTopic
dim SCRIPT_NAME,SERVER_NAME
SCRIPT_NAME=CheckStr(Request.ServerVariables("SCRIPT_NAME"))
SERVER_NAME=CheckStr(Request.ServerVariables("SERVER_NAME"))
cooUrl=""
cooLogo=""
imailbody="<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">"
imailbody=imailbody & "<html><head><meta http-equiv=Content-Type content=""text/html;charset=gb2312""></head>"
imailbody=imailbody & "<body bgcolor=#FFFFFF text=#000000 leftmargin=20 topmargin=20 marginwidth=20 marginheight=20>"
'imailbody=imailbody & "<table border=0 cellpadding=0 cellspacing=0 width=500>"
'imailbody=imailbody & "<tr><td><a href="""&cooUrl&""" target=_blank><img src=""http://"&SERVER_NAME & SCRIPT_NAME)&"/"& cooLogo&""" width=500 border=0></a></td></tr></table><br>"
imailbody=imailbody & "<table width=500 border=0 cellspacing=0 cellpadding=15>"
imailbody=imailbody & "<tr><td background=""http://"&SERVER_NAME & SCRIPT_NAME&"/"&"pic/mailbg.gif"" valign=top style=""font-size:12px;font-family:MS Shell Dlg;line-height:140%"">"
imailbody=imailbody & inceptUserName&"，您好：<br>"
imailbody=imailbody & "您在"&CooSelTitle&">>注册连接如下，请点击激活你的注册帐号：<br>"
imailbody=imailbody & "<hr size=1>"
imailbody=imailbody & "<a href=http://"&SERVER_NAME & SCRIPT_NAME&"?action=Active&ActiveID="&Aid&" target=_blank><u>点这里激活你注册的 "&inceptUserName&" 帐号</u></a></td></tr>"
imailbody=imailbody & "</table><br></body></html>"
iMailTopic="["&CooSelTitle&"]>> 空间注册激活信息"
Call Jmail(inceptUserMail,iMailTopic,imailbody)
'Call CDOmail(inceptUserMail,iMailTopic,imailbody)
end if
End SUB
SUB EndProc(info,historyback,redirect)
set Fso=nothing
set GetFolder=nothing
if info<>"" then
Response.write "</head><body bgcolor='#e8e8e8' text='#000000' leftmargin='0' rightmargin='0' topmargin='0' bottommargin='20'>"
Server.Execute("TopNav1.asp")
call GetError(info)
end if
End SUB
Function ChkPost()
dim server_v1,server_v2
chkpost=false
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
chkpost=false
else
chkpost=true
end if
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -