menu.asp

网络教学平台由教师教学系统、学生学习系统和教学管理系统三大模块组成

<STYLE>
all.clsMenuItemNS {
	font-size: 9pt; color: #000000;text-decoration: none 
}
.clsMenuItemIE {
 CURSOR: hand; font-size: 9pt; color: #000000;text-decoration: none
}
A:hover {
	text-decoration: none
}
body {
	background-color: #B1DB99;
}
</STYLE>
<SCRIPT language=JavaScript src="menu.js"></SCRIPT>
<%
Sql="select * from TestSubject order by ID asc"
Set Rs=server.createobject("adodb.recordset")
Rs.open sql,conn,1,1
C=Rs.RecordCount
%>

<table  width="820" height="25" border="0" align="center" cellspacing="0" >
  <tr> 
   <td valign=top align="left">
		<SCRIPT language=JavaScript>

  	mstyle = new MenuStyle();
	mstyle.bgColor="#66C06D";
	mstyle.mainMenuBorder=0;
	mstyle.subMenuBorder=0;
	mstyle.subMenuWidth=150;
	mstyle.menuDelta = 3;
	mstyle.clsMenuItemIE = "class=clsMenuItemIE";
	mstyle.clsMenuItemNS = "class=clsMenuItemNS";
	mstyle.bMenuStatic = 1;
	mstyle.mainMenuWidth = "100%";

	menu = new Menu(mstyle);
	<%
	For i=1 to C
		sSQL="select * from TestName where Subject='"&Rs("TestSubject")&"' order by TestID desc"
		set oRs=server.createobject("adodb.recordset")
		oRs.open sSQL,conn,1,1
		D=oRs.RecordCount
		If D=0 Then
		%>
		menu.addItem("Index<%=i%>", "<%=Rs("TestSubject")%>", "<%=Rs("About_Result")%>",  "Javascript:void(0)", null);
		<%
		else
		%>
		menu.addItem("Index<%=i%>", "<%=Rs("TestSubject")%>", "<%=Rs("TestSubject")%>",  null, null);
		<%
		while not oRs.eof
	%>
		menu.addSubItem("Index<%=i%>", "<%=oRs("TestName")%>", "<%=oRs("TestName")%>",  "Index.asp?TestID=<%=oRs("TestID")%>", "_self");
	<%
		oRs.MoveNext
		Wend
		End If
	Rs.MoveNext
	Next
	%>
	menu.showMenu();
	</script>
    </td>
  </tr>
</table>
<%
oRs.Close()
Set oRs=NOthing
Rs.Close()
Set Rs=Nothing
%>