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/Page.asp" -->
<%
	Dim ObjDB,StrSQL
	Dim IntPageCount,IntPageNo,IntPageSize
	Dim C,ArrList,i,j,IntRows,IntCols
	Dim StrWhere
	
	IntPageNo	= Request.QueryString("PageNo")
	StrWhere	= Request.QueryString("W")
	IntPageSize = 4
	
	If StrWhere = "" Then
		StrSQL = "Select AccountID,TrueName,Gender,Createtime From t_OA_SYS_Account_Character"
	Else
		StrSQL = "Select AccountID,TrueName,Gender,Createtime From t_OA_SYS_Account_Character Where 1=1" & StrWhere
	End If

	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
%>

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

	<table width="95%" border="0">
	<tr>
	<td colspan=5>t_OA_SYS_Account_Character</td>
	</tr>
	<tr>
		<td width=10%></td>
		<td width=15%>&nbsp</td>
		<td width=20%>&nbsp</td>
		<td width=20%>&nbsp</td>
		<td width=35%>&nbsp</td>		
	</tr>
	<tr>
		<td><input type=checkbox onclick="selectAll()" id=checkbox1 name=checkbox1></td>
		<td>AccountID</td>
		<td>真实姓名</td>
		<td>性别</td>
		<td>创建时间</td>
	</tr>

	<%
		For i = 0 To IntRows
	%>
	<tr>
		<td><input type=checkbox nama=Item  id=checkbox2<%=ArrList(0,i)%> name=checkbox2></td>
		<%
		For j = 0 To IntCols
		%>
	<td><a href=View.asp?ID=<%=ArrList(j,i)%>> <%=ArrList(j,i)%></td>
		<%
		Next
		%>
	</tr>

	<%
		Next		
	%>
	
	
	
	</table>
	<%=PageFooter(IntPageCount,"PageNo")%>

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

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