<%
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
%>
海缆工程 海缆埋设 海缆维修 海缆埋设设备--青岛海网
