📄 cx_ks_type.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")
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
sql3="SELECT * FROM tbpaper where paperno="&paperno
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2
sql1="SELECT distinct tbtk.category,tbkc.kcid,tbkc.kcm 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 paperno="&paperno&" order by category"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
%>
<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>成绩查询 | 考试成绩 | <%if not rs1.eof then%><%=rs1("kcm")%>——<%=rs3("info")%><%end if%></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>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<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/cxcj.gif"></td>
</tr>
</table>
<%
if rs1.eof then
%><table border="0" cellspacing="0" bordercolor="#111111" width="100%" height="35">
<tr>
<td width="100%" height="33">
<p align="center"> 现在您还没有相关的考试成绩！！！</td>
</tr>
</table>
<%
else
i=1
kcm=rs1("kcm")
%><br>
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" id="AutoNumber2" width="444" height="60">
<tr class="trh">
<td height="29" width="32" bgcolor="#799AE1"></td>
<td bgcolor="#799AE1" width="140" height="29">
<p align="center"><font color="#FFFFFF"><b><%=rs1("kcm")%>——<%=rs3("info")%></b></font></td>
<td bgcolor="#799AE1" width="75" height="29">
<p align="center"><font color="#FFFFFF"><b>题量</b></font></td>
<td bgcolor="#799AE1" width="57" height="29">
<p align="center"><font color="#FFFFFF"><b>成绩</b></font></td>
<td bgcolor="#799AE1" width="49" height="29">
<p align="center"><font color="#FFFFFF"><b>分值</b></font></td>
<td bgcolor="#799AE1" width="61" height="29">
<p align="center"><font color="#FFFFFF"><b>操作</b></font></td>
</tr>
<%
do while not rs1.eof
sqltm="SELECT * FROM tbkcconfig where kcid="&kcid&" and category="&rs1("category")&" and paperno="&paperno
set rstm=server.createobject("adodb.recordset")
rstm.open sqltm,conn,3,2
%>
<tr class="trh1">
<td align="center" height="29" width="32" ><%=i%></td>
<td width="140" height="29">
<p align="center"><%
if rs1("category")=1 then
response.write "名词解释"
end if
if rs1("category")=2 then
response.write "填空题"
end if
if rs1("category")=3 then
response.write "判断题"
end if
if rs1("category")=4 then
response.write "单项选择题"
end if
if rs1("category")=5 then
response.write "多项选择题"
end if
if rs1("category")=6 then
response.write "简答题"
end if
if rs1("category")=7 then
response.write "论述题"
end if
if rs1("category")=8 then
response.write "阅读理解"
sql_fen="SELECT top "&rstm("datano")&" userdata.fen,userdata.tmid,userdata.dataid FROM userdata,tbtk where username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid="&kcid&" and paperno="&paperno&" and category=8 and kao=1 order by tbtk.tmid"
set rs_fen=server.createobject("adodb.recordset")
rs_fen.open sql_fen,conn,3,2
xiaotino=0
yued_fen=0
do while not rs_fen.eof
sql_fen1="SELECT * FROM userdataread where username='"&username&"' and dataid="&rs_fen("dataid")&" and tmid="&rs_fen("tmid")&" and paperno="&paperno&" "
set rs_fen1=server.createobject("adodb.recordset")
rs_fen1.open sql_fen1,conn,3,2
xiaotino=rs_fen1.recordcount+xiaotino
do while not rs_fen1.eof
yued_fen=rs_fen1("fen")+yued_fen
rs_fen1.movenext
loop
rs_fen.movenext
loop
end if
%></td>
<td width="75" height="29">
<p align="center"><%
if rs1("category")=8 then
response.write rstm("datano")&"大题<br>（"&xiaotino&"小题）"
else
response.write rstm("datano")&"题"
end if
%></td>
<td width="57" height="29">
<p align="center"><%
if rs1("category")=1 then
sql_fen="SELECT top "&rstm("datano")&" userdata.fen FROM userdata,tbtk where username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid="&kcid&" and category=1 and kao=1 and paperno="&paperno&" order by tbtk.tmid"
set rs_fen=server.createobject("adodb.recordset")
rs_fen.open sql_fen,conn,3,2
mc_fen=0
do while not rs_fen.eof
mc_fen=cint(rs_fen("fen"))+mc_fen
rs_fen.movenext
loop
response.write mc_fen&"分"
end if
if rs1("category")=2 then
sql_fen="SELECT top "&rstm("datano")&" userdata.fen FROM userdata,tbtk where username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid="&kcid&" and category=2 and kao=1 and paperno="&paperno&" order by tbtk.tmid"
set rs_fen=server.createobject("adodb.recordset")
rs_fen.open sql_fen,conn,3,2
tk_fen=0
do while not rs_fen.eof
tk_fen=cint(rs_fen("fen"))+tk_fen
rs_fen.movenext
loop
response.write tk_fen&"分"
end if
if rs1("category")=3 then
sql_fen="SELECT top "&rstm("datano")&" userdata.fen FROM userdata,tbtk where username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid="&kcid&" and category=3 and kao=1 and paperno="&paperno&" order by tbtk.tmid"
set rs_fen=server.createobject("adodb.recordset")
rs_fen.open sql_fen,conn,3,2
pd_fen=0
do while not rs_fen.eof
pd_fen=rs_fen("fen")+ pd_fen
rs_fen.movenext
loop
response.write pd_fen&"分"
end if
if rs1("category")=4 then
sql_fen="SELECT top "&rstm("datano")&" userdata.fen FROM userdata,tbtk where username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid="&kcid&" and paperno="&paperno&" and category=4 and kao=1 order by tbtk.tmid"
set rs_fen=server.createobject("adodb.recordset")
rs_fen.open sql_fen,conn,3,2
danx_fen=0
do while not rs_fen.eof
danx_fen=rs_fen("fen")+danx_fen
rs_fen.movenext
loop
response.write danx_fen&"分"
end if
if rs1("category")=5 then
sql_fen="SELECT top "&rstm("datano")&" userdata.fen FROM userdata,tbtk where username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid="&kcid&" and paperno="&paperno&" and category=5 and kao=1 order by tbtk.tmid"
set rs_fen=server.createobject("adodb.recordset")
rs_fen.open sql_fen,conn,3,2
duox_fen=0
do while not rs_fen.eof
duox_fen=rs_fen("fen")+duox_fen
rs_fen.movenext
loop
response.write duox_fen&"分"
end if
if rs1("category")=6 then
sql_fen="SELECT top "&rstm("datano")&" userdata.fen FROM userdata,tbtk where username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid="&kcid&" and paperno="&paperno&" and category=6 and kao=1 order by tbtk.tmid"
set rs_fen=server.createobject("adodb.recordset")
rs_fen.open sql_fen,conn,3,2
jd_fen=0
do while not rs_fen.eof
jd_fen=rs_fen("fen")+ jd_fen
rs_fen.movenext
loop
response.write jd_fen&"分"
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -