📄 kaoshi.asp
字号:
rsmc3.close
rsmc.MoveNext
If rsmc.EOF Then Exit For
imc=imc+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" >
</td>
</tr>
</table><br>
<% end if%><% end if%>
<%
'------------------------填空题
Set rsno2=Server.CreateObject("Adodb.RecordSet")
sqlno2="select * from tbkcconfig where kcid="&kcid&" and category=2 and paperno="&paperno
rsno2.open sqlno2,conn,1,3
if rsno2("datano")<>0 then
sqltk="SELECT top "&rsno2("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=2 and paperno="&paperno&" order by tbtk.tmid;"
set rstk=server.createobject("adodb.recordset")
rstk.open sqltk,conn,3,2
if not rstk.eof then
%>
</p>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="100%" height="138">
<tr class="trh">
<td width="30" align="center" bgcolor="#799AE1" height="19">
<font color="#FFFFFF"><b>序号</b></font></td>
<td align="center" bgcolor="#799AE1" width="606" height="19">
<p align="center"><font color="#FFFFFF"><b>填空题<span lang="en-us">(</span>共<%=rsno2("datano")%>题<span lang="en-us">,<%=rsno2("datano")*rsno2("datavalue")%></span>分<span lang="en-us">)</span></b></font></td>
</tr>
<%
itk=1
For tkno = 1 To rsno2("datano")
texttk1="text"&cstr(rstk("tmid"))
if Request.ServerVariables("http_method")="POST" then
sqltk2="SELECT * FROM userdata where username='"&username&"' and tmid="&rstk("tmid")&"and paperno="&paperno
set rstk2=server.createobject("adodb.recordset")
rstk2.open sqltk2,conn,3,2
texttk2=request(""&texttk1&"")
rstk2("uans")=cstr(trim(texttk2))
rstk2.update
rstk2.close
end if
sqltk3="SELECT * FROM userdata where username='"&username&"' and tmid="&rstk("tmid")&"and paperno="&paperno
set rstk3=server.createobject("adodb.recordset")
rstk3.open sqltk3,conn,3,2
%>
<tr class="trh1">
<td align="center" height="96" width="30"><%=itk%> </td>
<td align="left" width="606" height="96"> <%=rstk("title")%>——(难度:<%
if rstk("level")=1 then
response.write "容易"
end if
if rstk("level")=2 then
response.write "中等"
end if
if rstk("level")=3 then
response.write "较难"
end if
if rstk("level")=4 then
response.write "最难"
end if
%>) <br> <% if len(rstk("photo")) > 1 then
%> <center>
<br>
<img border="0" src="examimage/<%=rstk("photo")%>">
</center>
<br><% end if %>
答： <input type="text" name="<%=texttk1%>" onblur="this.className='inputnormalleft'" onfocus="this.className='inputedit';this.select()" class="inputnormalleft" size="80" value="<%=rstk3("uans")%>"> <br></td>
</tr>
<%
rstk3.close
rstk.MoveNext
If rstk.EOF Then Exit For
itk=itk+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" >
</td>
</tr>
</table>
<br>
<% end if%><% end if%>
<%
'------------------------判断题
Set rsno3=Server.CreateObject("Adodb.RecordSet")
sqlno3="select * from tbkcconfig where kcid="&kcid&" and category=3 and paperno="&paperno
rsno3.open sqlno3,conn,1,3
if rsno3("datano")<>0 then
sqlpd="SELECT top "&rsno3("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=3 and paperno="&paperno&" order by tbtk.tmid;"
set rspd=server.createobject("adodb.recordset")
rspd.open sqlpd,conn,3,2
if not rspd.eof then
%>
</p>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="100%" height="163">
<tr class="trh">
<td width="29" align="center" bgcolor="#799AE1" height="21">
<font color="#FFFFFF"><b>序号</b></font></td>
<td align="center" bgcolor="#799AE1" width="607" height="21">
<p align="center"><font color="#FFFFFF"><b>判断题<span lang="en-us">(</span>共<%=rsno3("datano")%>题,<%=rsno3("datano")*rsno3("datavalue")%>分<span lang="en-us">)</span></b></font></td>
</tr>
<%
ipd=1
For pdno = 1 To rsno3("datano")
textpd1="text"&cstr(rspd("tmid"))
if Request.ServerVariables("http_method")="POST" then
sqlpd2="SELECT * FROM userdata where username='"&username&"' and tmid="&rspd("tmid")&" and paperno="&paperno
set rspd2=server.createobject("adodb.recordset")
rspd2.open sqlpd2,conn,3,2
textpd2=request(""&textpd1&"")
rspd2("uans")=cstr(trim(textpd2))
if trim(rspd2("ans"))=textpd2 then
rspd2("fen")=rsno3("datavalue")
else
rspd2("fen")=0
end if
rspd2.update
rspd2.close
end if
sqlpd3="SELECT * FROM userdata where username='"&username&"' and tmid="&rspd("tmid")&" and paperno="&paperno
set rspd3=server.createobject("adodb.recordset")
rspd3.open sqlpd3,conn,3,2
%>
<tr class="trh1">
<td align="center" height="116" width="29"><%=ipd%> </td>
<td align="left" width="607" height="116"> <%=rspd("title")%>——(难度:<%
if rspd("level")=1 then
response.write "容易"
end if
if rspd("level")=2 then
response.write "中等"
end if
if rspd("level")=3 then
response.write "较难"
end if
if rspd("level")=4 then
response.write "最难"
end if
%>) <br> <% if len(rspd("photo")) > 1 then
%> <center>
<img border="0" src="examimage/<%=rspd("photo")%>">
</center>
<br><% end if %>
答：
<input type="radio" value="Y" <%if rspd3("uans")="Y" then%>checked <%end if %> name="<%=textpd1%>" onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">正确
<input type="radio" value="N" <%if rspd3("uans")="N" then%>checked <%end if %> name="<%=textpd1%>" onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">错误
<br> </td>
</tr>
<%
rspd3.close
rspd.MoveNext
If rspd.EOF Then Exit For
ipd=ipd+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 rsno4=Server.CreateObject("Adodb.RecordSet")
sqlno4="select * from tbkcconfig where kcid="&kcid&" and category=4 and paperno="&paperno
rsno4.open sqlno4,conn,1,3
if rsno4("datano")<>0 then
sqldx="SELECT top "&rsno4("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=4 and paperno="&paperno&" order by tbtk.tmid;"
set rsdx=server.createobject("adodb.recordset")
rsdx.open sqldx,conn,3,2
if not rsdx.eof then
%>
</p>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="100%" height="265">
<tr class="trh">
<td width="29" align="center" bgcolor="#799AE1" height="21">
<font color="#FFFFFF"><b>序号</b></font></td>
<td align="center" bgcolor="#799AE1" width="607" height="21">
<p align="center"><font color="#FFFFFF"><b>单项选择题<span lang="en-us">(</span>共<%=rsno4("datano")%>题,<%=rsno4("datano")*rsno4("datavalue")%>分<span lang="en-us">)</span></b></font></td>
</tr>
<%
idx=1
For dxno= 1 To rsno4("datano")
textdx1="text"&cstr(rsdx("tmid"))
if Request.ServerVariables("http_method")="POST" then
sqldx2="SELECT * FROM userdata where username='"&username&"' and tmid="&rsdx("tmid")&" and paperno="&paperno
set rsdx2=server.createobject("adodb.recordset")
rsdx2.open sqldx2,conn,3,2
textdx2=request(""&textdx1&"")
rsdx2("uans")=cstr(trim(textdx2))
if trim(rsdx2("ans"))=textdx2 then
rsdx2("fen")=rsno4("datavalue")
else
rsdx2("fen")=0
end if
rsdx2.update
rsdx2.close
end if
sqldx3="SELECT * FROM userdata where username='"&username&"' and tmid="&rsdx("tmid")&" and paperno="&paperno
set rsdx3=server.createobject("adodb.recordset")
rsdx3.open sqldx3,conn,3,2
%>
<tr class="trh1">
<td align="center" height="212" width="29"><%=idx%> </td>
<td align="left" width="607" height="212"> <%=rsdx("title")%>——(难度:<%
if rsdx("level")=1 then
response.write "容易"
end if
if rsdx("level")=2 then
response.write "中等"
end if
if rsdx("level")=3 then
response.write "较难"
end if
if rsdx("level")=4 then
response.write "最难"
end if
%>) <br> <% if len(rsdx("photo")) > 1 then
%> <center>
<img border="0" src="examimage/<%=rsdx("photo")%>">
</center>
<br><% end if %>
答：
<% if rsdx("a")<>"" then %> <input type="radio" value="A" <%if rsdx3("uans")="A" then%> checked <%end if %> name="<%=textdx1%>" onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">A.<%=rsdx("a")%><br><%end if%>
<% if rsdx("b")<>"" then %> <input type="radio" name="<%=textdx1%>" <%if rsdx3("uans")="B" then%> checked <%end if %> value="B" onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">B.<%=rsdx("b")%><br><%end if%>
<% if rsdx("c")<>"" then %> <input type="radio" value="C" <%if rsdx3("uans")="C" then%> checked <%end if %> name="<%=textdx1%>" onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">C.<%=rsdx("c")%><br><%end if%>
<% if rsdx("d")<>"" then %> <input type="radio" value="D" <%if rsdx3("uans")="D" then%> checked <%end if %> name="<%=textdx1%>" onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">D.<%=rsdx("d")%><br><%end if%>
<% if rsdx("e")<>"" then %> <input type="radio" value="E" <%if rsdx3("uans")="E" then%> checked <%end if %> name="<%=textdx1%>" onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">E.<%=rsdx("e")%><br><%end if%>
<% if rsdx("f")<>"" then %> <input type="radio" value="F" <%if rsdx3("uans")="F" then%> checked <%end if %> name="<%=textdx1%>" onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">F.<%=rsdx("f")%><br><%end if%> </td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -