list.asp

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

<%option explicit%>
<!--#include virtual ="/Include/DataEnvi.asp"-->
<!--#include virtual ="/Include/String.asp"-->
<!--#include virtual ="/Include/Page.asp"-->
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"

Dim ObjDB,StrSQL,ObjRS
Dim IntRoleID
Dim IntPageCount,IntPageNo,IntPageSize
Dim C,ArrList,i,j,IntRows,IntCols
Dim ArrList2

IntRoleID = Request.QueryString("RoleID")

IntPageSize=0
IntPageNO=Request.QueryString("PageNO")

If IntPageNO = "" Then
	IntPageNO = 1
Else
	IntPageNO = Cint(IntPageNO)
End If

Set ObjDB = Server.CreateObject("Adodb.Connection")
OpenDB ObjDB

Set C = Server.CreateObject ("CMS2003.DBhandle")
                 
StrSQL = "Select ID,CName From t_Base_Module"
C.Init(ObjDB)
ArrList      = C.List(IntPageNo,IntPageSize,StrSQL)	  '使用List()函数获得列表数组
IntPageCount = C.GetPageCount()					              '使用GetPageCount()函数获得总页码
IntRows      = C.GetRows()							              '使用GetRows()获得总返回的行数
IntCols      = C.GetCols()							              '使用GetCols()获得总返回的列数

Sub Main
%>
	<table class=Ltable cellspacing=1 cellpadding=3>
	<tr class=LHtr>
		<td width=2%></td>
		<td width=20%>模块名称</td>
		<td width=28%>权限</td>
		<td width=2%></td>
		<td width=20%>模块名称</td>
		<td width=28%>权限</td>
	</tr>
<%
	For i = 0 To IntRows
    if i mod 2 = 0 then
%>
	<tr class=Ltr name=ITEMTR id=<%=ArrList(0,i)%>>
		<td><input type=checkbox name=ITEM id=<%=ArrList(0,i)%>></td>
		<td><%=ArrList(1,i)%></td>
<%
		StrSQL = "Select PerName,Des From v_OA_SYS_Role_Permission Where RoleID = " & IntRoleID & " And ModuleID = " & ArrList(0,i)
		Set ObjRS = C.View(StrSQL)
%>		
		<td><%=ObjRS("PerName")%></td>
<%
    else
%>
		<td><input type=checkbox name=ITEM id=<%=ArrList(0,i)%>></td>
		<td><%=ArrList(1,i)%></td>
<%
			StrSQL = "Select PerName,Des From v_OA_SYS_Role_Permission Where RoleID = " & IntRoleID & " And ModuleID = " & ArrList(0,i)
			Set ObjRS = C.View(StrSQL)
%>		
		<td><%=ObjRS("PerName")%></td>
	</tr>
<%
    end if
	Next		

	ObjDB.Close
	Set ObjDB = Nothing
%>
	</table>
<%
End Sub
%>
<!-- #include file="Templet.asp" -->