📄 paperwh.asp
字号:
<%
Set objConn = Server.CreateObject ("ADODB.Connection")
strConnection = "Data Source = ks;"
strConnection = strConnection & "User ID =lili;Password=;"
objConn.Open strConnection
set objRS = CreateObject("ADODB.Recordset")
%>
<html>
<style>
.bodyStyle {font-family: "Verdana", "Arial";
font-size: 10pt;
color: #00309c}
.bodyStyle2 {margin-left:12pt;
background-image: url('../djst/share/blue_gradient.jpg');
background-attachment: fixed;
color: #00309c;
width:532px; font-style:normal; font-variant:normal; font-weight:normal; font-size:10pt; font-family:Verdana, Arial}
A:HOVER {
text-decoration: none }
A:LINK { text-decoration: none }
A:ACTIVE {
text-decoration: none }
A:VISITED { text-decoration: none }
TABLE {margin-right: 20pt;
font-size: 10pt;
font-family: "Verdana", "Arial"}
.active {font-weight: bold;
color: #00309c}
.active2 {font-weight: bold;
color: #405040}
.visited {font-weight: normal;
color: #405040 }
.1 {margin-left: 0pt}
.2 {margin-left: 16pt;
width: 100pt}
.3 {margin-left: 32pt;
width: 90pt}
.4 {margin-left: 45pt;
width: 50pt}
</style>
<table width="75%" border="0" align="center">
<tr>
<td width="33%">
<div align="center"><a href="./Paperwh.asp">试卷状态维护</a></div>
</td>
<td width="34%">
<div align="center"><a href="./Paperxg.asp">试卷修改</a></div>
</td>
<td width="33%">
<div align="center"><a href="Paperdel.asp">试卷删除</a></div>
</td>
</tr>
</table>
<p> </p>
<body class=bodyStyle2 bgcolor=#FFFFCC>
<form method=post action="statusmod.asp" name=form1>
<table width="100%" border="1" align="center" bordercolor="#6666FF" cellspacing="0" height="39">
<tr>
<td width="6%" nowrap>
<div align="center">标记</div>
</td>
<td width="6%" nowrap>
<div align="center">试卷类型</div>
</td>
<td width="17%" nowrap>
<div align="center">试卷标题</div>
</td>
<td width="18%" nowrap>
<div align="center">试卷描述</div>
</td>
<td width="16%" nowrap>
<div align="center">出题时间</div>
</td>
<td width="14%" nowrap>
<div align="center">锁定状态</div>
</td>
<td width="14%" nowrap>
<div align="center">可见状态</div>
</td>
<td width="15%" nowrap>
<div align="center">试卷内容</div>
</td>
</tr>
<% sql="Select * from TestPaper where SelectCourseID="&Session("course_id")&" and Author='"&Session("Username")&"'"
objRS.open sql,objConn
if not objRS.BOF then
objRS.MoveFirst
end if
while not objRS.EOF
%>
<tr>
<td>
<input type="checkbox" name="mark" value="<%=objRS("PaperID")%>">
</td>
<td>
<%if objRS("PaperType")=1 then%>
固定试卷
<%else%>
随机试卷
<%end if%>
</td>
<td>
<%=objRS("PaperHeader")%> </td>
<td>
<%=objRS("PaperDesc")%> </td>
<td>
<%=objRS("StartDate")%> </td>
<% select case objRS("Status")
case 0
%>
<td>
无锁定
</td>
<td>
可见
</td>
<%
case 1%>
<td>
锁定
</td>
<td>
可见
</td>
<% case 2%>
<td>
无锁定
</td>
<td>
不可见
</td>
<% case 3%>
<td>
锁定
</td>
<td>
不可见
</td>
<% end select%>
<td>
<a href="./ShowPaperID.asp?PaperID=<%=objRS("PaperID")%>" target='_blank'><%=objRS("PaperID")%></a> </td>
</tr>
<% objRS.MoveNext
wend
objRS.Close
%>
</table>
</body>
<table width="104%" border="0">
<tr>
<td> </td>
</tr>
</table>
<table width="75%" border="0" align="center">
<tr>
<td width="35%" nowrap>
<div align="right">
<input type="submit" name="lock" value="设置锁定状态">
</div>
</td>
<td width="17%" nowrap>
<div align="right">
<input type="submit" name="unlock" value="取消锁定状态">
</div>
</td>
<td width="17%" nowrap>
<div align="left">
<input type="submit" name="visible" value="设置不可见状态">
</div>
</td>
<td width="31%" nowrap>
<input type="submit" name="invisible" value="取消不可见状态">
</td>
<td width="31%" nowrap>
<input type="reset" name="Reset" value="重新选择">
</td>
<td width="31%" nowrap>
<input type="submit" name="back" value="返回主控界面">
</td>
</tr>
</table>
</form>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -