<% '定义ADODB，用于动态部分！
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("../data/gmds.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr %>
<%
const MaxPerPage=10 '分页显示的纪录个数
dim sql
dim rs
dim gstBookID
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
if not isempty(request("page")) then
currentPage=cint(request.querystring("page"))
else
currentPage=1
end if
set rs=server.createobject("adodb.recordset")
%>
