📄 modifyinfo.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>欢迎光临本图书馆</title>
<Link href="Css.css" rel=stylesheet>
</head>
<!--#include file="Conn.asp"-->
<!--#include file="Function.asp"-->
<body topmargin="0" leftmargin="0">
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><img src="Images/title.jpg" width="283" height="51"></td>
</tr>
<tr>
<td height="25" ><table width="780" border="0" bgcolor="#EFEFEF" align="center" cellpadding="0" cellspacing="0" style="border-color:#000000;border-top-style: solid;border-top-width: 1">
<tr>
<td height="25" bgcolor="#EFEFEF"> <a href="Default.asp">首页 </a>|<a href="Login.asp"> 登录 </a>|<a href="Regist.asp"> 注册 </a>|<a href="AdminLogin.asp"> 管理 </a>
<% If Session("name") <> "" Then %>
│<a href="BorrowBook.asp"> 用户借书记录 </a>│<a href="UserInfo.asp"> 个人资料 </a>|<a href="ModifyInfo.asp"> 修改信息 </a>|<a href="Logout.asp"> 退出 </a>
<% End If %>
</td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" style="border-color:#000000;border-bottom-style: solid;border-bottom-width: 1;border-top-style: solid;border-top-width: 1">
<tr>
<td height="25" background="Images/bg.gif"> 当前位置：修改个人资料页</td>
</tr>
</table></td>
</tr>
<tr>
<td height="25" align="right">
</td>
</tr>
<% Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From userInfo Where name = '"&Session("name")&"'"
Rs.Open Sql,conn,3,3
%>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#44608A" ID="Table1">
<tr align="center">
<td height="25" colspan="2" background="Images/bg.gif"><font color="#FFFFFF"><b>
<% Response.Write Session("name") %>，个人资料修改</b></font></td>
</tr>
<form method="POST" action="ModifyInfo.asp?action=ChangeInfo" name="form1" >
<tr bgcolor="#FFFFFF">
<td width="40%" height="25" align="right" bgcolor="#FFFFFF">用户名:</td>
<td width="60%" bgcolor="#FFFFFF"> <%=Session("name")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="40%" height="25" align="right" bgcolor="#FFFFFF">原始密码:</td>
<td width="60%" bgcolor="#FFFFFF"> <input type="password" name="pwd1" value="<%=Rs("pwd")%>">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="40%" height="25" align="right" bgcolor="#FFFFFF">新密码:</td>
<td width="60%" bgcolor="#FFFFFF"> <input type="password" name="pwd2"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="40%" height="25" align="right" bgcolor="#FFFFFF">新密码确认:</td>
<td width="60%" bgcolor="#FFFFFF"> <input type="password" name="pwd3"></td>
</tr>
<tr>
<td width="40%" height="25" align="right" bgcolor="#FFFFFF">性别：</td>
<td width="60%" bgcolor="#FFFFFF"> <input name="gender" type="radio" value="1" checked>
<img src="Images/boy.gif" width="32" height="32">
<input type="radio" name="gender" value="0" <% If Rs("gender")="0" Then Response.Write "checked" %>>
<img src="Images/girl.gif" width="32" height="32"> </td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF">电子邮箱：</td>
<td bgcolor="#FFFFFF"> <input type="text" name="email" value=<%=Rs("email")%>></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF">QQ号码：</td>
<td bgcolor="#FFFFFF"> <input type="text" name="qq" value=<%=Rs("qq")%>></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF">注册时间：</td>
<td bgcolor="#FFFFFF"> <%=Rs("reg_time")%></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF">最后登录时间：</td>
<td bgcolor="#FFFFFF"> <%=Rs("login_time")%></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF">电话：</td>
<td bgcolor="#FFFFFF"> <input type="text" name="tel" value=<%=Rs("tel")%>></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF">工作单位：</td>
<td bgcolor="#FFFFFF"> <input type="text" name="department" value=<%=Rs("department")%>></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF">单位地址：</td>
<td bgcolor="#FFFFFF"> <input type="text" name="deaddress" value=<%=Rs("deaddress")%>></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF">家庭住址：</td>
<td bgcolor="#FFFFFF"> <input type="text" name="hoaddress" value=<%=Rs("hoaddress")%>></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF">邮编：</td>
<td bgcolor="#FFFFFF"> <input type="text" name="post" value=<%=Rs("post")%>></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF">身份证号码：</td>
<td bgcolor="#FFFFFF"> <input type="text" name="number" value=<%=Rs("number")%>></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#FFFFFF">上传照片：</td>
<td bgcolor="#FFFFFF"> <input type="file" size="60" name="imagespath" value="" ID="File1"></td>
</tr>
<tr>
<td height="30" colspan="2" align="center" bgcolor="#FFFFFF">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="reset" value="重置"></td>
</tr>
</form>
</table></td>
</tr>
<% Rs.Close
Set Rs = nothing
%>
<% If Request("action") = "ChangeInfo" Then
Call SaveChange()
End If
%>
<% Sub SaveChange()
Dim pwd2
Dim pwd3
Dim gender
Dim email
Dim qq
Dim tel
Dim department
Dim deaddress
Dim hoaddress
Dim post
Dim number
Dim images
pwd2 = Trim(Request.Form("pwd2"))
pwd3 = Trim(Request.Form("pwd3"))
gender = Trim(Request.Form("gender"))
email = Trim(Request.Form("email"))
qq = Trim(Request.Form("qq"))
tel = Trim(Request.Form("tel"))
department = Trim(Request.Form("department"))
deaddress = Trim(Request.Form("deaddress"))
hoaddress = Trim(Request.Form("hoaddress"))
post = Trim(Request.Form("post"))
number = Trim(Request.Form("number"))
images = Request.Form("imagespath")
If images<>"" Then
upImages(images)
End If
If tel = "" Then
Response.Write "<Script>alert('请输入您的电话！');history.go(-1);</Script>"
Response.End
ElseIf number = "" Then
Response.Write "<Script>alert('请输入您的身份证号码！');history.go(-1);</Script>"
Response.End
ElseIf IsNumeric(number) = false Then
Response.Write "<Script>alert('输入的身份证号码只能为数字！');history.go(-1);</Script>"
Response.End
ElseIf pwd2 = "" Or pwd3="" Then
Response.Write "<Script>alert('请输入新密码或输入密码确认！');history.go(-1);</Script>"
Response.End
ElseIf pwd2 <> pwd3 Then
Response.Write "<Script>alert('两次输入的密码不相同！');history.go(-1);</Script>"
Response.End
ElseIf Len(pwd2) < 6 Or Len(pwd3) < 6 Then
Response.Write "<Script>alert('密码项或重复密码项少于6位！');history.go(-1);</Script>"
Response.End
ElseIf qq <> "" And IsNumeric(qq) = false Then
Response.Write "<Script>alert('输入的QQ号码只能为数字！');history.go(-1);</Script>"
Response.End
Else
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From userInfo Where name = '"&Session("name")&"'"
Rs.Open Sql,conn,3,3
Rs("pwd") = pwd2
Rs("gender") = gender
Rs("images") = GetFileName(images)
Rs("email") = email
Rs("qq") = qq
Rs("tel") = tel
Rs("department") = department
Rs("reg_time") = Now()
Rs("deaddress") = deaddress
Rs("hoaddress") = hoaddress
Rs("post") = post
Rs("number") = number
Rs.Update
id = Rs("id")
Session.Abandon
Response.Redirect "login.asp"
End If
Rs.Close
Set Rs=nothing
Conn.close
Set Conn=nothing
End Sub
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -