list.asp

功能齐全的oa系统

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

Dim ObjDB,StrSQL
Dim IntParentID
Dim IntPageCount,IntPageNo,IntPageSize
Dim C,ArrList,i,j,IntRows,IntCols

IntParentID = Request.QueryString("ParentID")
IntPageSize=16
IntPageNO=Request.QueryString("PageNO")
    
IntParentID = Request.QueryString("ParentID")
If IntParentID = "" Then IntParentID = 0

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 a.Address,a.UserName,a.MailServerName,a.CreateTime,a.ID,b.TrueName From V_OA_Message_Account a,t_OA_SYS_Account_Character b Where a.AccountID= b.AccountID"
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=1%><input type=checkbox id=0 name=ITEM></td>
		<td width=1%></td>
		<td width=10%>姓名</td>
		<td width=25%>邮件地址</td>
		<td width=15%>用户名</td>
		<td width=20%>邮件服务器</td>
		<td width=15%>日期</td>
	</tr>
<%
	For i = 0 To IntRows
%>
	<tr class=Ltr name=ITEMTR id=<%=ArrList(4,i)%>>
		<td><input type=checkbox name=ITEM  id=<%=ArrList(4,i)%>></td>
		<td><img src='../../../images/oa/mail/account/icon.gif'></td>
		<td><%=ArrList(5,i) %></td>
		<td><%=ArrList(1,i) & "@" & ArrList(0,i)%></td>
		<td><%=ArrList(1,i)%></td>
		<td><%=ArrList(2,i)%></td>
		<td><%=FormatDate(ArrList(3,i))%></td>
	</tr>
<%
	Next		
%>
	</table>
<%
  PageFooter IntPageCount,"PageNo"
End Sub
ObjDB.Close
Set ObjDB = Nothing
%>
<!-- #include file="templet.asp" -->