📄 kaoshi.asp
字号:
<%
rsdx3.close
rsdx.MoveNext
If rsdx.EOF Then Exit For
idx=idx+1
Next
%>
<tr>
<td align="center" bgcolor="#FFFFFF" height="21" width="640" colspan="2" bordercolor="#FFFFFF">
<span lang="en-us">
</span>
<input class="s02" type="submit" value="保存单选题" name="B1" style="float: middle"></td>
</tr>
</table> <br>
<% end if%><% end if%>
<%
'------------------------多选题
Set rsno5=Server.CreateObject("Adodb.RecordSet")
sqlno5="select * from tbkcconfig where kcid="&kcid&" and category=5 and paperno="&paperno
rsno5.open sqlno5,conn,1,3
if rsno5("datano")<>0 then
sqlduox="SELECT top "&rsno5("datano")&" tbtk.tmid, tbtk.title,tbtk.category, tbkc.kcid, tbkc.kcm, tbtk.chapter,a,b,c,d,e,f,tbtk.level,photo FROM tbkc, userdata , tbtk WHERE username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid=tbkc.kcid and tbkc.kcid="&kcid&" and kao=1 and category=5 and paperno="&paperno&" order by tbtk.tmid;"
set rsduox=server.createobject("adodb.recordset")
rsduox.open sqlduox,conn,3,2
if not rsduox.eof then
%>
</p>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="100%" height="265">
<tr class="trh">
<td width="30" align="center" bgcolor="#799AE1" height="21">
<font color="#FFFFFF"><b>序号</b></font></td>
<td align="center" bgcolor="#799AE1" width="606" height="21">
<p align="center"><font color="#FFFFFF"><b>多项选择题<span lang="en-us">(</span>共<%=rsno5("datano")%>题,<%=rsno5("datano")*rsno5("datavalue")%>分<span lang="en-us">)</span></b></font></td>
</tr>
<%
iduox=1
For duoxno = 1 To rsno5("datano")
textduox1="text"&cstr(rsduox("tmid"))
if Request.ServerVariables("http_method")="POST" then
sqlduox2="SELECT * FROM userdata where username='"&username&"' and tmid="&rsduox("tmid")&" and paperno="&paperno
set rsduox2=server.createobject("adodb.recordset")
rsduox2.open sqlduox2,conn,3,2
textduox2=request(""&textduox1&"")
rsduox2("uans")=cstr(trim(textduox2))
if trim(rsduox2("ans"))=textduox2 then
rsduox2("fen")=rsno5("datavalue")
else
rsduox2("fen")=0
end if
rsduox2.update
rsduox2.close
end if
sqlduox3="SELECT * FROM userdata where username='"&username&"' and tmid="&rsduox("tmid")&" and paperno="&paperno
set rsduox3=server.createobject("adodb.recordset")
rsduox3.open sqlduox3,conn,3,2
%>
<tr class="trh1">
<td align="center" height="212" width="30"><%=iduox%> </td>
<td align="left" width="606" height="212"> <%=rsduox("title")%>——(难度:<%
if rsduox("level")=1 then
response.write "容易"
end if
if rsduox("level")=2 then
response.write "中等"
end if
if rsduox("level")=3 then
response.write "较难"
end if
if rsduox("level")=4 then
response.write "最难"
end if
%>) <br><% if len(rsduox("photo")) > 1 then
%> <center>
<img border="0" src="examimage/<%=rsduox("photo")%>">
</center>
<br><% end if %>
答：
<% if rsduox("a")<>"" then %> <input type="checkbox" value="A" <%if instr(rsduox3("uans"),"A")>0 then%> checked <%end if %> name="<%=textduox1%>" onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">A、<%=rsduox("a")%><br><%end if%>
<% if rsduox("b")<>"" then %> <input type="checkbox" name="<%=textduox1%>" <%if instr(rsduox3("uans"),"B")>0 then%> checked <%end if %> value="B" onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">B、<%=rsduox("b")%><br><%end if%>
<% if rsduox("c")<>"" then %> <input type="checkbox" value="C" <%if instr(rsduox3("uans"),"C")>0 then%> checked <%end if %> name="<%=textduox1%>" onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">C、<%=rsduox("c")%><br><%end if%>
<% if rsduox("d")<>"" then %> <input type="checkbox" value="D" <%if instr(rsduox3("uans"),"D")>0 then%> checked <%end if %> name="<%=textduox1%>" onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">D、<%=rsduox("d")%><br><%end if%>
<% if rsduox("e")<>"" then %> <input type="checkbox" value="E" <%if instr(rsduox3("uans"),"E")>0 then%> checked <%end if %> name="<%=textduox1%>" onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">E、<%=rsduox("e")%><br><%end if%>
<% if rsduox("f")<>"" then %> <input type="checkbox" value="F" <%if instr(rsduox3("uans"),"F")>0 then%> checked <%end if %> name="<%=textduox1%>" onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">F、<%=rsduox("f")%><br><%end if%> </td>
</tr>
<%
rsduox3.close
rsduox.MoveNext
If rsduox.EOF Then Exit For
iduox=iduox+1
Next
%>
<tr>
<td align="center" bgcolor="#FFFFFF" height="21" width="640" colspan="2" bordercolor="#FFFFFF">
<span lang="en-us">
</span>
<input class="s02" type="submit" value="保存多选题" name="B1" style="float: middle"></td>
</tr>
</table> <br>
<% end if%><% end if%>
<%
'------------------------简答题
Set rsno6=Server.CreateObject("Adodb.RecordSet")
sqlno6="select * from tbkcconfig where kcid="&kcid&" and category=6 and paperno="&paperno
rsno6.open sqlno6,conn,1,3
if rsno6("datano")<>0 then
sqljd="SELECT top "&rsno6("datano")&" tbtk.tmid, tbtk.title,tbtk.category, tbkc.kcid, tbkc.kcm, tbtk.chapter,tbtk.level,photo FROM tbkc, userdata, tbtk WHERE username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid=tbkc.kcid and tbkc.kcid="&kcid&" and kao=1 and category=6 and paperno="&paperno&" order by tbtk.tmid;"
set rsjd=server.createobject("adodb.recordset")
rsjd.open sqljd,conn,3,2
if not rsjd.eof then
%>
</p>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="100%" height="237">
<tr class="trh" >
<td width="30" align="center" bgcolor="#799AE1" height="21">
<font color="#FFFFFF"><b>序号</b></font></td>
<td align="center" bgcolor="#799AE1" width="606" height="21">
<p align="center"><font color="#FFFFFF"><b>简答题<span lang="en-us">(</span>共<%=rsno6("datano")%>题,<%=rsno6("datano")*rsno6("datavalue")%>分<span lang="en-us">)</span></b></font></td>
</tr>
<%
ijd=1
For jdno = 1 To rsno6("datano")
textjd1="text"&cstr(rsjd("tmid"))
if Request.ServerVariables("http_method")="POST" then
sqljd2="SELECT * FROM userdata where username='"&username&"' and tmid="&rsjd("tmid")&" and paperno="&paperno
set rsjd2=server.createobject("adodb.recordset")
rsjd2.open sqljd2,conn,3,2
textjd2=request(""&textjd1&"")
rsjd2("uans")=cstr(trim(textjd2))
rsjd2.update
rsjd2.close
end if
sqljd3="SELECT * FROM userdata where username='"&username&"' and tmid="&rsjd("tmid")&" and paperno="&paperno
set rsjd3=server.createobject("adodb.recordset")
rsjd3.open sqljd3,conn,3,2
%>
<tr class="trh1">
<td align="center" height="184" width="30"><%=ijd%> </td>
<td align="left" width="606" height="184"> <%=rsjd("title")%>——(难度:<%
if rsjd("level")=1 then
response.write "容易"
end if
if rsjd("level")=2 then
response.write "中等"
end if
if rsjd("level")=3 then
response.write "较难"
end if
if rsjd("level")=4 then
response.write "最难"
end if
%>)
<br> <% if len(rsjd("photo")) > 1 then
%> <center>
<img border="0" src="examimage/<%=rsjd("photo")%>">
</center>
<br><% end if %>
答： <br> <textarea rows="6" name="<%=textjd1%>" onblur="this.className='inputnormalleft'" onfocus="this.className='inputedit';this.select()" class="inputnormalleft" cols="60"><%=rsjd3("uans")%></textarea> <br></td>
</tr> <%
rsjd3.close
rsjd.MoveNext
If rsjd.EOF Then Exit For
ijd=ijd+1
Next
%>
<tr>
<td align="center" bgcolor="#FFFFFF" height="21" width="640" colspan="2" bordercolor="#FFFFFF">
<span lang="en-us">
</span>
<input class="s02" type="submit" value="保存简答题" name="B1" style="float: middle"></td>
</tr>
</table> <br>
<% end if%><% end if%>
<%
'------------------------论述题
Set rsno7=Server.CreateObject("Adodb.RecordSet")
sqlno7="select * from tbkcconfig where kcid="&kcid&" and category=7 and paperno="&paperno
rsno7.open sqlno7,conn,1,3
if rsno7("datano")<>0 then
sqlls="SELECT top "&rsno7("datano")&" tbtk.tmid, tbtk.title,tbtk.category, tbkc.kcid, tbkc.kcm, tbtk.chapter,tbtk.level,photo FROM tbkc, userdata, tbtk WHERE username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid=tbkc.kcid and tbkc.kcid="&kcid&" and kao=1 and category=7 and paperno="&paperno&" order by tbtk.tmid;"
set rsls=server.createobject("adodb.recordset")
rsls.open sqlls,conn,3,2
if not rsls.eof then
%>
</p>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="100%" height="24">
<tr class="trh">
<td width="30" align="center" bgcolor="#799AE1" height="21">
<font color="#FFFFFF"><b>序号</b></font></td>
<td align="center" bgcolor="#799AE1" width="606" height="21">
<p align="center"><font color="#FFFFFF"><b>论述题<span lang="en-us">(</span>共<%=rsno7("datano")%>题,<%=rsno7("datano")*rsno7("datavalue")%>分<span lang="en-us">)</span></b></font></td>
</tr>
<%
ils=1
For lsno = 1 To rsno7("datano")
textls1="text"&cstr(rsls("tmid"))
if Request.ServerVariables("http_method")="POST" then
sqlls2="SELECT * FROM userdata where username='"&username&"' and tmid="&rsls("tmid")&" and paperno="&paperno
set rsls2=server.createobject("adodb.recordset")
rsls2.open sqlls2,conn,3,2
textls2=request(""&textls1&"")
rsls2("uans")=cstr(trim(textls2))
rsls2.update
rsls2.close
end if
sqlls3="SELECT * FROM userdata where username='"&username&"' and tmid="&rsls("tmid")&" and paperno="&paperno
set rsls3=server.createobject("adodb.recordset")
rsls3.open sqlls3,conn,3,2
%>
<tr class="trh1">
<td align="center" height="35" width="30"><%=ils%> </td>
<td align="left" width="606" height="35"> <%=rsls("title")%>——(难度:<%
if rsls("level")=1 then
response.write "容易"
end if
if rsls("level")=2 then
response.write "中等"
end if
if rsls("level")=3 then
response.write "较难"
end if
if rsls("level")=4 then
response.write "最难"
end if
%>) <br><% if len(rsls("photo")) > 1 then
%> <center>
<img border="0" src="examimage/<%=rsls("photo")%>">
</center>
<br><% end if %>
答： <br> <textarea rows="6" name="<%=textls1%>" onblur="this.className='inputnormalleft'" onfocus="this.className='inputedit';this.select()" class="inputnormalleft" cols="60"><%=rsls3("uans")%></textarea> <br><br></td>
</tr> <%
rsls3.close
rsls.MoveNext
If rsls.EOF Then Exit For
ils=ils+1
Next
%>
<tr>
<td align="center" bgcolor="#FFFFFF" height="30" width="640" colspan="2" bordercolor="#FFFFFF">
<span lang="en-us">
</span>
<input class="s02" type="submit" value="保存论述题" name="B1" style="float: middle"></td>
</tr>
</table> <br>
<% end if%><% end if%>
<%
'------------------------阅读理解
Set rsno8=Server.CreateObject("Adodb.RecordSet")
sqlno8="select * from tbkcconfig where kcid="&kcid&" and category=8 and paperno="&paperno
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -