% if session("m_UserName")="" then response.redirect "login.asp" end if set rs=server.CreateObject("adodb.recordset") sql="select * from casetable where pid>0" sql=sql&" order by Cint(a_ClassLayer) desc" 'response.Write sql 'response.End() rs.open sql,conn,3,3 dim MaxPerPage MaxPerPage=12 dim text,checkpage text="0123456789" rs.PageSize=MaxPerPage 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 %>
|
|
|
|
——电话上门服务
|
||
| 电话:(+8620)85201954 传真:(+8620)85201954
E-mail:wuyouhc@163.com 地址:中国广东广州市天河区龙口东路68号 无忧耗材版权所有 2006-2010 |
||