📄 useredit.asp
字号:
<!--#include file="..\pub\ChkAdmin.asp"-->
<!--#include file="..\CONN.INC"-->
<html>
<head>
<title>User Register</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="..." type="text/css">
<link rel="stylesheet" href="..." type="text/css">
</head>
<body bgcolor="#FFFFFF" topmargin="8">
<%
Sqlstring="select u.* from UserInfo u where u.UserID="&Request("UserID")
set rs=Conn.execute(Sqlstring)
if rs.eof then
response.write "参数调用错误，请安BackSpace返回"
response.end
end if
Sqlstring="select d.* from DriverInfo d"
set rss=Conn.execute(Sqlstring)
DriverInfo="<Select name=DriverID>"
while not rss.eof
DriverInfo=DriverInfo&"<option value="&rss("DriverID")&">"&rss("DriverName")&"</option>"
rss.movenext
wend
DriverInfo=DriverInfo&"</select>"
set rss=nothing
if rs("UserType")="1" then CHK1="selected"
if rs("UserType")="2" then
CHK2="selected"
INITSTR=DriverInfo
end if
if rs("UserType")="3" then CHK3="selected"
Response.write "<table border=1 width=700>"
response.write "<form name=UserForm action=UserEdit_OK.asp method=post>"
response.write "<tr><td><input type=hidden name=UserID value="&rs("UserID")&"></td></tr>"
response.write "<tr><td>用户姓名</td><td><input name=RealName value="&rs("RealName")&"></td></tr>"
response.write "<tr><td>账号名称</td><td><input name=UserName value="&rs("UserName")&"></td></tr>"
response.write "<tr><td>账号密码</td><td><input name=Password value="&rs("Password")&"></td></tr>"
response.write "<tr><td>登记日期</td><td><input name=RegDate value="&rs("RegDate")&"></td></tr>"
str="<tr><td>用户类别</td><td><select name=UserType onchange=UserTypeChange()><option value=1 "&CHK1&">系统管理员</option><option value=2 "&CHK2&">司机</option><option value=3 "&CHK3&">普通系统用户</option></select><span id=HiddenLayer>"&INITSTR&"</span></td></tr>"
response.write str
response.write "<tr><td>所属单位</td><td><input name=Affiliation value="&rs("Affiliation")&"></td></tr>"
response.write "</tr>"
response.write "</table>"
response.write "<br>"
response.write "<table width=700>"
response.write "<tr><td><center><input type=submit value=确认更改></center></td></tr>"
response.write "</table>"
response.write "</form>"
%>
</body>
</html>
<script>
function UserTypeChange()
{
if (UserForm.UserType.value==2 )
{
HiddenLayer.innerHTML="<%=DriverInfo%>";
}
else
{
HiddenLayer.innerHTML="";
}
}
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -