list.asp

功能齐全的oa系统

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

IntPageNo = Request.QueryString("PageNo")
IntPageSize = 16

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

Set C = Server.CreateObject("CMS2003.DBHandle")
C.Init(ObjDB)
StrSQL=" Select ID,Province from t_OA_Public_Zipcode_Province"
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=98%>省市名称</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/zipcode/province/icon.gif'></td>
      <td><%=ArrList(1,i)%></td>
    </tr>
<%
  Next
%>
  </table>
<%
  PageFooter IntPageCount,"PageNo"
End Sub
%>
<!-- #include file="Templet.asp" -->