; Net.Jscript = Server.MapPath("Jscript/Pages.js") ''''JS分页函数地址
Net.ConnStr = ConnStr ''''连接数据库
Net.PageSize = 20 ''''每页显示数
Net.Table = "Test" ''''表名
Net.Index = "ID" ''''唯一标识字段名
Net.Column = "ID,Title,Content" ''''要显示的字段名
Net.Order = "By ID Desc" ''''排序
Dim RS As DataTable
RS = Net.ShowRecords ''''调出分页后的记录
Response.Write("<table>")
For i = 0 To RS.Rows.Count - 1
Response.Write("<tr>" & Chr(13))
Response.Write("<td>" & RS.Rows(i)(0) & "</td><td>" & RS.Rows(i)(1) & "</td><td>" & RS.Rows(i)(2) & "</td>" & Chr(13))
Response.Write("</tr>" & Chr(13))
Next
Response.Write("<table>" & Chr(13))
Response.Write(Net.ShowPage("ID=20&") & "<br>") ''''ID=20&为一同传递的其它分页参数
Response.Write(FormatNumber(Timer - Run, 6))
上一页 [1] [2] [3] |
