% @language=vbscript %>
<% dim conn
dim connstr
connstr = "DBQ=" + server.mappath("Database/200306131737.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
Dim rs,sql
Set rs=server.createobject("adodb.recordset")
Dim ss,sq
Set ss=server.createobject("adodb.recordset")
%>
<%
sql="SELECT * FROM [Prod] WHERE C_sort=217 ORDER BY C_sort,C_name asc"
rs.open sql,conn,1
pagesetup=15
count=rs.recordcount '数据总条数
rs.pagesize=pagesetup '每页显示条数
TotalPage=rs.pagecount '总页数
PageCount = cint(Request.QueryString("ToPage"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then rs.absolutepage=PageCount '跳转到指定页数
i=0
Do While Not RS.EOF and i