?? primarypage.asp
字號:
<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<%
dim n
dim rs,sql
n=2
%>
<html>
<head>
<title>在線考試系統管理界面</title>
</head>
<body background=../images/backimage.gif >
<center>
<table border="0" cellspacing="0" cellpadding="0" width="309" height="156">
<td>
<p>
<br>
<p ><font size=+2 color=green face=宋體><center>管理頁面菜單</center></font></p>
<script language="JavaScript1.2" src="menu.js"></script>
</p>
<div id="KB1Parent" class="parent"><font size=+1 face=宋體><a href="#" onClick="expandIt('KB1'); return false" onMouseOver="window.status='管理學生和科目';return true;" onMouseOut="window.status='';return true;"><IMG SRC="../images/pagepic.gif" WIDTH=18 HEIGHT=16 BORDER=0>管理員學生和科目</a></font></div>
<div id="KB1Child" class="child">
<a href="mgstudent.asp" onMouseOver="window.status='管理學生';return true;" onMouseOut="window.status='';return true;"><img src="../images/bag.gif" width=20 height=11 border=0 alt=""><IMG SRC="../images/pagepic.gif" WIDTH=18 HEIGHT=16 BORDER=0><font size=+0 color=green face=宋體>管理學生</font></a><br>
<a href="mgadmin.asp" onMouseOver="window.status='管理管理員';return true;" onMouseOut="window.status='';return true;"><img src="../images/bag.gif" width=20 height=11 border=0 alt=""><IMG SRC="../images/pagepic.gif" WIDTH=18 HEIGHT=16 BORDER=0><font size=+0 color=green face=宋體>管理管理員</font></a><br>
<a href="mgsubject.asp" onMouseOver="window.status='管理考試科目';return true;" onMouseOut="window.status='';return true;"><img src="../images/bag.gif" width=20 height=11 border=0 alt=""><IMG SRC="../images/pagepic.gif" WIDTH=18 HEIGHT=16 BORDER=0><font size=+0 color=green face=宋體>管理考試科目</font></a><br>
<a href="mgscore.asp" onMouseOver="window.status='查看及管理學生考分';return true;" onMouseOut="window.status='';return true;"><img src="../images/bag.gif" width=20 height=11 border=0 alt=""><IMG SRC="../images/pagepic.gif" WIDTH=18 HEIGHT=16 BORDER=0><font size=+0 color=green face=宋體>查看及管理學生考分</font></a><br></div>
<% set rs = server.createobject("adodb.recordset")
rs.open "select * from subject",conn,1,1
if err.number <> 0 then
response.write "數據庫出錯"
else
if rs.bof and rs.eof then
rs.close
response.write "沒有科目"
response.end
else
do while not rs.eof
%>
<div id="KB<%=n%>Child" class="parent"><font size=+1><a href="mgquestion.asp?subjectname=<%=rs("subjectname")%>" onMouseOver="window.status='<%=rs("subjectname") %>';return true;" onMouseOut="window.status='';return true;"><IMG SRC="../images/pagepic.gif" WIDTH=18 HEIGHT=16 BORDER=0><%=rs("subjectname") %></a></font><br></div>
<% rs.movenext
n=n+1
loop
rs.close
set rs=nothing
end if
end if %>
<!--刷新和退出-->
<div id="KB<%=n%>Parent" class="parent"><a href="primarypage.asp" target="_top" onMouseOver="window.status='刷新頁面';return true;" onMouseOut="window.status='';return true;"><IMG SRC="../images/pagepic.gif" WIDTH=18 HEIGHT=16 BORDER=0><font size=+1 face=宋體>刷新頁面</font></a></div>
<div id="KB<%=n+1%>Parent" class="parent"><font size=+1 face=宋體><a href="login.asp" onMouseOver="window.status='退 出';return true;" onMouseOut="window.status='';return true;"><IMG SRC="../images/pagepic.gif" WIDTH=18 HEIGHT=16 BORDER=0>退 出</a></font></div>
<script language="JavaScript">
if (NS4) {
firstEl = "KB1Parent";
firstInd = getIndex(firstEl);
arrange();
}
</script>
</td>
</table>
</center>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -