📄 main.asp
字号:
<%option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/String.asp" -->
<%
if Session("AccountID")="" then
%>
<script language=javascript>
alert("因登录时间过长，会话失效，请退出重新登陆！")
window.opener="";
window.close();
</script>
<%
end if
Dim SecMenu, DeskValue
Dim SecMenuid
Dim iconpath, SQL
Dim SubC,SubObjDB,SubObjRS,SubObjRS1
Dim C,ObjDB,ObjRS,i
Dim ID
Dim StrRows,StrFrames
Dim StrTable
Dim StrDiv
Dim ObjName,StrTrueName
Dim ObjRS1,StrRoleIDs,StrSQL
Dim IntMenusCount
DIM ObjRS2,StrSQL2,IsLine '定义在线的人数存储变量
ID = Request.QueryString("ID")
Set C = Server.CreateObject("CMS2003.DBHandle")
Set ObjDB = Server.CreateObject("Adodb.Connection")
Set ObjRS1 = Server.CreateObject("Adodb.Recordset")
Set ObjRS2 = Server.CreateObject("Adodb.Recordset")
OpenDB ObjDB '执行数据库的取值操作
StrSQL = "Select RoleIDs From t_OA_SYS_Account Where ID = " & Session("AccountID")
StrSQL2 = "Select count(*) From t_OA_MSN_Account Where State = 1"
Set ObjRS1 = ObjDB.Execute(StrSQL)
Set ObjRS2 = ObjDB.Execute(StrSQL2)
StrRoleIDs = ObjRS1("RoleIDs")
IsLine = ObjRS2(0)
ObjRS1.Close
ObjRS2.Close
'取出菜单项数
Dim MenuItem0,ObjMeuRS,StrMenuSQL
Set ObjMeuRS = Server.CreateObject("Adodb.Recordset")
StrMenuSQL = "Select Count(*) From t_Base_Menu Where ParentID = '0'"
ObjMeuRS = ObjDB.Execute(StrMenuSQL)
MenuItem0 = ObjMeuRS(0)
MenuItem0 = MenuItem0 - 1
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
Dim W(8)
W(1) = "日"
W(2) = "一"
W(3) = "二"
W(4) = "三"
W(5) = "四"
W(6) = "五"
W(7) = "六"
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" type="text/css" href="<%=Application("ROOTPATH")%>Templet/Main.css">
<title>长庆油田分公司基建工程部自动化办公系统</title>
<script language=javascript>
function changeUser()
{
top.location='Exit.asp';
window.open('../../index.asp')
}
function GoURL(url)
{
alert(url)
}
var MenuItemMisCount = 7
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: 230px; dialogWidth: 300px; center: Yes; help: No; resizable: No; status: no;scroll=no");
else
{
varReturn = window.showModalDialog(strTemp,"Dialog Arguments Value","dialogHeight: 230px; 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>
<script language="JavaScript1.2">
<!--
defaultconf = ''
function expandf()
{
if (document.all)
{
if (document.body.cols!="10,*")
document.body.cols="10,*"
else
document.body.cols=defaultconf
}
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
-->
</script>
<style type="text/css">
.Link1 {
color: #3D619D;
font-size: 13px;
text-decoration: none;
}
</style>
</head>
<BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0
onLoad="MM_preloadImages('../../images/index___2.gif','../../images/index___3.gif',
'../../images/index___4.gif','../../images/index___5.gif','../../images/index___6.gif','../../images/index___7.gif','../../images/index___4.gif','../../images/index___5.gif','../../images/index___6.gif','../../images/index___7.gif')">
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="99">
<TR align=left>
<TD height="99" align=left COLSPAN=2 background="../../images/index_14.gif"> <IMG SRC="../../images/index_1.gif" WIDTH=322 HEIGHT=99 ALT=""></TD>
<!-- #include file = "FirstMenu.asp" -->
<TD width="211" height="99" background="../../images/index_14.gif">
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="12%"><img src="../../images/icon2.gif" width="16" height="16"></td>
<td width="44%"><a class=Link1 href="#" onclick="changeUser()"><font size="2">更换用户</font></a></td>
<td width="12%"><img src="../../images/icon4.gif" width="16" height="16"></td>
<td width="32%"><a class=Link1 href="#" onclick="parent.parent.IframeMain.location='../../Doc/help_index.html'" ><font size="2">帮 助</font></a></td>
</tr>
<tr>
<td height="10" colspan="4"></td>
</tr>
<tr>
<td><img src="../../images/icon3.gif" width="16" height="16"></td>
<td><a class=Link1 href="#" onclick="parent.parent.IframeMain.location='../../oa/sys/changepassword/index.asp'" ><font size="2">修改密码</font></a></td>
<td><img src="../../images/icon5.gif" width="16" height="16"></td>
<td><a class=Link1 href="#" onclick="if(parent.doAlert(2,'确定要离开系统？')) top.location='Exit.asp'"><font size="2">退 出</font></a></td>
</tr>
</table>
</TD>
</TR>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="25">
<tr>
<TD height="25" COLSPAN=9>
<!-- #include file = "SecMenu.asp" -->
</TD>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="82.8%">
<tr>
<td>
<table cellpadding="0" cellspacing="0" width="144" height="100%" border="0">
<tr>
<td bgcolor="#CBE8FE" align=center valign=bottom height="5%"><font color="#1C4B91" size="2">今天<%=Year(Date)%>年<%=Month(Date)%>月<%=Day(Date)%>日</font></td>
</tr>
<tr>
<td bgcolor="#CBE8FE" align=center valign=top height="5%"><font color="#1C4B91" size="2">星期<%=W(WeekDay(Date()))%></font></td>
</tr>
<tr>
<td width="144" valign="top" align="middle" height="99%">
<iframe src="left.asp" height="100%" width="100%"></iframe>
</td>
</tr>
</table>
</td>
<td valign="center" align="middle" width="887" height="99%">
<iframe name=IframeMain src="<%=DeskValue%>" width="100%" height="100%"></iframe>
</td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -