% user=trim(request("user")) b_soft_id=trim(request("b_soft_id")) s_soft_id=trim(request("s_soft_id")) set rs1=server.createobject("adodb.recordset") if request("id")="" then sqltext="select top 1 * from news where bigclassname= '" & b_soft_id & "' order by id desc" else sqltext="select * from news Where id="&cstr(request("id")) end if rs1.open sqltext,conn,1,1 %> <% set rs=server.createobject("adodb.recordset") if s_soft_id="" then sqltext="select * from news where bigclassname= '" & b_soft_id & "' order by id desc" else sqltext="select * from news where bigclassname= '" & b_soft_id & "' and SmallClassName= '" & s_soft_id & "' order by id desc" end if rs.open sqltext,conn,1,1 dim MaxPerPage MaxPerPage=1000 '取得页数,并判断用户输入的是否数字类型的数据,如不是将以第一页显示 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 %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||