gdsjstep2.asp
来自「这是用asp做的一个网上考试题库系统」· ASP 代码 · 共 219 行
ASP
219 行
<%
if request.QueryString("time")=1 then
Session("Title")=Request.Form("Title")
Session("Depiction")=Request.Form("Depiction")
Session("TotalScore")=Request.Form("TotalScore")
Session("TotalTime")=Request.Form("TotalTime")
Session("csjr")=Request.Form("csjr")
Session("csjtime")=Request.Form("csjtime")
end if
PaperItemID=Session("PaperItemArray")
%>
<html>
<form method=post action="ShowPaper.asp?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="16%">
<div align="center"><font color="#0000FF"><b><font size="4" face="宋体">题型</font></b></font></div>
</td>
<td nowrap width="18%">
<div align="center"><b><font size="3" color="#0000FF">考核分数</font></b></div>
</td>
<td width="24%" nowrap>
<div align="center"><font size="3" color="#0000FF"><b>考核时间</b></font></div>
</td>
<td width="22%" nowrap>
<div align="center"><b><font size="3" color="#0000FF">题量</font></b></div>
</td>
<td width="20%" nowrap>
<div align="center"><b><font color="#0000FF" size="3">选择试题</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=<%if Session("dxfs")<>"" then response.Write Session("dxfs") else response.Write "0" end if%>>
</div>
</td>
<td width="24%" height="25">
<div align="center">
<input type="text" name="dxsj" size="10" value=<%if Session("dxsj")<>"" then response.Write Session("dxfs") else response.Write "0" end if%>>
</div>
</td>
<td width="22%" height="25">
<div align="center">
<%FF=1
Num=0
do while FF<=50 and PaperItemID(1,FF)<>-1
if PaperItemID(1,FF)<>0 then
Num=Num+1
end if
FF=FF+1
loop
%><input type="text" name="dxtl" size="10" value='<%= Num%>' readonly>
</div>
</td>
<td width="20%" height="25">
<div align="center"><font color="#0000FF"><a href="./selItem.asp?tx=1">查询选择试题</a></font></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="<%if Session("dufs")<>"" then response.Write Session("dufs") else response.Write "0" end if%>">
</div>
</td>
<td width="24%">
<div align="center">
<input type="text" name="dusj" size="10" value=<%if Session("dxsj")<>"" then response.Write Session("dxfs") else response.Write "0" end if%>>
</div>
</td>
<td width="22%">
<div align="center">
<%FF=1
Num=0
do while FF<=50 and PaperItemID(2,FF)<>-1
if PaperItemID(2,FF)<>0 then
Num=Num+1
end if
FF=FF+1
loop
%>
<input type="text" name="dutl" size="10" value="<%=Num%>" readonly>
</div>
</td>
<td width="20%">
<div align="center"><font color="#0000FF"><a href="./selItem.asp?tx=2">查询选择试题</a></font></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="<%if Session("tkfs")<>"" then response.Write Session("tkfs") else response.Write "0" end if%>">
</div>
</td>
<td width="24%">
<div align="center">
<input type="text" name="tksj" size="10" value=<%if Session("tksj")<>"" then response.Write Session("dxfs") else response.Write "0" end if%>>
</div>
</td>
<td width="22%">
<div align="center">
<%FF=1
Num=0
do while FF<=50 and PaperItemID(3,FF)<>-1
if PaperItemID(3,FF)<>0 then
Num=Num+1
end if
FF=FF+1
loop
%>
<input type="text" name="tktl" size="10" value="<%= Num%>" readonly>
</div>
</td>
<td width="20%">
<div align="center"><font color="#0000FF"><a href="./selItem.asp?tx=3">查询选择试题</a></font></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="<%if Session("pdfs")<>"" then response.Write Session("pdfs") else response.Write "0" end if%>">
</div>
</td>
<td width="24%">
<div align="center">
<input type="text" name="pdsj" size="10" value=<%if Session("pdsj")<>"" then response.Write Session("dxfs") else response.Write "0" end if%>>
</div>
</td>
<td width="22%">
<div align="center">
<%FF=1
Num=0
do while FF<=50 and PaperItemID(4,FF)<>-1
if PaperItemID(4,FF)<>0 then
Num=Num+1
end if
FF=FF+1
loop
%>
<input type="text" name="pdtl" size="10" value="<%=Num%>" readonly>
</div>
</td>
<td width="20%">
<div align="center"><font color="#0000FF"><a href="./selItem.asp?tx=4">查询选择试题</a></font></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=<%if Session("fxfs")<>"" then response.Write Session("fxfs") else response.Write "0" end if%>>
</div>
</td>
<td width="24%">
<div align="center">
<input type="text" name="fxsj" size="10" value=<%if Session("fxsj")<>"" then response.Write Session("fxsj") else response.Write "0" end if%>>
</div>
</td>
<td width="22%">
<div align="center">
<%FF=1
Num=0
do while FF<=50 and PaperItemID(5,FF)<>-1
if PaperItemID(5,FF)<>0 then
Num=Num+1
end if
FF=FF+1
loop
%>
<input type="text" name="fxtl" size="10" value="<%=Num%>" readonly>
</div>
</td>
<td width="20%">
<div align="center"><font color="#0000FF"><a href="./selItem.asp?tx=5">查询选择试题</a></font></div>
</td>
</tr>
</table>
<table width="75%" border="0">
<tr>
<td height="50" width="47%" nowrap>
<div align="right">
<input type="submit" name="Submit" value="预览试卷">
</div>
</td>
<td height="50" width="7%" nowrap> </td>
<td height="50" width="46%">
<input type="reset" name="Submit2" value="重新设置">
</td>
</tr>
</table>
<p> </p>
</div>
</form>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?