listbak.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/Page.asp" -->
<%
	Dim ObjDB,StrSQL
	Dim IntPageCount,IntPageNo,IntPageSize
	Dim C,ArrList,i,j,IntRows,IntCols
	
	IntPageNo	= Request.QueryString("PageNo")
	IntPageSize = 12
	
	StrSQL = "Select ModuleID,ModuleName,CName,BasicPermission,ExpendPermission,ExpendName From V_OA_SYS_Role_Permission Where RoleID = 1"

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

	C.Init(ObjDB)
	ArrList = C.List(IntPageNo,IntPageSize,StrSQL)	'使用List()函数获得列表数组
	IntPageCount = C.GetPageCount()					'使用GetPageCount()函数获得总页码
	IntRows = C.GetRows()							'使用GetRows()获得总返回的行数
	IntCols = C.GetCols()							'使用GetCols()获得总返回的列数

	ObjDB.Close
	Set ObjDB = Nothing
	
	Response.Write Request.Form("Module1")
	
	Function GetCheckBox(ModuleID,InChar)
		Dim C
		If Mid(InChar,1,1) = "1" Then
			C = C & "<input Type=checkbox title='全部显示' checked name=Module" & ModuleID & " value=1>"
		Else
			C = C & "<input Type=checkbox title='全部显示' name=Module" & ModuleID & " value=0>"
		End If

		If Mid(InChar,2,1) = "1" Then
			C = C & "<input Type=checkbox title='查看' checked name=Module" & ModuleID & " value=1>"
		Else
			C = C & "<input Type=checkbox title='查看' name=Module" & ModuleID & " value=0>"
		End If

		If Mid(InChar,3,1) = "1" Then
			C = C & "<input Type=checkbox title='新增' checked name=Module" & ModuleID & " value=1>"
		Else
			C = C & "<input Type=checkbox title='新增' name=Module" & ModuleID & " value=0>"
		End If

		If Mid(InChar,4,1) = "1" Then
			C = C & "<input Type=checkbox title='修改' checked name=Module" & ModuleID & " value=1>"
		Else
			C = C & "<input Type=checkbox title='修改' name=Module" & ModuleID & " value=0>"
		End If

		If Mid(InChar,5,1) = "1" Then
			C = C & "<input Type=checkbox title='删除' checked name=Module" & ModuleID & " value=1>"
		Else
			C = C & "<input Type=checkbox title='删除' name=Module" & ModuleID & " value=0>"
		End If

		If Mid(InChar,6,1) = "1" Then
			C = C & "<input Type=checkbox title='查询' checked name=Module" & ModuleID & " value=1>"
		Else
			C = C & "<input Type=checkbox title='查询' name=Module" & ModuleID & " value=0>"
		End If

		GetCheckBox = C
	End Function
	
	Function GetCheckboxEx(InChar,InName)
		Dim ArrName,C
		If IsNull(InName) Then
			GetCheckBoxEx = ""
			Exit Function
		End IF
		
		ArrName = Split(InName,":")
		
		If Mid(InChar,1,1) = "1" Then
			C = C & "<input Type=checkbox title='" & ArrName(0) & "' checked id=checkbox3 name=checkbox3>"
		Else
			C = C & "<input Type=checkbox title='" & ArrName(0) & "' id=checkbox3 name=checkbox3>"
		End If
		
		GetCheckBoxEx = C
	End Function
%>

<%'==================================================================%>
<%Sub Main%>
<%'------------------------------------------------------------------%>

	<table class=Ltable cellspacing=1 cellpadding=3>
	<tr class=LHtr>
		<td><input type=checkbox onclick="selectAll()" id=checkbox1 name=checkbox1></td>
		<td>模块标志</td>
		<td>模块名称</td>
		<td>基本权限</td>
		<td>扩展权限</td>
	</tr>


	<%
		For i = 0 To IntRows
	%>
	<tr class=Ltr name=ITEMTR>
		<td><input type=checkbox nama=Item  id=checkbox2<%=ArrList(0,i)%> name=checkbox2></td>
		<td><%=ArrList(1,i)%></td>
		<td><%=ArrList(2,i)%></td>
		<td><%=GetCheckBox(ArrList(0,i),ArrList(3,i))%></td>
		<td><%=GetCheckBoxEx(ArrList(4,i),ArrList(5,i))%></td>
		
	</tr>

	<%
		Next		
	%>
	
	
	</table>

	<%=PageFooter(IntPageCount,"PageNo")%>

	
<%'------------------------------------------------------------------%>
<%End Sub%>
<%'==================================================================%>

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