?? test_yued.asp
字號:
<!--#include file="conn.asp"-->
<%
if session("username")="" then
response.redirect "relogin.asp"
end if
%>
<%
username=request.cookies("username")
kcid=request("kcid")
chapter=request("chapter")
category=request("category")
sql="SELECT 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 chapter="&chapter&" and kao=0 and category=8;"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
on error resume next
sql_count="SELECT tbtk.tmid,userdata.dataid FROM tbkc,userdata ,tbtk where username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid=tbkc.kcid and tbkc.kcid="&kcid&" and chapter="&chapter&" and category=8 and kao=0"
set rs_count=server.createobject("adodb.recordset")
rs_count.open sql_count,conn,3,2
xiaotino=0
yued_fen=0
do while not rs_count.eof
sql_fen1="SELECT * FROM userdataread where username='"&username&"' and dataid="&rs_count("dataid")&" and tmid="&rs_count("tmid")&" and paperno=0 "
set rs_fen1=server.createobject("adodb.recordset")
rs_fen1.open sql_fen1,conn,3,2
xiaotino=rs_fen1.recordcount+xiaotino
rs_count.movenext
loop
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>模擬練習 | <%=rs("kcm")%> | 第<%=rs("chapter")%>章 | 閱讀理解</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<%
%><center>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
<tr>
<td width="100%" height="30" style="border-left-style: solid; border-left-width: 0; border-right-style: solid; border-right-width: 0; border-top-style: solid; border-top-width: 0; border-bottom: 1px solid #000000">
<img border="0" src="images/kslx.gif"></td>
</tr>
<tr>
<td width="100%">當前位置：練習階段 > <a href="selectchapter.asp?kcid=<%=rs("kcid")%>"><%=rs("kcm")%></a> > <a href="selecttype.asp?kcid=<%=rs("kcid")%>&chapter=<%=rs("chapter")%>">第<%=rs("chapter")%>章
</td>
</tr>
</table></center>
<center>
<% if Request.ServerVariables("http_method")="POST" then
response.write "<font color=red>本頁答案已經提交,如要修改,請再次提交!</font>"
end if
%><form name="viewdatabase" ACTION="<%=Myself%>" method="post">
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="100%" id="AutoNumber1" height="398">
<tr class="trh">
<td width="41" align="center" bgcolor="#799AE1" height="24">
<font color="#FFFFFF"><b>序號</b></font></td>
<td align="center" bgcolor="#799AE1" width="698" height="24">
<p align="center"><font color="#FFFFFF"><b>閱讀理解（共<%=rs_count.recordcount&"大題--"&xiaotino&"小題"%>）</b></font></td>
</tr>
<%
rs.PageSize =1
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*0
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
%>
<tr>
<td align="center" bgcolor="#FFFDE8" height="68" width="41" bordercolor="#215DC6"><%=i%> </td>
<td align="center" bgcolor="#FFFDE8" height="68" width="698" bordercolor="#215DC6">
<table border="0" cellpadding="0" width="89%">
<tr>
<td><br>試題——<%=htmlencode(rs("title"))%><br>
<% if len(rs("photo")) > 1 then
%> <center>
<img border="0" src="examimage/<%=rs("photo")%>"></center>
<br><% end if %><hr color="#000000">
</td>
</tr>
<%
sqlyued1="SELECT * FROM tbread WHERE tmid="&rs("tmid")&" order by readno"
set rsyued1=server.createobject("adodb.recordset")
rsyued1.open sqlyued1,conn,3,2
do while not rsyued1.eof
sqlyued3="SELECT * FROM userdataread WHERE username='"&username&"' and noid="&rsyued1("noid")&" and readno="&rsyued1("readno")&" and paperno=0 and tmid="&rs("tmid")
set rsyued3=server.createobject("adodb.recordset")
rsyued3.open sqlyued3,conn,3,2
textyued1="text"&cstr(rs("tmid"))&cstr(rsyued1("readno"))
if Request.ServerVariables("http_method")="POST" then
sqlyued2="SELECT * FROM userdataread where username='"&username&"' and noid="&rsyued1("noid")&" and readno="&rsyued1("readno")&" and tmid="&rs("tmid")&" and paperno=0"
set rsyued2=server.createobject("adodb.recordset")
rsyued2.open sqlyued2,conn,3,2
textyued2=request(""&textyued1&"")
rsyued2("ruans")=cstr(trim(textyued2))
rsyued2.update
rsyued2.close
end if
%>
<tr>
<td>(<%=rsyued1("readno")%>)、<%=rsyued1("xiaoti")%>——(難度:<%
if rsyued1("slevel")=1 then
response.write "容易"
end if
if rsyued1("slevel")=2 then
response.write "中等"
end if
if rsyued1("slevel")=3 then
response.write "較難"
end if
if rsyued1("slevel")=4 then
response.write "最難"
end if
%>) <br><% if len(rsyued1("pic")) > 1 then
%> <center>
<img border="0" src="examimage/<%=rsyued1("pic")%>">
</center>
<br><% end if %>答：
<% if rsyued1("a")<>"" then %> <input type="radio" value="A" name="<%=textyued1%>" <%if rsyued3("ruans")="A" then%> checked <%end if %> onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">A.<%=rsyued1("a")%><br><%end if%>
<% if rsyued1("b")<>"" then %> <input type="radio" name="<%=textyued1%>" <%if rsyued3("ruans")="B" then%> checked <%end if %> value="B" onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">B.<%=rsyued1("b")%><br><%end if%>
<% if rsyued1("c")<>"" then %> <input type="radio" value="C" <%if rsyued3("ruans")="C" then%> checked <%end if %> name="<%=textyued1%>" onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">C.<%=rsyued1("c")%><br><%end if%>
<% if rsyued1("d")<>"" then %> <input type="radio" value="D" <%if rsyued3("ruans")="D" then%> checked <%end if %> name="<%=textyued1%>" onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">D.<%=rsyued1("d")%><br><%end if%>
<% if rsyued1("e")<>"" then %> <input type="radio" value="E" <%if rsyued3("ruans")="E" then%> checked <%end if %> name="<%=textyued1%>" onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">E.<%=rsyued1("e")%><br><%end if%>
<% if rsyued1("f")<>"" then %> <input type="radio" value="F" <%if rsyued3("ruans")="F" then%> checked <%end if %> name="<%=textyued1%>" onblur="this.className='radio'" onfocus="this.className='inputedit';this.select()" class="radio">F.<%=rsyued1("f")%><br><%end if%>
<br><hr color="#4455AA">
</td>
</tr>
<% rsyued1.movenext
loop
%>
</table>
</td>
</tr>
<%
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next
%> <tr>
<td align="center" bgcolor="#FFFFFF" height="34" width="41" bordercolor="#FFFFFF">
</td>
<td align="center" bgcolor="#FFFFFF" height="34" width="698" bordercolor="#FFFFFF">
<input class="s02" type="submit" value="提交" name="B1" style="float: middle"> <INPUT class="s02" onclick="window.location='selecttype.asp?kcid=<%=kcid%>&chapter=<%=chapter%>'" type=button value=返回 name=close></td>
</tr>
<caption></caption>
</table>
</form>
</center>
<center> <form ACTION="<%=Myself%>" METHOD="GET">
<table style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr>
<td width="576">
<p ALIGN="center"><%If Page <> 1 Then ' 如果不是位于第一頁%>
<a href="<%=Myself%>?Page=1&kcid=<%=kcid%>&chapter=<%=chapter%>">第一頁</a>
<a HREF="<%=Myself%>?Page=<%=(Page-1)%>&kcid=<%=kcid%>&chapter=<%=chapter%>">上一頁</a>
<%
End If
If Page <> rs.PageCount Then ' 如果不是位于最后一頁
%> <a HREF="<%=Myself%>?Page=<%=(Page+1)%>&kcid=<%=kcid%>&chapter=<%=chapter%>">下一頁</a>
<a HREF="<%=Myself%>?Page=<%=rs.PageCount%>&kcid=<%=kcid%>&chapter=<%=chapter%>">最后一頁</a>
<% End If %>
<font SIZE="2">頁次:</font><font COLOR="Red" SIZE="2"><%=Page%>/<%=rs.PageCount%></font></p>
<p> </td>
</tr>
</table>
</form>
</center>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -