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" -->
<!-- #include virtual="include/GetRoleName.asp" -->
<!-- #include virtual="include/DateFunction.asp" -->
<%
	Dim ObjDB,StrSQL,ObjRS
	Dim IntPageCount,IntPageNo,IntPageSize
	Dim C,ArrList,i,j,IntRows,IntCols
	Dim StrWhere
	Dim StrRoleName
	
	IntPageNo	= Request.QueryString("PageNo")
	StrWhere	= Request.QueryString("W")
	IntPageSize = 12
	

	StrSQL = "Select ID,AccountName,TrueName,RoleIDs,CreateTime From V_OA_SYS_Account Where 1=1" & StrWhere

	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
	
	Set ObjDB = Server.CreateObject("Adodb.Connection")
	OpenDB ObjDB
	
	Set C = Server.CreateObject("CMS2003.DBHandle")
	C.Init(ObjDB)
	Set ObjRS = C.View("Select * From v_OA_SYS_Account")
	StrRoleName = GetRoleName(ObjDB,ObjRS("RoleIDs"))
	
	ObjDB.Close
	Set ObjDB = Nothing


%>

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

	<table class=Ltable cellspacing=1 cellpadding=3>
	<tr class=LHtr>
		<td width=1%><input type=checkbox id=0 name=ITEM></td>
		<td width=1%></td>
		<td width=15%>登录名</td>
		<td width=15%>真实姓名</td>
		<td width=43%>系统角色</td>
		<td width=15%>日期</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><img src='../../../images/oa/sys/account/icon.gif'></td>
		<td><%=FixStr(ArrList(1,i))%></td>
		<td><%=FixStr(ArrList(2,i))%></td>
<%
	Set ObjDB = Server.CreateObject("Adodb.Connection")
	OpenDB ObjDB
	
	Set C = Server.CreateObject("CMS2003.DBHandle")
	C.Init(ObjDB)
	Set ObjRS = C.View("Select * From v_OA_SYS_Account where ID = " & ArrList(0,i))
	If ObjRS("RoleIDs")<>"" Then
		StrRoleName = Replace(GetRoleName(ObjDB,ObjRS("RoleIDs")),vbcrlf,"/")
	Else
		StrRoleName = ""
	End If
	ObjDB.Close
	Set ObjDB = Nothing
		
%>		
		<td><%=StrRoleName%></td>
		<td><%=FormatDate(FixStr(ArrList(4,i)))%></td>
	</tr>

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

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