?? adminkcscore.asp
字號:
<!--#include file="conn.asp"--> <%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
%><%
%>
<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>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
<tr>
<td width="100%">當前位置：<span lang="en-us"> </span><a href="news.asp">系統管理</a> >
<a href="adminscorechoice.asp">試卷批改</a> <span lang="en-us">></span> 課程模式</td>
</tr>
</table>
<br>
<br>
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="323" height="25">
<tr class="trh">
<td width="48" height="25" bgcolor="#799AE1"><b><center>
<font color="#FFFFFF">序號</font></center></b></td>
<td width="138" height="25" bgcolor="#799AE1"><b><center>
<font color="#FFFFFF">課程名</font></center></b></td>
<td width="140" height="25" bgcolor="#799AE1"><b><center>
<font color="#FFFFFF">試卷</font></center></b></td>
</tr>
<%
i=1
'-----------------權限設定
power=session("power")
dim arr,id1
if instr(power,",")>0 then
Arr=split(power)
for j = 0 to ubound(arr)
id1=clng(arr(j))
sql="select * from tbkc where kcid="&id1
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
%>
<tr class="trh1">
<td width="48" height="28" ><center><%=i%></center></td>
<td width="138" height="28" ><center><%=rs("kcm")%></center></td>
<td width="140" height="28" ><%
kcid=rs("kcid")
sql1="select * from tbpaper where kcid="&kcid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
do while not rs1.eof
%><center><a href="adminkcname.asp?kcid=<%=kcid%>&paperno=<%=rs1("paperno")%>"><%=rs1("info")%></a><p><br>
</p>
</p>
</center>
<%
rs1.movenext
loop
%></td>
</tr>
<% i=i+1
end if
next
else
if power<=0 then
sql="select * from tbkc order by kcid"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
do while not rs.eof %>
<tr class="trh1">
<td width="48" height="28" ><center><%=i%></center></td>
<td width="138" height="28" ><center><%=rs("kcm")%></center></td>
<td width="140" height="28" ><%
kcid=rs("kcid")
sql1="select * from tbpaper where kcid="&kcid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
do while not rs1.eof
%><center><a href="adminkcname.asp?kcid=<%=kcid%>&paperno=<%=rs1("paperno")%>"><%=rs1("info")%></a><br>
</center>
<%
rs1.movenext
loop
%></td>
</tr>
<% rs.movenext
i=i+1
loop
else
sql="select * from tbkc where kcid="&power
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
%>
<tr class="trh1">
<td width="48" height="28" ><center><%=i%></center></td>
<td width="138" height="28" ><center><%=rs("kcm")%></center></td>
<td width="140" height="28" ><%
kcid=rs("kcid")
sql1="select * from tbpaper where kcid="&kcid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
do while not rs1.eof
%><center><a href="adminkcname.asp?kcid=<%=kcid%>&paperno=<%=rs1("paperno")%>"><%=rs1("info")%></a><br>
</center>
<%
rs1.movenext
loop
%></td>
</tr>
<% end if
end if
end if
%>
</table>
</center>
<p align="center">
<INPUT class="s02" onclick="window.location='adminscorechoice.asp'" type=button value="返 回" name=close1></p>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -