list.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/datefunction.asp" -->
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"
%>
<%
	Dim ObjDB,StrSQL
	Dim IntPageCount,IntPageNo,IntPageSize
	Dim C,ArrList,i,j,IntRows,IntCols
	Dim IntID,StrWhere,SelectAll
	SelectAll = Request.QueryString ("SelectAll")
	If SelectAll = "" Then
		SelectAll = 0
	Else
		SelectAll = Cint(SelectAll)
	End If
	
	StrWhere = Request.QueryString("W")
	IntID = Request.QueryString ("ThemeID") 
	IntPageNo = Request.QueryString("PageNo")
	IntPageSize = 12
	If SelectAll = 0 then
	StrSQL = "Select ID,Title,CreateTime From t_OA_Public_Live where ThemeID="& IntID & StrWhere 
	else
	StrSQL = "Select ID,Title,CreateTime From t_OA_Public_Live where 1=1" &StrWhere
	end if
	
	StrSQL = StrSQL & " Order By ID Desc"
	Set ObjDB	= Server.CreateObject("ADODB.Connection")
	OpenDB objDB

	Set C = Server.CreateObject ("CMS2003.DBHandle")
	C.Init(ObjDB)
	ArrList = C.List(IntPageNo,IntPageSize,StrSQL)
	IntPageCount = C.GetPageCount()
	IntRows = C.GetRows()
	IntCols = C.GetCols()
%>

<%'==================================================================%>
<%Sub Main%>
<%'------------------------------------------------------------------%>
	<table class=Ltable cellspacing=1 cellpadding=3>
	<tr class=LHtr>
	<td width=1%><input type=checkbox name=ITEM id=0></td>
	<td width=1%></td>	
	<td width=83%>文章标题</td>	
	<td width=15%>创建日期</td>
	
	</tr>
	<%
		For i = 0 To IntRows
	%>
	<tr class=Ltr id=<%=ArrList(0,i)%> name=ITEMTR>
	<td><input type = checkbox name=ITEM id=<%=ArrList(0,i)%>></td>
	<td><img src='../../../../images/oa/public/live/icon.gif'></td>
	<td><%=ArrList(1,i)%></td>
	<td><%=FormatDate(ArrList(2,i))%></td>
	</tr>
	<%
		Next
	%>
	</table>
	
	<%=PageFooter(IntPageCount,"PageNo")%>
	</table>

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

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