?? 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 + -