📄 allselect.asp
字号:
<html>
<head>
<title>选择试卷</title>
</head>
<body bgcolor="#C0C0C0">
<%
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
%>
<h2 align=center>请选择相关类型试卷</h2>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#777272" width="100%" id="AutoNumber2">
<%
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)
do while not base.eof
papername=base("试卷名称")
chji=base("总分")
danwei=base("时间")
%>
<tr>
<td width="26%" height="20" align="center"><a href="os.asp?papername=<%=papername%>"><%=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>
</table>
<td><a href="../papermanage/selfscore.asp"><h2>查看自己历史得分情况</h2></a></td>
</center>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -