📄 index.asp
字号:
<!--#include virtual="include/DataEnvi.asp"-->
<!--#include virtual="include/function.asp"-->
<!--#include virtual="include/DateFunction.asp"-->
<!--#include virtual="include/String.asp"-->
<%
Dim ObjDB,ObjRS,strSQL
Dim StrProduce,strOffice,strTechno,strFinance,strCar,strSafeguard
Dim AccountID
Dim StrRoleIDs
AccountID = session("AccountID")
Set C = Server.CreateObject("CMS2003.DBHandle")
Set ObjDB = Server.CreateObject("Adodb.Connection")
OpenDB ObjDB
C.Init(ObjDB)
'-----------------------------------------------------------------------------------------------------------------------
StrSQL = "Select RoleIDs From t_OA_SYS_Account Where ID = " & Session("AccountID")
'Response.Write strsql
Set ObjRS = ObjDB.Execute(StrSQL)
StrRoleIDs = ObjRS("RoleIDs")
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
body { border: 0 solid #dedfde }
td { font-size:12px }
.button { font-size: 12px; border-style: ridge; border-width: 1 }
</style>
</head>
<body leftmargin="0" topmargin="0" bgcolor="#DEDFDE" background="../../../images/oa/aidance/leader/desk.jpg">
<table width="100%" height=100% border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign=top align=right>
<br><br>
<table border="0" cellspacing="0" cellpadding="3" width=100%>
<%
Dim ObjRS1,Ti
StrSQL = "Select ID,MenuName From t_Base_Menu Where MenuType=2 And ParentID=0 Order By OrderID"
Set ObjRS1 = objDB.Execute(StrSQL)
Ti = 0
While Not ObjRS1.EOf
Ti = Ti + 1
If Ti Mod 4 =1 Then Response.Write "<tr>"
%>
<td valign=top width=25%><%Call WriteATable(ObjRS1("MenuName"),ObjRS1("ID"))%></td>
<%
If Ti Mod 4 =0 Then Response.Write "</tr>"
ObjRS1.MoveNext
Wend
%>
</tr>
</table>
<br>
<br>
</td>
</tr>
</table></body>
</html>
<%
Sub WriteATable(TableTitle,MyParentID)
Dim StrSQL,ObjRS
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="t1.gif" width="8" height="19"></td>
<td bgcolor="#586EC6" width="100%" align=center><%=TableTitle%></td>
<td><img src="t2.gif" width="12" height="19"></td>
</tr>
<tr>
<td background="c1.gif"></td>
<td bgcolor="#FFFFFF" width="100%" valign=middle height=100>
<table width=100% height=95 border=0>
<tr><td valign=top height=150>
<%
Dim StrEnterPath
strSQL = "SELECT DISTINCT ModuleID, BasicPath,EnterPath, MenuParentID, OrderID, MenuName FROM v_Base_Menu_Role_Permission WHERE (RoleID IN (" & StrRoleIDs & ")) AND (MenuType = 2) AND (MenuParentID = " & MyParentID & ") ORDER BY MenuParentID, OrderID"
Set objRS = objDB.Execute(strSQL)
Do While Not objRS.EOF
StrEnterPath = ObjRS("EnterPath")
If IsNull(StrEnterPath) Then StrEnterPath = ""
If StrEnterPath = "" Then StrEnterPath = ObjRS("BasicPath")
%>
<br><span style="cursor:hand" onclick="window.location='<%=Application("RootPath")%><%=StrEnterPath%>'"><%=FixStrLen(objRS.Fields("MenuName"),20)%></span>
<%
objRS.MoveNext()
Loop
%>
</td></tr>
</table>
</td>
<td background="c2.gif"> </td>
</tr>
<tr>
<td><img src="m1.gif" width="8" height="11"></td>
<td width="100%" background="m2.gif"></td>
<td><img src="m3.gif" width="12" height="11"></td>
</tr>
</table>
<%
End Sub
%>
<%
objRS.Close()
Set objRS = Nothing
objDB.Close()
Set objDB = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -