left.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="
	  StrFrames = StrFrames & ObjRS(1,i) & "' marginwidth=2 marginheight=3 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=" 
	  StrFrames = StrFrames & ObjRS(0,i) & "' marginwidth=2 marginheight=2 scrolling=auto noresize >" & Vbcrlf
	Next
End If
Response.Write StrFrames
'Response.End
StrRows = StrRows & "*,0"
%>
<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,0"
}

function SetOnline()
{
	MenuItem0.location = "../../Online.asp?R=" + Math.random()
	MenuItemEvent.location = "../../CheckEvent.asp?R=" + Math.random()
	window.setTimeout("SetOnline()",60000)
}
</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'>"
<frame name=MenuItemEvent src="../../CheckEvent.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>