📄 desk.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,Stronclick
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")
' If IsNull(StrRoleIDs) Then StrRoleIDs = ""
' If StrRoleIDs = "" Then StrRoleIDs = "0"
' If objRS(0)=0 Then
' strComMsg = "您没有待处理的公文"
' Else
' strComMsg = "您有<font color=#FF6600>" & objRS(0) & "</font>封待处理的公文<br><font color=999999>"
' objRS.Close()
strSQL = "SELECT DISTINCT ModuleID, BasicPath, MenuParentID, OrderID, MenuName FROM v_Base_Menu_Role_Permission WHERE (RoleID IN (" & StrRoleIDs & ")) AND (MenuType = 2) AND (MenuParentID = 36) ORDER BY MenuParentID, OrderID"
Set objRS = objDB.Execute(strSQL)
Do While Not objRS.EOF
strProduce = strProduce & "<br>" & FixStrLen(objRS.Fields("MenuName"),20)
Stronclick = "onclick="
Stronclick = Stronclick &"'"&"../../"
Stronclick = Stronclick & ObjRS("BasicPath")
Stronclick = Stronclick &"'"
Response.Write Stronclick
Response.End
' strComMsg = strComMsg & "(" & FormatDateS(objRS.Fields("SendTime")) & ")"
objRS.MoveNext()
Loop
' End If
objRS.Close()
Set objRS = Nothing
objDB.Close()
Set objDB = Nothing
%>
<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">
<tr>
<td>
<table width="200" border="0" cellspacing="0" cellpadding="0" style="cursor:hand" title="进入工作列表" onclick="window.location='../../oa/work/commessage'">
<tr>
<td><img src="t1.gif" width="8" height="19"></td>
<td bgcolor="#586EC6" width="100%" align=center>生产运行科</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>
<img src="../../../images/oa/aidance/leader/commsg.gif">
<%=strProduce%>
</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>
</td>
</td>
</tr>
</table>
<br>
<br>
</td>
</tr>
</table></body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -