?? cx_ks_duox.asp
字號:
<!--#include file="conn.asp"-->
<%
if session("username")="" then
response.redirect "relogin.asp"
end if
%>
<%
username=request.cookies("username")
kcid=request("kcid")
paperno=request("paperno")
category=request("category")
sql0="SELECT tbuser.username, tbnianji.nianji, tbbanji.banji, tbpower.power FROM tbuser INNER JOIN ((tbpower INNER JOIN tbbanji ON tbpower.banjiid = tbbanji.banjiid) INNER JOIN tbnianji ON tbpower.nianjiid = tbnianji.nianjiid) ON (tbuser.banji = tbbanji.banji) AND (tbuser.nianji = tbnianji.nianji) WHERE (((tbuser.username)='"&username&"'));"
set rs0=server.createobject("adodb.recordset")
rs0.open sql0,conn,3,2
a=rs0("power")
flag=0
if instr(a,",")>0 then
a=split(a,",")
u=ubound(a)
for w=0 to u
if cint(paperno)=cint(a(w)) then
flag=1
end if
next
else
if paperno=a then
flag=1
end if
end if
if flag=0 then
response.write "<center><h2>您沒有權限</h2></center>"
else
sqlpaper="SELECT * FROM tbpaper where paperno="&paperno
set rspaper=server.createobject("adodb.recordset")
rspaper.open sqlpaper,conn,3,2
sqltm="SELECT * FROM tbkcconfig where kcid="&kcid&" and category=5 and paperno="&paperno
set rstm=server.createobject("adodb.recordset")
rstm.open sqltm,conn,3,2
sql="SELECT top "&rstm("datano")&" tbtk.tmid, tbtk.title,tbtk.category, tbkc.kcid, tbkc.kcm,a,b,c,d,e,f,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 rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
on error resume next
%>
<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")%>——<%=rspaper("info")%> | 多項選擇題</title>
<link rel="stylesheet" type="text/css" href="css.css">
<script language="JavaScript">
<!--
function FP_swapImg() {//v1.0
var doc=document,args=arguments,elm; for(var n=2; n<args.length; n+=2) {
elm=FP_getObjectByID(args[n]); if(elm) { if(!doc.$imgSwaps)doc.$imgSwaps=new Array();
doc.$imgSwaps[doc.$imgSwaps.length]=elm; elm.$src=elm.src; elm.src=args[n+1]; } }
}
function FP_preloadImgs() {//v1.0
var d=document,a=arguments; if(!d.FP_imgs) d.FP_imgs=new Array();
for(var i=0; i<a.length; i++) { d.FP_imgs[i]=new Image; d.FP_imgs[i].src=a[i]; }
}
function FP_getObjectByID(id,o) {//v1.0
var c,el,els,f,m,n; if(!o)o=document; if(o.getElementById) el=o.getElementById(id);
if(o.layers) c=o.layers; else if(o.all) el=o.all[id]; if(el) return el;
if(o.id==id || o.name==id) return o; if(o.childNodes) c=o.childNodes; if(c)
for(n=0; n<c.length; n++) { el=FP_getObjectByID(id,c[n]); if(el) return el; }
f=o.forms; if(f) for(n=0; n<f.length; n++) { els=f[n].elements;
for(m=0; m<els.length; m++){ el=FP_getObjectByID(id,els[n]); if(el) return el; } }
return null;
}
// -->
</script>
</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="29" 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/cxcj.gif"></td>
</tr>
<tr>
<td width="100%" height="21">當前位置：考試成績查詢 > <a href="cx_ks_type.asp?kcid=<%=rs("kcid")%>&paperno=<%=paperno%>"><%=rs("kcm")%>——<%=rspaper("info")%></a>
</td>
</tr>
</table></center>
<center><form name="viewdatabase" ACTION="<%=Myself%>" method="post">
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="100%" id="AutoNumber1" height="465">
<tr class="trh">
<td width="47" align="center" bgcolor="#799AE1" height="24">
<font color="#FFFFFF"><b>序號</b></font></td>
<td align="center" bgcolor="#799AE1" width="589" height="24">
<p align="center"><font color="#FFFFFF"><b>多項選擇題（共<%=rstm("datano")%>題,<%=rstm("datano")*rstm("datavalue")%>分）</b></font></td>
</tr>
<%
rs.PageSize =5
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*4
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
sql3="SELECT * FROM userdata where username='"&username&"' and paperno="&paperno&" and tmid="&rs("tmid")
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2
%>
<tr class="trh1">
<td align="center" height="35" width="47"><%=i%> </td>
<td align="left" width="589" height="35"><br>試題——<%=htmlencode(rs("title"))%><br>
<% if len(rs("photo")) > 1 then
%> <center>
<img border="0" src="examimage/<%=rs("photo")%>"></center>
<br><% end if %>
<% if rs("a")<>"" then %> A.<%=rs("a")%><br><%end if%>
<% if rs("b")<>"" then %> B.<%=rs("b")%><br><%end if%>
<% if rs("c")<>"" then %> C.<%=rs("c")%><br><%end if%>
<% if rs("d")<>"" then %> D.<%=rs("d")%><br><%end if%>
<% if rs("e")<>"" then %> E.<%=rs("e")%><br><%end if%>
<% if rs("f")<>"" then %> F.<%=rs("f")%><br><%end if%>
標準答案：<b><br><%if instr(rs3("ans"),"A")>0 then%> A.<%=rs("a")%><br><%end if%>
<%if instr(rs3("ans"),"B")>0 then%> B.<%=rs("b")%><br><%end if%>
<%if instr(rs3("ans"),"C")>0 then%> C.<%=rs("c")%><br><%end if%>
<%if instr(rs3("ans"),"D")>0 then%> D.<%=rs("d")%><br><%end if%>
<%if instr(rs3("ans"),"E")>0 then%> E.<%=rs("e")%><br><%end if%>
<%if instr(rs3("ans"),"F")>0 then%> F.<%=rs("f")%><br><%end if%>
</b>
您的答案：<br>
<% if trim(rs3("uans"))<>trim(rs3("ans")) then
response.write "<font color=red>"%>
<%if instr(trim(rs3("uans")),"A")>0 then%> A.<%=rs("a")%><br><%end if%>
<%if instr(trim(rs3("uans")),"B")>0 then%> B.<%=rs("b")%><br><%end if%>
<%if instr(trim(rs3("uans")),"C")>0 then%> C.<%=rs("c")%><br><%end if%>
<%if instr(trim(rs3("uans")),"D")>0 then%> D.<%=rs("d")%><br><%end if%>
<%if instr(trim(rs3("uans")),"E")>0 then%> E.<%=rs("e")%><br><%end if%>
<%if instr(trim(rs3("uans")),"F")>0 then%> F.<%=rs("f")%><br><%end if%>
<% response.write "</font>"
else
%>
<%if instr(trim(rs3("uans")),"A")>0 then%> A.<%=rs("a")%><br><%end if%>
<%if instr(trim(rs3("uans")),"B")>0 then%> B.<%=rs("b")%><br><%end if%>
<%if instr(trim(rs3("uans")),"C")>0 then%> C.<%=rs("c")%><br><%end if%>
<%if instr(trim(rs3("uans")),"D")>0 then%> D.<%=rs("d")%><br><%end if%>
<%if instr(trim(rs3("uans")),"E")>0 then%> E.<%=rs("e")%><br><%end if%>
<%if instr(trim(rs3("uans")),"F")>0 then%> F.<%=rs("f")%><br><%end if%>
<%end if%>
您的得分：
<%
response.write rs3("fen")&"分"
%><br></td>
</tr>
<%
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next
%>
<tr>
<td align="center" bgcolor="#FFFFFF" height="37" width="640" colspan="2" bordercolor="#FFFFFF">
<a href="cx_ks_type.asp?kcid=<%=kcid%>&paperno=<%=paperno%>"><img border="0" id="img2" src="images/button3E.gif" height="22" width="70" alt="返 回" onmouseover="FP_swapImg(1,0,/*id*/'img2',/*url*/'images/button40.gif')" onmouseout="FP_swapImg(1,0,/*id*/'img2',/*url*/'images/button3E.gif')" onmousedown="FP_swapImg(1,0,/*id*/'img2',/*url*/'images/button42.gif')" onmouseup="FP_swapImg(1,0,/*id*/'img2',/*url*/'images/button40.gif')" fp-style="fp-btn: Metal Rectangle 1; fp-font: 宋體; fp-font-style: Bold; fp-font-size: 11; fp-transparent: 1; fp-proportional: 0; fp-orig: 0" fp-title="返 回"></a></td>
</tr>
</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%>&paperno=<%=paperno%>">第一頁</a>
<a HREF="<%=Myself%>?Page=<%=(Page-1)%>&kcid=<%=kcid%>&paperno=<%=paperno%>">上一頁</a>
<%
End If
If Page <> rs.PageCount Then ' 如果不是位于最后一頁
%> <a HREF="<%=Myself%>?Page=<%=(Page+1)%>&kcid=<%=kcid%>&paperno=<%=paperno%>">下一頁</a>
<a HREF="<%=Myself%>?Page=<%=rs.PageCount%>&kcid=<%=kcid%>&paperno=<%=paperno%>">最后一頁</a>
<% End If %>
<font SIZE="2">頁次:</font><font COLOR="Red" SIZE="2"><%=Page%>/<%=rs.PageCount%></font></p>
<p> </td>
</tr>
</table>
</form>
</center>
<%
%><%end if %>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -