📄 changecase.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="Include/inc.asp"-->
<!--#include file="Include/md5.asp"-->
<%
'============================================================
' ----修用户资料----
' 2004-3-17 p9
'
'
'=============================================================
IF not isArray(session("UserID")) then sysErr(10)
Dim i,Action
Action=Request.QueryString("action")
If not Action="" Then If not Action="SaveData" then sysErr(20)
If Action="SaveData" Then
Dim Password,Cm
Dim Sex,HomePage,QQ,ICQ,MSN,UserName,Birthday,Comefrom
Password=Request.Form("Password")
Sex=Request.Form("Sex")
HomePage=Request.Form("HomePage")
QQ=Request.Form("QQ")
ICQ=Request.Form("ICQ")
MSN=Request.Form("MSN")
UserName=Request.Form("UserName")
Birthday=Request.Form("Birthday")
Comefrom=Request.Form("Comefrom")
If Sex="" Then Sex=0
If QQ="" Then QQ=0
If ICQ="" Then ICQ=0
If not ChkForm("Password",1) then sysErr(6)
If not ChkForm(Sex,0) then sysErr(6)
If not ChkForm(HomePage,1) then sysErr(6)
If not ChkForm(QQ,0) then sysErr(6)
If not ChkForm(ICQ,0) then sysErr(6)
If not ChkForm(MSN,1) then sysErr(6)
If not ChkForm(UserName,1) then sysErr(6)
If not ChkForm(Birthday,1) then sysErr(6)
If not ChkForm(Comefrom,1) then sysErr(6)
IF not isdate(Birthday) then sysErr(11)
Password=MD5(Password)
Set rs=Server.CreateObject("ADODB.Recordset")
Sql="SELECT * FROM NB_User WHERE ID="&Session("UserID")(0)
Rs.open Sql,conn,1,3
If Not rs.eof And Not Rs.Bof Then
If Rs("Reg_Pass")=Password Then
Rs.MoveFirst
Rs("Sex")=Sex
Rs("HomePage")=HomePage
Rs("QQ")=QQ
Rs("ICQ")=ICQ
Rs("MSN")=MSN
Rs("UserName")=UserName
Rs("Birtday")=Birthday
Rs("Comefrom")=Comefrom
Rs.Update
sysSus 3,""
Else
sysErr(3)
End If
End If
else
set rs=Conn.Execute("SELECT Email,Sex,HomePage,QQ,ICQ,MSN,UserName,Birtday,Comefrom From NB_User Where ID="&Session("UserID")(0))
if rs.EOf or rs.BOF then sysErr(9)
End If
%>
<html>
<head>
<link type='text/xml' rel='alternate' href='/Default.vsdisco'/>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=SysInfo(0)%></title>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="head.asp"-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25"> <img src="Images/IconLogin.gif" width="13" height="13" align="absmiddle"> <strong><a href="./"><%=SysInfo(0)%></a></strong> -> 修改基本资料</td>
</tr>
</table>
<table width="762" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#FFFFFF"><table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top"> <form action="?action=SaveData" method="post" name="reg" id="reg">
<table border=0 cellpadding=3 cellspacing=2 width="760" align=center>
<tr style="color:#000000">
<td bgcolor="#e6f0ff"> </td>
</tr>
</table>
<table align=center cellpadding="3" cellspacing="3" bgcolor="#FFFFFF">
<tbody>
<tr>
<td height="30" align="right" bgcolor="#FFFFFF" class="TableBorder2_1"> <font color="#333333" face="Webdings">4</font>请先输入您的密码</td>
<td height="30" bgcolor="#FFFFFF" class="TableBorder2_1"> <input name="Password" type="password" id="Password" class="LoginInput" size="15" maxlength="20">
<font color="#FF0000">*</font>[<font color="#999999">为了保护您的个人信息，您必须输入你的密码以通过身份验证</font>] </td>
</tr>
<tr>
<td height="25" align="right" class="TableBorder2_1">电子信箱 </td>
<td class="TableBorder2_1"><%=rs(0)%> </td>
</tr>
<tr>
<td height="25" align="right" class="TableBorder2_1" name=up>您的性别 </td>
<td class="TableBorder2_1">男
<input name="sex" type="radio" value="1" <%if rs(1)=True then response.write "checked"%>>
女
<input name="sex" type="radio" value="0" <%if rs(1)=False then response.write "checked"%>> </td>
</tr>
<tr>
<td height="24" align="right" class="TableBorder2_1">个人网站地址 </td>
<td class="TableBorder2_1"> <input name="HomePage" type="text" class="LoginInput" id="HomePage" value="<%=rs(2)%>" size="30" maxlength="50"></td>
</tr>
<tr>
<td height="25" align="right" class="TableBorder2_1">腾讯QQ号码 </td>
<td class="TableBorder2_1"> <input name="QQ" type="text" class="LoginInput" id="QQ" value="<%=rs(3)%>" size="15" maxlength="20"></td>
</tr>
<tr>
<td height="25" align="right" class="TableBorder2_1">ICQ号码 </td>
<td class="TableBorder2_1"> <input name="ICQ" type="text" class="LoginInput" id="ICQ" value="<%=rs(4)%>" size="15" maxlength="20"></td>
</tr>
<tr>
<td height="25" align="right" class="TableBorder2_1">MSN帐户 </td>
<td class="TableBorder2_1"> <input name="MSN" type="text" class="LoginInput" id="MSN" value="<%=rs(5)%>" size="20" maxlength="40"></td>
</tr>
<tr>
<td height="25" align="right" class="TableBorder2_1">真实姓名 </td>
<td class="TableBorder2_1"><input name="UserName" type="text" class="LoginInput" id="UserName" value="<%=rs(6)%>" size="15" maxlength="20"> </td>
</tr>
<tr>
<td height="25" align="right" class="TableBorder2_1">出生日期 </td>
<td class="TableBorder2_1"><input name="Birthday" type="text" class="LoginInput" id="Birthday" value="<%=rs(7)%>" size="15" maxlength="20"></td>
</tr>
<tr>
<td height="25" align="right" class="TableBorder2_1">来自 </td>
<td class="TableBorder2_1"> <textarea name="ComeFrom" cols="30" id="ComeFrom"><%=rs(8)%></textarea></td>
</tr>
</tbody>
</table>
<table width="100%">
<tr>
<td align="center"> <input type="submit" value="提交修改" name="acc" id="acc" class="LoginInput">
<input type="reset" value="清除重来" name="noacc" id="noacc" class="LoginInput"> </td>
</tr>
</table>
</form></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="footer.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -