📄 1modpaper1.asp
字号:
<%
if request("back")<>"" then
response.redirect "Paperxg.asp"
end if
Set objConn = Server.CreateObject ("ADODB.Connection")
strConnection = "Data Source = ks;"
strConnection = strConnection & "User ID =lili;Password=;"
objConn.Open strConnection
set objRS = CreateObject("ADODB.Recordset")
sql="Select * from TestPaper where PaperID="&Request.QueryString("PaperID")
objRS.open sql,objConn,2,3
id=objRS("PaperType")
dx=objRS("selectvalue")
du=objRS("multivalue")
tk=objRS("tkvalue")
pd=objRS("pdvalue")
fx=objRS("fxvalue")
if request("time")=1 then
objRS("PaperHeader")=Request("Title")
objRS("PaperDesc")=Request("Depiction")
objRS("TotalMark")=request("TotalScore")
objRS("TotalTime")=request("TotalTime")
objRS("Author")=request("csjr")
objRS("StartDate")=request("csjtime")
objRS.Update
end if
objRS.Close
%>
<html>
<form method=post action="ModPaper2.asp?PaperID=<%=request("PaperID")%>&time=1">
<div align="center">
<p> </p>
<p><font size="4" color="#FF0033"><b><font size="5">试卷结构</font></b></font></p>
<table width="90%" border="1" cellspacing="1" bordercolor="#9999FF" align="center">
<tr>
<td nowrap width="20%">
<div align="center"><font color="#0000FF"><b><font size="4" face="宋体">题型</font></b></font></div>
</td>
<td nowrap width="20%">
<div align="center"><b><font size="3" color="#0000FF">考核分数</font></b></div>
</td>
<td width="40%" nowrap>
<div align="center"><font size="3" color="#0000FF"><b>考核时间</b></font></div>
</td>
<td width="20%" nowrap>
<div align="center"><b><font size="3" color="#0000FF">题量</font></b></div>
</td>
</tr>
<tr>
<td width="16%" height="25">
<div align="center"><font size="3" color="#0000FF">单项选择题</font></div>
</td>
<td width="18%" height="25">
<div align="center">
<input type="text" name="dxfs" size="10" value="<%=dx%>">
</div>
</td>
<td width="24%" height="25">
<div align="center">
<input type="text" name="dxsj" size="10" value="0">
</div>
</td>
<td width="22%" height="25">
<div align="center">
<%
sql="select MAX(Order2) as order2 from Paper_Item where PaperID="&request.QueryString("PaperID")&" and Order1=1"
objRS.open sql,objConn
if not objRS.EOF then
Num=objRS("order2")
else
Num=0
end if
objRS.Close
%><input type="text" name="dxtl" size="10" value='<%= Num%>' readonly>
</div>
</td>
</tr>
<tr>
<td width="16%">
<div align="center"><font color="#0000FF">多项选择题</font></div>
</td>
<td width="18%">
<div align="center">
<input type="text" name="dufs" size="10" value="<%=du%>">
</div>
</td>
<td width="24%">
<div align="center">
<input type="text" name="dusj" size="10" value="0">
</div>
</td>
<td width="22%">
<div align="center">
<%
sql="select MAX(Order2) as order2 from Paper_Item where PaperID="&request.QueryString("PaperID")&" and Order1=2"
objRS.open sql,objConn
if not objRS.EOF then
Num=objRS("order2")
else
Num=0
end if
objRS.Close
%> <input type="text" name="dutl" size="10" value="<%=Num%>" readonly>
</div>
</td>
</tr>
<tr>
<td width="16%">
<div align="center"><font color="#0000FF">填空题</font></div>
</td>
<td width="18%">
<div align="center">
<input type="text" name="tkfs" size="10" value="<%=tk%>">
</div>
</td>
<td width="24%">
<div align="center">
<input type="text" name="tksj" size="10" value="0">
</div>
</td>
<td width="22%">
<div align="center">
<%
sql="select MAX(Order2) as order2 from Paper_Item where PaperID="&request.QueryString("PaperID")&" and Order1=3"
objRS.open sql,objConn
if not objRS.EOF then
Num=objRS("order2")
else
Num=0
end if
objRS.Close
%> <input type="text" name="tktl" size="10" value="<%= Num%>" readonly>
</div>
</td>
</tr>
<tr>
<td width="16%">
<div align="center"><font color="#0000FF">判断题</font></div>
</td>
<td width="18%">
<div align="center">
<input type="text" name="pdfs" size="10" value="<%=pd%>">
</div>
</td>
<td width="24%">
<div align="center">
<input type="text" name="pdsj" size="10" value="0">
</div>
</td>
<td width="22%">
<div align="center">
<%
sql="select MAX(Order2) as order2 from Paper_Item where PaperID="&request.QueryString("PaperID")&" and Order1=4"
objRS.open sql,objConn
if not objRS.EOF then
Num=objRS("order2")
else
Num=0
end if
objRS.Close
%>
<input type="text" name="pdtl" size="10" value="<%=Num%>" readonly>
</div>
</td>
</tr>
<tr>
<td width="16%">
<div align="center"><font color="#0000FF">分析题</font></div>
</td>
<td width="18%">
<div align="center">
<input type="text" name="fxfs" size="10" value="<%=fx%>">
</div>
</td>
<td width="24%">
<div align="center">
<input type="text" name="fxsj" size="10" value="0">
</div>
</td>
<td width="22%">
<div align="center">
<%
sql="select MAX(Order2) as order2 from Paper_Item where PaperID="&request.QueryString("PaperID")&" and Order1=5"
objRS.open sql,objConn
if not objRS.EOF then
Num=objRS("order2")
else
Num=0
end if
objRS.Close
%> <input type="text" name="fxtl" size="10" value="<%=Num%>" readonly>
</div>
</td>
</tr>
</table>
<table width="75%" border="0">
<tr>
<td height="50" width="43%" nowrap>
<div align="right">
<input type="submit" name="Submit" value="预览试卷">
</div>
</td>
<td height="50" width="8%" nowrap>
<div align="center">
<input type="submit" name="back" value="返回上一步">
</div>
</td>
<td height="50" width="49%">
<input type="reset" name="Submit2" value="重新设置">
</td>
<td height="50" width="49%">
<input type="submit" name="backhome" value="返回修改主页">
</td>
</tr>
</table>
<p> </p>
</div>
</form>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -