<%
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
%>
青岛网站建设 青岛网络公司 青岛网页设计 青岛网站设计制作 海缆工程 商业软件开发销售--青岛海网
