<% '请勿改动下面这三行代码 ShowSmallClassType=ShowSmallClassType_Default MaxPerPage=MaxPerPage_Default strFileName="case.asp?BigClassName=" & BigClassName & "&SmallClassName=" & SmallClassName &"&Elite="&Elite&"&PA="&PA&"&PB="&PB %>
       工程案例  
<% flag="尚未处理" set rs=server.createobject("adodb.recordset") sqltext="select * from case where Passed=True " if bigclassname<>"" then sqltext= sqltext & " and bigclassname='" & bigclassname &"'" end if if smallclassname<>"" then sqltext= sqltext & " and smallclassname='" & smallclassname &"'" end if if Elite<>"" then sqltext= sqltext & "and Elite='" & Elite &"'" end if if pA<>"" then sqltext= sqltext & " and size>=" & cint(pA) &"" end if if pB<>"" then sqltext= sqltext & " and size<" & cint(pB) &"" end if sqltext= sqltext & " order by UpdateTime desc" rs.open sqltext,conn,1,1 dim PerPage PerPage=25 '假如没有数据时 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 %>
<% i=0 if rs.bof and rs.eof then response.write("") else do while not rs.eof %> <% if i mod 5 = 0 then%> <%end if %> <% i=i+1 if i >= Perpage then exit do rs.movenext if i mod 5 = 0 then %> <% end if loop end if %>
对不起,暂时未上传此类工程案例
 
<% totalput=Cstr(Rs.RecordCount) if totalput>0 then call showpage(strFileName,totalput,25,true,true,"个工程案例") end if %>