📄 showr_d.asp
字号:
</td>
</tr>
<%end if%>
<%if ((objRS("xxB" )<>"")and (objRS("xxBwj")<>"")) then%>
<tr>
<td width="10%" nowrap height="21"> </td>
<td width="90%" height="21">
<p align=center>
<a href="<%=tt%><%=objRS("xxBwj")%>" target="_blank" >选项B附件</a>
</p>
</td>
</tr>
<tr>
<td width="10%" nowrap height="21"> </td>
<td width="90%" height="21"> </td>
</tr>
<%end if%>
<%if (objRS("xxC" )<>"") then%>
<tr>
<td width="10%" nowrap height="21">
<div align="center">
C</div>
</td>
<td width="90%" height="21"><%=objRS("xxC")%></td>
</tr>
<% elseif (objRS("xxCwj" )<>"") then%>
<tr>
<td width="10%" nowrap height="21">
<div align="center">
C</div>
</td>
<td width="90%" 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="10%" nowrap height="21"> </td>
<td width="90%" height="21">
<p align=center>
<a href="<%=tt%><%=objRS("xxCwj")%>" target="_blank" >选项C附件</a>
</p>
</td>
</tr>
<tr>
<td width="10%" nowrap height="21"> </td>
<td width="90%" height="21"> </td>
</tr>
<%end if%>
<%if (objRS("xxD" )<>"") then%>
<tr>
<td width="10%" nowrap height="21">
<div align="center">
D</div>
</td>
<td width="90%" height="21"><%=objRS("xxD")%></td>
</tr>
<% elseif (objRS("xxDwj" )<>"") then%>
<tr>
<td width="10%" nowrap height="21">
<div align="center">
D</div>
</td>
<td width="90%" 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="10%" nowrap height="21"> </td>
<td width="90%" height="21">
<p align=center>
<a href="<%=tt%><%=objRS("xxDwj")%>" target="_blank" >选项D附件</a>
</p>
</td>
</tr>
<tr>
<td width="10%" nowrap height="21"> </td>
<td width="90%" height="21"> </td>
</tr>
<%end if%>
<%if (objRS("xxE" )<>"") then%>
<tr>
<td width="10%" nowrap height="21">
<div align="center">
E</div>
</td>
<td width="90%" height="21"><%=objRS("xxE")%></td>
</tr>
<% elseif (objRS("xxEwj" )<>"") then%>
<tr>
<td width="10%" nowrap height="21">
<div align="center">
E</div>
</td>
<td width="90%" 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="10%" height="21"> </td>
<td width="90%" height="21">
<p align=center>
<a href="<%=tt%><%=objRS("xxEwj")%>" target="_blank" >选项E附件</a>
</p>
</td>
</tr>
<%end if%>
<% if (objRS("Itemtype")=2) then%>
<%if (objRS("xxF" )<>"") then%>
<tr>
<td width="10%" nowrap height="21">
<div align="center">
F</div>
</td>
<td width="90%" height="21"><%=objRS("xxF")%></td>
</tr>
<% elseif (objRS("xxFwj" )<>"") then%>
<tr>
<td width="10%" nowrap height="21">
<div align="center">
F</div>
</td>
<td width="90%" 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="10%" height="36"> </td>
<td width="90%" height="36">
<p align=center>
<a href="<%=tt%><%=objRS("xxFwj")%>" target="_blank" >选项F附件</a>
</p>
</td>
</tr>
<%end if%>
<%end if%>
</table>
<% end if%>
<%
objRS.Close
end if
NumberOrder=NumberOrder+1
FF=FF+1
loop
end if
next
Session("PaperItemArray")=PaperItemID
Response.Write "<input type='hidden' value='" & NumberOrder-1 & "' name='Number'>"%>
<p align="center"><font color='red'>如要添加新试题，请点击下列相应连接</font></p>
<center>
<table border=1 align="center" bordercolor=#ffffff bordercolorlight=#0066cc cellspacing=0 width="750">
<tr align="center">
<td><font color="#FF0000">添加试题到数据库和该试卷</font></td>
<td align="center"><a href="../tjst/Dah.asp?tx=1&Added=1&BackTo=gdsjStep2.asp">单选题</a></td>
<td align="center"><a href="../tjst/Duh.asp?tx=2&Added=1&BackTo=gdsjStep2.asp">多选题</a></td>
<td align="center"><a href="../tjst/tiankongh.asp?tx=3&Added=1&BackTo=gdsjStep2.asp">填空题</a></td>
<td align="center"><a href="../tjst/pdh.asp?tx=4&Added=1&BackTo=gdjsStep2.asp">判断题</a></td>
<td align="center"><a href="../tjst/fxh.asp?tx=5&Added=1&BackTo=gdjsStep2.asp">分析题</a></td>
<tr>
<tr align="center">
<td><font color="#FF0000">只是添加试题到该试卷中</font></td>
<td align="center"><a href="selItem.asp?tx=1">单选题</a></td>
<td align="center"><a href="selItem.asp?tx=2">多选题</a></td>
<td align="center"><a href="selItem.asp?tx=3">填空题</a></td>
<td align="center"><a href="selItem.asp?tx=4">判断题</a></td>
<td align="center"><a href="selItem.asp?tx=5">简答题</a></td>
</tr>
</table></center>
<p align="center">
<input type="submit" name="Save" value=" 保存该试卷 ">
<small><small><font size="2"></font></small></small>
<input type="submit" name="ShanChu" value="删除选中的试题">
</p>
<%'此函数用来写出去大题号
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>单项选择题</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
end function
%>
</form>
<%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -