<%
dim conn
dim connstr
dim db
dim sql
dim rs
Set conn = Server.CreateObject("ADODB.Connection")
connstr="DBQ="+server.mappath("message.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
conn.Open connstr
sql="select * from msgtable order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize=50
fpage=CLng(request.querystring("page"))
If fPage<1 Then fPage=1
If fPage=null Then fPage=1
If fPage>rs.PageCount Then fPage=rs.PageCount
rs.AbsolutePage=fpage
%>
会员列表
