%
dim sql,rst
sql = "select * from zuopin where 1=1 "
if Request.QueryString("type") <> "" Then
sql = sql&" and type = '"&Request.QueryString("type")&"' "
End if
orderstr=" order by id desc"
sql=sql&orderstr
set rst=server.CreateObject("ADODB.RecordSet")
//注:必须用open方法打开,conn.execute的不行
rst.open sql,conn,1,1
dim myPagination
set myPagination =new pagination
myPagination.pageSize =12
mypagination.pageListCount =10
myPagination.setValue(rst)
set rst =myPagination.rst
%>