📄 adminscoretype.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
paperno=request("paperno")
userid=request("userid")
sql="SELECT * from tbuser where userid="&userid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
username=rs("username")
sql3="SELECT * from tbpaper where paperno="&paperno
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2
kcid=rs3("kcid")
nianji=rs("nianji")
banji=rs("banji")
%><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>选择题型</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<center><b><%=nianji%>级--<%=banji%>——<%=username%></b></center>
<%
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 paperno="&paperno&" order by category"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
if rs1.eof then
%><table border="0" cellspacing="0" bordercolor="#111111" width="480" height="35">
<tr>
<td width="100%" height="33">
<p align="center"> 现在您还没有需要参加考试的科目！ </td>
</tr>
</table>
<%
else
i=1
%><br>
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" id="AutoNumber2" width="100%" height="50">
<tr class="trh">
<td height="22" width="40" bgcolor="#799AE1"></td>
<td bgcolor="#799AE1" width="250">
<p align="center"><font color="#FFFFFF"><b><%=rs1("kcm")%>——<%=rs3("info")%></b></font></td>
<td bgcolor="#799AE1" width="94">
<p align="center"><font color="#FFFFFF"><b>得分</b></font></td>
<td bgcolor="#799AE1" width="244">
<p align="center"><font color="#FFFFFF"><b>操作</b></font></td>
</tr>
<%
do while not rs1.eof
%>
<tr class="trh1">
<td align="center" height="26" width="40" ><%=i%></td>
<td width="250">
<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="94">
<p align="center"><%
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
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 paperno="&paperno&" and category=2 and kao=1 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 paperno="&paperno&" and category=3 and kao=1 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
if rs1("category")=7 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=7 and kao=1 order by tbtk.tmid"
set rs_fen=server.createobject("adodb.recordset")
rs_fen.open sql_fen,conn,3,2
ls_fen=0
do while not rs_fen.eof
ls_fen=rs_fen("fen")+ls_fen
rs_fen.movenext
loop
response.write ls_fen&"分"
end if
if rs1("category")=8 then
response.write yued_fen&"分"
end if
%> </td>
<td width="244">
<script language="javascript">
function editit1()
{
page="pg_mc.asp?kcid=<%=kcid%>&category=<%=rs1("category")%>&userid=<%=userid%>&paperno=<%=paperno%>"
window.open (page,'查看编辑题目','width=620,height=500,resizable=1,scrollbars=1')
}
function editit2()
{
page="pg_tk.asp?kcid=<%=kcid%>&paperno=<%=paperno%>&category=<%=rs1("category")%>&userid=<%=userid%>"
window.open (page,'查看编辑题目','width=620,height=500,resizable=1,scrollbars=1')
}
function editit3()
{
page="pg_pd.asp?kcid=<%=kcid%>&paperno=<%=paperno%>&category=<%=rs1("category")%>&userid=<%=userid%>"
window.open (page,'查看编辑题目','width=620,height=500,resizable=1,scrollbars=1')
}
function editit4()
{
page="pg_danx.asp?kcid=<%=kcid%>&paperno=<%=paperno%>&category=<%=rs1("category")%>&userid=<%=userid%>"
window.open (page,'查看编辑题目','width=620,height=500,resizable=1,scrollbars=1')
}
function editit5()
{
page="pg_duox.asp?kcid=<%=kcid%>&paperno=<%=paperno%>&category=<%=rs1("category")%>&userid=<%=userid%>"
window.open (page,'查看编辑题目','width=620,height=500,resizable=1,scrollbars=1')
}
function editit6()
{
page="pg_wd.asp?kcid=<%=kcid%>&paperno=<%=paperno%>&category=<%=rs1("category")%>&userid=<%=userid%>"
window.open (page,'查看编辑题目','width=620,height=500,resizable=1,scrollbars=1')
}
function editit7()
{
page="pg_ls.asp?kcid=<%=kcid%>&paperno=<%=paperno%>&category=<%=rs1("category")%>&userid=<%=userid%>"
window.open (page,'查看编辑题目','width=620,height=500,resizable=1,scrollbars=1')
}
function editit8()
{
page="pg_yued.asp?kcid=<%=kcid%>&paperno=<%=paperno%>&category=<%=rs1("category")%>&userid=<%=userid%>"
window.open (page,'查看编辑题目','width=620,height=500,resizable=1,scrollbars=1')
}
</script>
<p align="center">
<%
if rs1("category")=1 then
%>
<a href="javascript:editit1()" >
<%end if%>
<%
if rs1("category")=2 then
%>
<a href="javascript:editit2()" >
<%end if%>
<%
if rs1("category")=3 then
%>
<a href="javascript:editit3()" >
<%end if%>
<%
if rs1("category")=4 then
%>
<a href="javascript:editit4()" >
<%end if%>
<%
if rs1("category")=5 then
%>
<a href="javascript:editit5()" >
<%end if%>
<%
if rs1("category")=6 then
%>
<a href="javascript:editit6()" >
<%end if%>
<%
if rs1("category")=7 then
%>
<a href="javascript:editit7()" >
<%end if%>
<%
if rs1("category")=8 then
%>
<a href="javascript:editit8()" >
<%end if%>
开始批改</a></td>
</tr>
<%
rs1.movenext
i=i+1
loop
end if
%>
</table>
</center>
<p align="center"> <INPUT class="s02" onclick="window.location='adminscoreedit.asp?userid=<%=userid%>'" type=button value=返回 name=close><span lang="en-us">
</span>
<input type="button" value="关闭窗口" name="B2" onclick="self.close()" class="s02">
<%
sql2="SELECT * from tbscore where username='"&username&"' and kcid="&kcid&" and paperno="&paperno
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2
if rs2("isadmin")=0 then
%>
<INPUT class="s02" onclick="window.location='isadminok.asp?username=<%=username%>&kcid=<%=kcid%>&paperno=<%=paperno%>'" type=button value=试卷批改完 name=close><span lang="en-us">
</span>
<% else%>
<INPUT class="s02" onclick="window.location='isadminno.asp?username=<%=username%>&kcid=<%=kcid%>&paperno=<%=paperno%>'" type=button value=取消批改 name=close><span lang="en-us">
</span>
<%end if %>
<INPUT class="s02" onclick="window.location='adminscoretype.asp?kcid=<%=kcid%>&userid=<%=userid%>&paperno=<%=paperno%>'" type=button value="刷 新" name=close></p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -