📄 users.asp.bak
字号:
<html>
<head>
<title>选择试卷</title>
</head>
<body background="../images/bkg35.jpg">
<%
dim strtoday
dim weekarray(6)
dim thisyear
dim thismonth
dim thisday
weekarray(0)="星期天"
weekarray(1)="星期一"
weekarray(2)="星期二"
weekarray(3)="星期三"
weekarray(4)="星期四"
weekarray(5)="星期五"
weekarray(6)="星期六"
thisyear=year(date) & "年"
thismonth=month(date)
if thismonth<10 then thismonth="0" & thismonth
thismonth=thismonth & "月"
thisday=day(date)
if thisday<10 then thisday="0" & thisday
thisday=thisday & "日"
strtoday="<font color=red>" & thisyear & thismonth & thisday
strtoday=strtoday & " " & weekarray(weekday(date)-1) & "</font>"
response.write strtoday
yhm=session("user")
%>
<h1 align="center"><font color="#FF0000">用 户 浏 览</font></h1>
<h2 align="center">超级用户</h2>
<div align="center">
<form action="test.asp" id="FORM1" method="post" name="FORM1">
<div align="center"><center>
<table border="1" width="80%" height="136">
<tr>
<th width="9%" height="16"><font color="#0000FF">编 号</font></th>
<th width="26%" height="16"><font color="#0000FF">用 户 名</font></th>
<th width="12%" height="16"><font color="#0000FF">密 码</font></th>
<th width="17%" height="16"><font color="#0000FF">用户权限</font></th>
</tr>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../试题库.mdb")
set rs= server.createobject("adodb.recordset")
sql="select * from 超级用户"
set base=conn.execute(sql)
'base.movefirst
i=0
do while not base.eof
zhh=base("ID")
i=i+1
papername=base("用户名")
chji=base("密码")
danwei=base("权限")
%>
<tr>
<td width="9%" height="20" align="center"><%=i%></td>
<td width="26%" height="20" align="center"><%=papername%></a></td>
<td width="12%" height="20" align="center"><%=chji%></td>
<td width="17%" height="20" align="center"><%=danwei%></td>
</tr>
<%
base.movenext
loop
%>
</table>
</center></div>
</form>
<table border="0" width="100%">
<tr>
<td width="100%" checked="false"><h2 align="center">单位用户</h2>
</td>
</tr>
</table>
<div align="center">
<form action="test.asp" id="FORM4" method="post" name="FORM1">
<div align="center"><center><table border="1" width="80%" height="136">
<tr>
<th width="9%" height="16"><font color="#0000FF">编 号</font></th>
<th width="26%" height="16"><font color="#0000FF">用 户 名</font></th>
<th width="12%" height="16"><font color="#0000FF">密 码</font></th>
<th width="17%" height="16"><font color="#0000FF">用户权限</font></th>
</tr>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../试题库.mdb")
set rs= server.createobject("adodb.recordset")
sql="select * from 单位记录"
set base=conn.execute(sql)
i=0
'base.movefirst
do while not base.eof
zhh=base("ID")
i=i+1
papername=base("用户名")
chji=base("密码")
danwei=base("权限")
%>
<tr>
<td width="9%" height="20" align="center"><%=i%></td>
<td width="26%" height="20" align="center"><%=papername%></a></td>
<td width="12%" height="20" align="center"><%=chji%></td>
<td width="17%" height="20" align="center"><%=danwei%></td>
</tr>
<%
base.movenext
loop
%>
</table>
</center></div>
</form>
<table border="0" width="100%">
<tr>
<td width="100%" checked="false"><h2 align="center">一般用户</h2></td>
</tr>
</table>
<form action="test.asp" id="FORM5" method="post" name="FORM1">
<div align="center"><center><table border="1" width="80%" height="136">
<tr>
<th width="9%" height="16"><font color="#0000FF">编 号</font></th>
<th width="26%" height="16"><font color="#0000FF">用 户 名</font></th>
<th width="12%" height="16"><font color="#0000FF">密 码</font></th>
<th width="17%" height="16"><font color="#0000FF">用户权限</font></th>
</tr>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../试题库.mdb")
set rs= server.createobject("adodb.recordset")
sql="select * from 用户记录"
set base=conn.execute(sql)
i=0
'base.movefirst
do while not base.eof
zhh=base("ID")
i=i+1
papername=base("用户名")
chji=base("密码")
danwei=base("权限")
%>
<tr>
<td width="9%" height="20" align="center"><%=i%></td>
<td width="26%" height="20" align="center"><%=papername%></a></td>
<td width="12%" height="20" align="center"><%=chji%></td>
<td width="17%" height="20" align="center"><%=danwei%></td>
</tr>
<%
base.movenext
loop
%>
</table>
</center></div>
</form>
<div align="center"><center>
<table border="0" width="100%">
<tr>
<th width="100%"><a href="idmanage.asp"><img src="../Images/back.bmp" alt="b5.jpg (1795 bytes)"></a><p> </th>
</tr>
</table>
</center></div>
<table border="0" width="100%">
<tr>
<td width="100%"><font face="宋体" color="#FF0000"><strong><marquee border="0">欢
迎 使 用 网 络 考 试 系 统1.0版！</marquee></strong></font></td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -