📄 mod showpaperid.asp
字号:
WriteTemp
WriteTx
Response.Write "</td></tr>"
end if
while not objRS.EOF
select case tx
case 1
tt="../tjst/Temp1/"
case 2
tt="../tjst/Temp3/"
case 3
tt="../tjst/Temp2/"
case 4
tt="../tjst/Temp4/"
case 5
tt="../tjst/Temp5/"
end select
%>
<td width="12%" height="34" nowrap> <%=objRS("Order2")%>、 </td>
<%if objRS("STNR")<>"" then%>
<td width="88%" height="34" nowrap>
<table width="95%"><%=objRS("STNR")%></table></td>
</tr>
<%else%>
<td width="12%" height="34" nowrap>
<p align=center>
<a href="<%=tt%><%=objRS("STWJ")%> " target="_blank" align="left" > 试题附件</a></p>
</td></tr>
<%end if%>
<%if ((objRS("STNR")<>"") and (objRS("STWJ")<>"")) then%>
<tr>
<td width="12%" height="34" nowrap> </td>
<td width="88%" height="16">
<p align=center>
<a href="<%=tt%><%=objRS("STWJ")%> " target="_blank" align="left" > 试题附件</a></p>
</td></tr>
<%end if%>
<%if tx<3 then%>
<tr>
<%if (objRS("xxA" )<>"") then%>
<td width="12%" nowrap height="3">
<div align="center">A</div>
</td>
<td width="88%" height="3">
<table width="90%"><%=objRS("xxA")%></table></td>
</tr>
<% else%>
<td width="12%" nowrap height="118">
<div align="center">
A</div>
</td>
<td width="88%" height="118">
<p align=center>
<a href="<%=tt%><%=objRS("xxAwj")%>" target="_blank" >选项A附件</a>
</p>
</td></tr>
<%end if%>
<%if ((objRS("xxA" )<>"")and (objRS("xxAwj")<>"")) then%>
<tr>
<td width="12%" nowrap height="21"> </td>
<td width="88%" height="21">
<p align=center>
<a href="<%=tt%><%=objRS("xxAwj")%>" target="_blank" >选项A附件</a>
</p>
</td>
</tr>
<tr>
<td width="12%" nowrap height="21"> </td>
<td width="88%" height="21"> </td>
</tr>
<%end if%>
<%if (objRS("xxB" )<>"") then%>
<tr>
<td width="12%" nowrap height="21">
<div align="center">
B</div>
</td>
<td width="88%" height="21">
<table width="90%"><%=objRS("xxB")%></table></td>
</tr>
<% elseif (objRS("xxBwj" )<>"") then%>
<tr>
<td width="12%" nowrap height="21">
<div align="center">
B</div>
</td>
<td width="88%" height="21">
<p align=center>
<a href="<%=tt%><%=objRS("xxBwj")%>" target="_blank" >选项B附件</a></p>
</td>
</tr>
<%end if%>
<%if ((objRS("xxB" )<>"")and (objRS("xxBwj")<>"")) then%>
<tr>
<td width="12%" nowrap height="21"> </td>
<td width="88%" height="21">
<p align=center>
<a href="<%=tt%><%=objRS("xxBwj")%>" target="_blank" >选项B附件</a>
</p>
</td>
</tr>
<tr>
<td width="12%" nowrap height="21"> </td>
<td width="88%" height="21"> </td>
</tr>
<%end if%>
<%if (objRS("xxC" )<>"") then%>
<tr>
<td width="12%" nowrap height="21">
<div align="center">
C</div>
</td>
<td width="88%" height="21">
<table width="90%"><%=objRS("xxC")%></table></td>
</tr>
<% elseif (objRS("xxCwj" )<>"") then%>
<tr>
<td width="12%" nowrap height="21">
<div align="center">
C</div>
</td>
<td width="88%" height="21">
<p align=center>
<a href="<%=tt%><%=objRS("xxCwj")%>" target="_blank" >选项C附件</a>
</p>
</td>
</tr>
<%end if%>
<%if ((objRS("xxC" )<>"")and(objRS("xxCwj")<>"")) then%>
<tr>
<td width="12%" nowrap height="21"> </td>
<td width="88%" height="21">
<p align=center>
<a href="<%=tt%><%=objRS("xxCwj")%>" target="_blank" >选项C附件</a>
</p>
</td>
</tr>
<tr>
<td width="12%" nowrap height="21"> </td>
<td width="88%" height="21"> </td>
</tr>
<%end if%>
<%if (objRS("xxD" )<>"") then%>
<tr>
<td width="12%" nowrap height="21">
<div align="center">
D</div>
</td>
<td width="88%" height="21">
<table width="90%"><%=objRS("xxD")%></table></td>
</tr>
<% elseif (objRS("xxDwj" )<>"") then%>
<tr>
<td width="12%" nowrap height="21">
<div align="center">
D</div>
</td>
<td width="88%" height="21">
<p align=center>
<a href="<%=tt%><%=objRS("xxDwj")%>" target="_blank" >选项D附件</a>
</p>
</td>
</tr>
<%end if%>
<%if ((objRS("xxD" )<>"")and(objRS("xxDwj")<>"")) then%>
<tr>
<td width="12%" nowrap height="21"> </td>
<td width="88%" height="21">
<p align=center>
<a href="<%=tt%><%=objRS("xxDwj")%>" target="_blank" >选项D附件</a>
</p>
</td>
</tr>
<tr>
<td width="12%" nowrap height="21"> </td>
<td width="88%" height="21"> </td>
</tr>
<%end if%>
<%if (objRS("xxE" )<>"") then%>
<tr>
<td width="12%" nowrap height="21">
<div align="center">
E</div>
</td>
<td width="88%" height="21">
<table width="90%"><%=objRS("xxE")%></table></td>
</tr>
<% elseif (objRS("xxEwj" )<>"") then%>
<tr>
<td width="12%" nowrap height="21">
<div align="center">
E</div>
</td>
<td width="88%" height="21">
<p align=center>
<a href="<%=tt%><%=objRS("xxEwj")%>" target="_blank" >选项E附件</a>
</p>
</td>
</tr>
<%end if%>
<%if ((objRS("xxE" )<>"")and(objRS("xxEwj")<>"")) then%>
<tr>
<td width="12%" height="21"> </td>
<td width="88%" height="21">
<p align=center>
<a href="<%=tt%><%=objRS("xxEwj")%>" target="_blank" >选项E附件</a>
</p>
</td>
</tr>
<%end if%>
<% if tx=2 then%>
<%if (objRS("xxF" )<>"") then%>
<tr>
<td width="12%" nowrap height="21">
<div align="center">
F</div>
</td>
<td width="88%" height="21">
<table width="90%"><%=objRS("xxF")%></table></td>
</tr>
<% elseif (objRS("xxFwj" )<>"") then%>
<tr>
<td width="12%" nowrap height="21">
<div align="center">
F</div>
</td>
<td width="88%" height="21">
<p align=center>
<a href="<%=tt%><%=objRS("xxFwj")%>" target="_blank" >选项F附件</a>
</p>
</td>
</tr>
<%end if%>
<%if ((objRS("xxF" )<>"")and(objRS("xxFwj")<>"")) then%>
<tr>
<td width="12%" height="36"> </td>
<td width="88%" height="36">
<p align=center>
<a href="<%=tt%><%=objRS("xxFwj")%>" target="_blank" >选项F附件</a>
</p>
</td>
</tr>
<%end if%>
<%end if%>
<%end if%>
<%objRS.MoveNext%> <%wend%>
<%objRS.Close%>
<%next%>
</table>
<% end if%>
<%'此函数用来写出去大题号
function WriteTemp
select case temp
case 1 Response.Write "<font size='4'><strong>一、</strong></font>"
case 2 Response.Write "<font size='4'><strong>二、</strong></font>"
case 3 Response.Write "<font size='4'><strong>三、</strong></font>"
case 4 Response.Write "<font size='4'><strong>四、</strong></font>"
case 5 Response.Write "<font size='4'><strong>五、</strong></font>"
end select
Temp=Temp+1
end function
function WriteTx
select case tx
case 1 Response.Write "<font size='4'><strong>单项选择题（共 "&dx&" 分）</strong></font>"
case 2 Response.Write "<font size='4'><strong>多项选择题（共 "&du&" 分）</strong></font>"
case 3 Response.Write "<font size='4'><strong>填空题（共 "&tk&" 分）</strong></font>"
case 4 Response.Write "<font size='4'><strong>判断题（共 "&pd&" 分）</strong></font>"
case 5 Response.Write "<font size='4'><strong>分析题（共 "&fx&" 分）</strong></font>"
end select
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -