📄 userinfo.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户信息修改</title>
<link href="Style.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="inc/adovbs.asp"-->
<!--#include file="Inc/Conn.asp"-->
<!--#include file="inc/SQLCHK.asp"-->
<!--#include file="Inc/Check.asp"-->
<%
dim UserNameR, UserIDR, QuestionR, AnswerR, RealNameR, SexR, BirthdayR
dim IDCardR, EmailR, LinkMethodR, AddressR, MedHistoryR, MedRecordR, OtherInfoR
dim RS
set RS=Server.CreateObject("ADODB.RecordSet")
RS.ActiveConnection=Conn
If Request.QueryString("Action")="OK" Then
UserIDR = Request.Form("UserID")
QuestionR = Request.Form("Question")
AnswerR = Request.Form("Answer")
RealNameR = Request.Form("RealName")
SexR = Request.Form("Sex")
BirthdayR = Request.Form("Birthday")
IDCardR = Request.Form("IDCard")
EmailR = Request.Form("Email")
LinkMethodR = Request.Form("LinkMethod")
AddressR = Request.Form("Address")
MedHistoryR = Request.Form("MedHistory")
MedRecordR = Request.Form("MedRecord")
OtherInfoR = Request.Form("OtherInfo")
RS.Source = "Select * From [User] Where ID="&UserIDR
RS.CursorType = adOpenKeyset
RS.CursorLocation = adUseServer
RS.LockType = adLockOptimistic
RS.Open
RS("Question") = QuestionR
RS("Answer") = AnswerR
RS("RealName") = RealNameR
RS("Sex") = SexR
RS("Birthday") = BirthdayR
RS("IDCard") = IDCardR
RS("Email") = EmailR
RS("LinkMethod") = LinkMethodR
RS("Address") = AddressR
RS("MedHistory") = MedHistoryR
RS("MedRecord") = MedRecordR
RS("OtherInfo") = OtherInfoR
RS.Update
Response.write "<script language='javascript'>" & chr(13)
Response.write "alert('修改成功!')" & Chr(13)
Response.write "window.document.location.replace('Expert.asp');"&Chr(13)
Response.write "</script>" & Chr(13)
Response.end
End If
UserNameR = Session("Username")
RS.Source = "Select * From [USER] Where UserName='"&UserNameR&"'"
RS.CursorType = adOpenKeyset
RS.CursorLocation = adUseServer
RS.LockType = adLockReadOnly
RS.Open
UserIDR = RS("ID")
QuestionR = RS("Question")
AnswerR = RS("Answer")
RealNameR = RS("RealName")
SexR = RS("Sex")
BirthdayR = RS("Birthday")
IDCardR = RS("IDCard")
EmailR = RS("Email")
LinkMethodR = RS("LinkMethod")
AddressR = RS("Address")
MedHistoryR = RS("MedHistory")
MedRecordR = RS("MedRecord")
OtherInfoR = RS("OtherInfo")
RS.close
RS=nothing
ConnClose()
%>
<!--#include file="Inc\Head.asp"-->
<table width="772" height="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="11" background="Image/LeftMargin.gif"></td>
<td width="750" background="Image/BGBlock.gif"><br>
<script LANGUAGE="JavaScript" SRC="CheckForm.js"></script>
<script LANGUAGE="JavaScript" SRC="Calendar.JS"></script>
<FORM name='UserInfo' action='UserInfo.asp?Action=OK' method='Post' onSubmit="return CheckForm(this)">
<input name="UserID" type="hidden" value="<%=UserIDR%>">
<table width="600" border="0" ALIGN="center" cellpadding=5 cellspacing=1 class="TableInfo">
<tr>
<td height="50" colspan="2" align="center"><span class="TextTitle">用户信息</span></td>
</tr>
<tr>
<td width="197"> 用户名:</td>
<td width="378"><Input NAME="UserName" ID="UserName" value="<%=UserNameR%>" SIZE="20" maxLength="14" disabled class="Input">
</td>
</tr>
<tr>
<td> 密码提示问题:</td>
<td><INPUT NAME="Question" type=text maxLength="50" size="30" value="<%=QuestionR%>" check="\S{1,}" warning="密码提示问题不能为空" class="Input"><font COLOR="#FF0000"><strong>*</strong></font></td>
</tr>
<tr>
<td> 问题答案:</td>
<td><INPUT NAME="Answer" type=text maxLength="20" size="30" value="<%=AnswerR%>"check="\S{1,}" warning="问题答案不能为空" class="Input"><font COLOR="#FF0000"><strong>*</strong></font></td>
</tr>
<tr>
<td> 真实姓名:</td>
<td><Input NAME="RealName" ID="RealName" SIZE="20" maxLength="14" value="<%=RealNameR%>" check="[\u4e00-\u9fa5]{2,}" warning="姓名必须为汉字,且至少有2个" class="Input"><font COLOR="#FF0000"><strong>*</strong></font></td>
</tr>
<tr>
<td> 性别:</td>
<TD>
<%If SexR="男" Then%>
<INPUT TYPE="radio" checked VALUE="男" NAME="Sex">男
<INPUT TYPE="radio" VALUE="女" NAME="Sex">女<font COLOR="#FF0000"><strong>*</strong></font>
<%Else%>
<INPUT TYPE="radio" VALUE="男" NAME="Sex">男
<INPUT TYPE="radio" checked VALUE="女" NAME="Sex">女<font COLOR="#FF0000"><strong>*</strong></font>
<%End If%>
</TD>
</tr>
<tr>
<td> 出生年月:</td>
<td><Input NAME="Birthday" ID="Birthday" onClick="javascript:ShowCalendar(this.id)" value="<%=BirthdayR%>" SIZE="20" maxLength="14" check="^\d{4}\-\d{1,2}-\d{1,2}$" warning="日期格式2004-08-10" class="Input">
<font COLOR="#FF0000"><strong>*</strong></font></td>
</tr>
<tr>
<td> 身份证号:</td>
<td><Input NAME="IDCard" ID="IDCard" SIZE="30" maxLength="18" value="<%=IDCardR%>" checkEx="IDCard" class="Input"><font COLOR="#FF0000"><strong>*</strong></font></td>
</tr>
<tr>
<td> E-mail:</td>
<td><Input NAME="Email" ID="Email" SIZE="20" maxLength="256" value="<%=EmailR%>" check="^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$" warning="Email地址不合法!" class="Input"><font COLOR="#FF0000"><strong>*</strong></font></td>
</tr>
<tr>
<td> 联系方式:</td>
<td><Input NAME="LinkMethod" ID="LinkMethod" SIZE="20" maxLength="14" value="<%=LinkMethodR%>" check="^\d+$" Ignore="True" warning="电话号码含有非法字符" class="Input"></td>
</tr>
<tr>
<td> 家庭住址:</td>
<td><Input NAME="Address" ID="Address" SIZE="20" maxLength="14" value="<%=AddressR%>" class="Input"></td>
</tr>
<tr>
<td> 以往病史:</td>
<td><textarea NAME="MedHistory" cols="40" rows="4" WRAP="VIRTUAL" class="Input" value="<%=MedHistoryR%>"></textarea></td>
</tr>
<tr>
<td> 用药记录:</td>
<td><textarea NAME="MedRecord" cols="40" rows="4" WRAP="VIRTUAL" value="<%=MedRecordR%>" class="Input"></textarea></td>
</tr>
<tr>
<td> 其他:</td>
<td><textarea NAME="OtherInfo" cols="40" rows="4" WRAP="VIRTUAL" value="<%=OtherInfoR%>" class="Input"></textarea></td>
</tr>
<tr>
<td colspan="2" align="center"><INPUT NAME="Modify" type=submit ID="Modify" VALUE="提 交 修 改" class="Input"></td>
</tr>
</table>
</form>
</td>
<td width="11" background="Image/RightMargin.gif"></td>
</tr>
</table>
<!--#include file="Inc/Trail.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -