usernew.asp
来自「网上车辆管理系统」· ASP 代码 · 共 52 行
ASP
52 行
<!--#include file="..\pub\ChkAdmin.asp"-->
<!--#include file="..\CONN.INC"-->
<html>
<head>
<title>Driver 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 d.* from DriverInfo d where d.UserID is null"
set rs=Conn.execute(Sqlstring)
DriverInfo="<Select name=DriverID>"
while not rs.eof
DriverInfo=DriverInfo&"<option value="&rs("DriverID")&">"&rs("DriverName")&"</option>"
rs.movenext
wend
DriverInfo=DriverInfo&"</select>"
set rs=nothing
Response.write "<table border=1 width=700>"
response.write "<form name=UserForm action=UserNew_OK.asp method=post>"
response.write "<tr><td>用户姓名</td><td><input name=RealName></td></tr>"
response.write "<tr><td>账号名称</td><td><input name=UserName></td></tr>"
response.write "<tr><td>账号密码</td><td><input name=Password></td></tr>"
response.write "<tr><td>登记日期</td><td><input name=RegDate ></td></tr>"
response.write "<tr><td>用户类别</td><td><select name=UserType onchange=UserTypeChange()><option value=1>系统管理员</option><option value=2>司机</option><option value=3>普通系统用户</option></select><span id=HiddenLayer></span></td></tr>"
response.write "<tr><td>所属单位</td><td><input name=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 + =
减小字号Ctrl + -
显示快捷键?