📄 paperxg.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="ModPaper.asp" name=form1>
<table width="85%" border="1" align="center" bordercolor="#6666FF" cellspacing="0" height="39">
<tr>
<td width="5%" nowrap height="13">
<div align="center">标记</div>
</td>
<td width="10%" nowrap height="13">
<div align="center">试卷类型</div>
</td>
<td width="20%" nowrap height="13">
<div align="center">试卷标题</div>
</td>
<td width="20%" nowrap height="13">
<div align="center">试卷描述</div>
</td>
<td width="20%" nowrap height="13">
<div align="center">出题时间</div>
</td>
<td width="5%" nowrap height="13">
<div align="center">使用次数</div>
</td>
<td width="5%" nowrap height="13">
<div align="center">试卷总分</div>
</td>
<td width="5%" nowrap height="13">
<div align="center">试卷用时</div>
</td>
<td width="5%" nowrap height="13">
<div align="center">试卷内容</div>
</td>
</tr>
<% sel=1
sql="Select * from TestPaper where SelectCourseID="&Session("course_id")&" and Author='"&Session("Username")&"' and Status=0"
objRS.open sql,objConn
while not objRS.EOF
%>
<tr>
<td height="14" width="5%">
<%if sel=1 then%>
<input type="radio" name="mark" value="<%=objRS("PaperID")%>" checked>
<%sel=0%>
<%else%>
<input type="radio" name="mark" value="<%=objRS("PaperID")%>">
<%end if%>
</td>
<td height="14" width="14%"> <%if objRS("PaperType")=1 then%> 固定试卷 <%else%>
随机试卷 <%end if%> </td>
<td height="14" width="10%"> <%=objRS("PaperHeader")%> </td>
<td height="14" width="10%"> <%=objRS("PaperDesc")%> </td>
<td height="14" width="10%"> <%=objRS("StartDate")%> </td>
<td height="14" width="10%"> <%=objRS("PaperDegree")%> </td>
<td height="14" width="10%"> <%=objRS("TotalMark")%> </td>
<td height="14" width="15%"> <%=objRS("TotalTime")%> </td>
<td height="14" width="16%"> <a href="./ShowPaperID.asp?PaperID=<%=objRS("PaperID")%>" target='_blank'><%=objRS("PaperID")%></a>
<%if objRS("PaperType")=2 then%>
<input type="hidden" name="type" value="2">
<%end if%>
</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="31%" nowrap>
<div align="right">
<input type="submit" name="Submit" value="修改试卷">
</div>
</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 + -