menusoa.asp

功能齐全的oa系统

<%option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/String.asp" -->
<%
	Dim C,ObjDB,ObjRS,i
	Dim StrRows,StrFrames

	Set C = Server.CreateObject("CMS2003.DBHandle")
	Set ObjDB = Server.CreateObject("Adodb.Connection")
	OpenDB ObjDB
	C.Init(ObjDB)
	ObjRS = C.List(1,0,"Select ID,MenuName From t_Base_Menu Where ParentID = 0 And MenuType=1 Order By OrderID")
	If C.GetRecordCount > 0 Then
		For i = 0 To C.GetRows()
		StrRows = StrRows & "20,0,"
		StrFrames = StrFrames & "<frame name=MenuHead" & i & " src='MenuHeadOA.asp?ID=" & i & "&Menu=" & ObjRS(1,i) & "' marginwidth=2 marginheight=2 scrolling=no noresize style='border-left: 1 solid #FFFFFF; border-right: 1 solid #808080; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #808080'>" & Vbcrlf
		StrFrames = StrFrames & "<frame name=MenuItem" & i & " src='MenuItemOA.asp?ID=" & ObjRS(0,i) & "' marginwidth=2 marginheight=2 scrolling=auto noresize style='border-left: 1 solid #FFFFFF; border-right: 1 solid #FFFFFF; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #FFFFFF'>" & Vbcrlf
		Next
	End If
	StrRows = StrRows & "*"
	
%>

<script language=javascript>
var MenuCount = <%=i%>
function OpenMenu(m){
	var sRows = ""
	for(var i=0;i<MenuCount;i++){
		if(i==m)
			sRows +=  "20,*,"
		else
			sRows +=  "20,0,"
	}
	Menus.rows = sRows + "0"
}

function SetOnline(){
	MenuItem0.location = "../../Online.asp?R=" + Math.random()
	window.setTimeout("SetOnline()",5000)
}
</script>
<frameset framespacing="0" name=Menus border="0" rows="<%=StrRows%>" frameborder="0" onload="SetOnline()">
<%=StrFrames%>
<frame name=MenuItem0 src="../../Online.asp" marginwidth=2 marginheight=2 scrolling=auto noresize style='border-left: 1 solid #FFFFFF; border-right: 1 solid #808080; border-top: 1 solid #FFFFFF; border-bottom: 1 solid #808080'>"
</frameset>