list.asp

功能齐全的oa系统

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

<%

	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=33%>模块名称</td>
		<td width=33%>权限</td>
		<td width=33%>权限说明</td>
	</tr>

	<%
		For i = 0 To IntRows
	%>
	<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>
		<td><%=ObjRS("Des")%></td>
	</tr>

	<%
		Next		
	ObjDB.Close
	Set ObjDB = Nothing

	%>
	
	
	
	</table>
	<%=PageFooter(IntPageCount,"PageNo")%>
<%'------------------------------------------------------------------%>
<%End Sub%>
<%'==================================================================%>

<!-- #include file="Templet.asp" -->