<% flag="尚未处理" set rs=server.createobject("adodb.recordset") sqltext="select * from PE_Supply where SupplyPicUrl <> '' and deleted =0 and (SupplyType = 0 or SupplyType = 1) order by SupplyId desc" rs.open sqltext,mconn,1,3 dim PerPage PerPage=29 If rs.eof and rs.bof then response.write "

还没任何产品

" response.end End if text="0123456789" Rs.PageSize=PerPage for i=1 to len(request("page")) checkpage=instr(1,text,mid(request("page"),i,1)) if checkpage=0 then exit for end if next If checkpage<>0 then If NOT IsEmpty(request("page")) Then CurrentPage=Cint(request("page")) If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount Else CurrentPage= 1 End If If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if Else CurrentPage=1 End if call list If Rs.recordcount > PerPage then end if Sub list()%> 金银花信息网 -金银花价格,金银花行情,金银花种植-->中国金银花行业门户网站
您现在的位置: 金银花信息网 >> 网上门店>>我要发布

<%call zhijie()%>

<% Response.write "  ->   全部-" Response.write "共" & "" & Cstr(Rs.RecordCount) & "" & "条企业信息                  " Response.write "          第" & "" & Cstr(CurrentPage) & "" & "/" & Cstr(rs.pagecount) & " " If currentpage > 1 Then response.write "首页" Response.write "上一页" Else Response.write "上一页 " End if If currentpage < Rs.PageCount Then Response.write "下一页 " Response.write "尾页  " Else Response.write "" Response.write "下一页  " End if 'response.write "" 'response.write "转到: " 'response.write "  " %> <% End sub rs.close set rs=nothing %> <% mconn.close set mconn=nothing %>