mainorigine.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 223 行

ASP
223 行
字号 
<%option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/String.asp" -->
<%
	If Session("AccountID")="" Then
%>
<script language=javascript>
	window.close()
</script>
<%
		Response.End 
	End If
	Dim C,ObjDB,ObjRS,i
	Dim ID
	Dim StrRows,StrFrames
	Dim StrTable
	Dim StrDiv
	Dim ObjName,StrTrueName
	Dim ObjRS1,StrRoleIDs,StrSQL
	Dim IntMenusCount

	ID = Request.QueryString("ID")
	Set C = Server.CreateObject("CMS2003.DBHandle")
	Set ObjDB = Server.CreateObject("Adodb.Connection")
	Set ObjRS1 = Server.CreateObject("Adodb.Recordset")
	OpenDB ObjDB
	
	StrSQL = "Select RoleIDs From t_OA_SYS_Account Where ID = " & Session("AccountID")
	Set ObjRS1 = ObjDB.Execute(StrSQL)
	StrRoleIDs = ObjRS1("RoleIDs")
	ObjRS1.Close
	

	
	C.Init(ObjDB)
	Set ObjName = C.View("Select TrueName From t_OA_SYS_Account_Character Where AccountID = " & Session("AccountID"))
	StrTrueName = ObjName("TrueName")
	StrSQL = "Select ID,MenuName From t_Base_Menu Where ParentID = 0 And MenuType=1"
	ObjRS = C.List(1,0,StrSQL)

	Dim IntAllWidth,IntMyWidth
	IntAllWidth = 0
	IntMyWidth = 0
	For i =  0 To C.GetRows()
		IntMyWidth = (Len(ObjRS(1,i))+1)*13
		StrSQL = "Select ModuleID From v_Base_Menu_Role_Permission Where RoleID In (" & StrRoleIDs & ") And MenuParentID = " & ObjRS(0,i) & " Group By ModuleID"
		ObjRS1.Open StrSQL,ObjDB,1,3
		IntMenusCount=0
		While Not ObjRS1.EOF
			IntMenusCount = IntMenusCount + 1
			ObjRS1.MoveNext 
		Wend 
		ObjRS1.Close
		StrTable = StrTable & "<td width=" & IntMyWidth & " align=left><table cellpadding=2 border=0 cellspacing=0><tr><td style='cursor:hand' class=tdOff onmouseover=" & Chr(34) & "this.className='tdOn'" & Chr(34) & " onmouseout=" & Chr(34) & "this.className='tdOff'" & Chr(34) & "><div onmouseover='ShowMenuItemMis(" & i & ")' onclick='ShowMenuItemMis(" & i & ")'>" & ObjRS(1,i) & "</td></tr></table></td>" & Vbcrlf
		StrDiv = StrDiv & "<DIV id=MenuItemMis" & i & " style=" & Chr(34) & "display='none';Z-INDEX: 50; LEFT: " & 252+IntAllWidth & "; OVERFLOW: hidden; WIDTH: 120; POSITION: absolute; TOP: 104; HEIGHT: " & IntMenusCount*25 & "" & Chr(34) & ">" & VBcrlf
		StrDiv = StrDiv & "<iframe src='MenuItemMis.asp?ID=" & ObjRS(0,i) & "&Item=" & i & "' height='100%' width='100%' FRAMEBORDER=0 MARGINWIDTH=0 MARGINHEIGHT=0 Scrolling=no></iframe></DIV>" & VBcrlf
		IntAllWidth = IntAllWidth + IntMyWidth
	Next
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>西安鼎天智能技术股份有限公司  办公平台</title>
<style>
<!--
body         { border: 0px solid #dedfde;  }
td           { font-size: 12px }
.tdOn{background-color: #b5bed6; border: 1px solid #000000; }
.tdOff{background-color:#dedfde;border:1px solid #dedfde; }
.LeftNavOff  { color: #000000; cursor: hand; font-family: Verdana; font-size: 12px; 
               letter-spacing: -0.5pt; line-height: 16px; text-decoration: 
               none; width: 16px; border: 1px solid #Dedede; margin: 0px; 
               padding-left: 3px; padding-right: 3px; padding-top: 1px; 
               padding-bottom: 0px }
.LeftNavUp   { color: #FF3300; cursor: hand; font-family: Verdana; font-size: 12px; height: 
               0pt; letter-spacing: -0.5pt; line-height: 16px; 
               text-decoration: none; width: 16px; 
               border-left: 1px solid #FFFFFF; border-right: 1px solid #808080; 
               border-top: 1px solid #FFFFFF; border-bottom: 1px solid #808080; 
               margin: 0px; padding-left: 3px; padding-right: 3px; 
               padding-top: 1px; padding-bottom: 0px }
.LeftNavDown { color: #000000; cursor: hand; font-family: Verdana; font-size: 12px; 
               letter-spacing: -0.5pt; line-height: 16px; text-decoration: 
               none; width:16px; border-left: 1px solid #808080; 
               border-right: 1px solid #FFFFFF; border-top: 1px solid #808080; 
               border-bottom: 1px solid #FFFFFF; margin: 0px; padding-left: 
               3px; padding-right: 3px; padding-top: 1px; padding-bottom: 0px }

-->
</style>
<script language=javascript>

function GoURL(url){
	alert(url)
}

var MenuItemMisCount = 7
function ShowMenuItemMis(id){
	HideMenuItemMis()
	document.all("MenuItemMis"+id).style.display="";
}
function HideMenuItemMis(){
	for(var i=0;i<=MenuItemMisCount;i++){
		document.all("MenuItemMis"+i).style.display="none";
	}
}

function doAlert(intType,strMessage){
		var strTemp;
		var strVersion;
		var varReturn;
		strVersion = navigator.appVersion;
		strTemp ="<%=Application("RootPath")%>Dialog/alertwindow.asp?intType=" + intType +"&strMessage="+strMessage + "&R=" + Math.random();
		if(strVersion.indexOf("MSIE 5")!=0 && strVersion.indexOf("MSIE 5")!=-1)
			varReturn = window.showModalDialog(strTemp,"Dialog Arguments Value","dialogHeight: 220px; dialogWidth: 300px; center: Yes; help: No; resizable: No; status: no;scroll=no");
		else{
			varReturn = window.showModalDialog(strTemp,"Dialog Arguments Value","dialogHeight: 220px; dialogWidth: 300px; center: Yes; help: No; resizable: no; status: no;scroll=no");
		}
		return varReturn;
}

var HasOpenMSN = false
var MSNWin
function openMSN(){
	if(!HasOpenMSN)
	MSNWin = window.open ('/OA/MSN/','MSNWin','width=108;height=200,resizable=1')
	else
	if(MSNWin.closed)
	MSNWin = window.open ('/OA/MSN/','MSNWin','width=108;height=200,resizable=1')
	else
	MSNWin.focus()
	HasOpenMSN = true
}

function openPIC(){
	top.open ('/OA/Private/Data','MyPIC','width=108;height=200,resizable=1')
}
</Script>

</head>

<body bgcolor="#dedfde" leftMargin=0 topMargin=0 onunload="opener.doReset()">

<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%">
<tr>
<td height="1%" colspan=3 bgcolor="#92ADD9">
<IMG src="../../Images/UI/top.jpg" width="894" height="80" ></td>
</tr>
<tr style="">
<td valign="top" colspan="3" height="1%"><!--分割线--->
	<div align="center">
	<table border="0" cellspacing="0" width="100%" cellpadding="0">
	<tr>
	<td bgcolor="#848284"></td>
	</tr>
	<tr>
	<td bgcolor="#ffffff"></td>
	</tr>
	</table>
	</div><!--分割线--->

	<div align="center">
	<table border="0" cellpadding="2" cellspacing="0" width="100%">
	<tr>
	<td height="35">
		<table border="0" cellpadding="2" cellspacing="0">
		<tr>
		<td width=140 align=center >欢迎您，<%=StrTrueName%></td>
		<td ><img style="cursor:hand" onclick="openMSN()" src="/images/ui/mis.gif"></td>
		<td>
			<table border="0" cellpadding="0" cellspacing="0"><tr>
			<%=StrTable%>
			</tr></table>
		</td>
		</tr>
		</table>
	</td>
	</tr>
	</table>
	</div>

</td>
</tr>


<tr>
	<td width="1%" style="BORDER-BOTTOM: #ffffff 1px solid; BORDER-LEFT: #848284 1px solid; BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #848284 1px solid" valign="top" align="middle" height="99%"><!--目录--->
	<iframe src="MenusOA.asp" height="100%" width=130></iframe><!--目录--->
	</td>

	<td width=30>　</td>

	<td valign="center" align="middle" width="99%" height="99%">

	<div align="center">
	<table border="0" cellspacing="0" width="99%" height="100%" style="BORDER-BOTTOM: #ffffff 1px solid; BORDER-LEFT: #848284 1px solid; BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #848284 1px solid" cellpadding="0">
	<tr>
	<td style="BORDER-BOTTOM: #848284 1px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-RIGHT: #848284 1px solid; BORDER-TOP: #ffffff 1px solid" valign="center" align="middle">
	 
		<table border="0" cellspacing="0" width="99%" height="100%" cellpadding="0">
		<tr>
		<td bgcolor="#ffffff" height="100%">
		<iframe name=IframeMain src="Desk.asp" width="100%" height="100%"></iframe>
		</td>
		</tr>
		<tr>
		<td height="5"></td>
		</tr>
		</table>

	</td>
</tr>
</table>
</div>

		<%=StrDiv%>

</body>

mainorigine.asp - 源码说明

本页面展示了「功能齐全的oa系统」中的 mainorigine.asp 源码文件，采用 ASP 编程语言编写，共 223 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?