叶子asp分页类(12)

日期：2020-05-13 栏目：程序人生浏览：次

<body bgcolor="#FFFFFF" text="#000000">
<table width="760" border="0" cellspacing="2" cellpadding="2" align="center" height="30">
<tr>
   <td> </td>
</tr>
</table>
<table width="760" border="1" cellspacing="0" cellpadding="4" align="center" bordercolordark="#FFFFFF" bordercolorlight="#CCCCCC">
<tr align="center">
   <td width="20">ID</td>
   <td>标题</td>
   <td>内容(显示前20个字)</td>
   <td>时间</td>
</tr>
<%
Dim ors
Set ors=new Cls_vbsPage ''创建对象
Set ors.Conn=conn  ''得到数据库连接对象
With ors
.PageSize=13  ''每页记录条数
.PageSize=13  ''每页记录条数
.PageName="Pages" ''cookies名称
.DbType="MSSQL"
''数据库类型,AC为access,MSSQL为sqlserver2000存储过程版,MYSQL为mysql,PGSQL为PostGreSql
.RecType=0
''记录总数(>0为另外取值再赋予或者固定值,0执行count设置存cookies,-1执行count不设置cookies)
.JsUrl=""   ''Cls_jsPage.js的路径
.Pkey="MID"   ''主键
.Field="MID,ip2,country,city"
.Table="tbTempPage"
.Condition=""  ''条件,不需要where
.OrderBy="MID ASC" ''排序,不需要order by,需要asc或者desc
End With
iRecCount=ors.RecCount()''记录总数
iRs=ors.ResultSet()  ''返回ResultSet
If  iRecCount<1 Then%>
<tr bgcolor="">
   <td >暂无记录</td>
</tr>
<%
Else
   For i=0 To Ubound(iRs,2)%>
<tr bgcolor="#FFFFFF">
   <td><%=iRs(0,i)%></td>
   <td><%=iRs(1,i)%></td>
   <td><%=left(iRs(2,i),20)%></td>
   <td><%=iRs(3,i)%></td>
</tr><%
   Next
End If
%>
</table>
<table width="760" border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
   <td>
<%ors.ShowPage()%>
</td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
   <td align="center">
     <%endtime=timer()%>

转载注明出处：http://www.heiqu.com/3454.html

叶子asp分页类(12)

相关推荐