list.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
Dim ObjDB,StrSQL
Dim IntPageCount,IntPageNo,IntPageSize
Dim StrWhere
Dim C,ArrList,i,j,IntRows,IntCols,IntID 
Dim SelectAll

SelectAll = Request.QueryString ("SelectAll")
StrWhere  = Request.QueryString ("W")
IntID     = Request.QueryString ("IntProvinceID")
IntPageNo = Request.QueryString("PageNo")
IntPageSize = 18

Set ObjDB	= Server.CreateObject("ADODB.Connection")
OpenDB objDB

Set C = Server.CreateObject("CMS2003.DBHandle")
C.Init(ObjDB)

If SelectAll ="0" then
	StrSQL=" Select City,Zipcode,AreaCode from t_OA_Public_Zipcode Where ProvinceID= "&IntID & StrWhere
elseif SelectAll ="1" then
	StrSQL=" Select City,Zipcode,AreaCode from t_OA_Public_Zipcode Where 1=1"&StrWhere
else
	StrSQL=" Select City,Zipcode,AreaCode from t_OA_Public_Zipcode Where ProvinceID="&IntID
end if

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=30%>城市名称</td>
			<td width=40%>城市邮编</td>
			<td width=30%>电话区号</td>
		</tr>
<%
	For i = 0 To IntRows
%>
		<tr class=Ltr >
<%
		For j = 0 to IntCols
%>
			<td><%=ArrList(j,i)%></td>
<%
		Next
%>
</tr>
<%
	Next
%>
	</table>
<%
	PageFooter IntPageCount,"PageNo"
End Sub
%>
<!-- #include file="Templet.asp" -->