inspection report

sgs inspection

Home Page        Electrical Report       Mechanical Report      Toys Report       Textiles Report      Hard Goods Report


<% flag="尚未处理" set rs=server.createobject("adodb.recordset") sqltext="select * from Conews Order BY id desc" sqltext,conn,1,1 dim PerPage PerPage=20 '假如没有数据时 If rs.eof and rs.bof then call showpages 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 showpages call list If Rs.recordcount > PerPage then call showpages end if '显示帖子的子程序 Sub list()%> <% End sub rs.close %>




Copyright © 2005-2008  NingBo DTAL Inspection service Co.,Ltd.     Address:No.76, LiangFeng Street, NingBo ZheJiang China
Tel:86-574-81618172  87467489            Fax:86-574-87467489