< % Dim DBC,Conn,rs,i_temp Set DBC = New DataBaseClass Set Conn = DBC.OpenConnection() Set DBC = Nothing strpage=request.querystring("Page") if len(strpage)=0 then strpage="1" end if Dim Temp_DummyDir If SysRootDir< > "" then Temp_DummyDir = "/"& SysRootDir Else Temp_DummyDir = "" End If set Rs = server.CreateObject ("ADODB.RecordSet") %>< % sql="select * from FS_News where (classID='058111750346929' or classID='05121917383852250') and DelTF=0 and AuditTF=1 order by ID DESC" rs.Open Sql,Conn,1,1 if Not rs.Eof then rs.pagesize=200 rs.absolutepage=cint(strpage) select_count=rs.recordcount select_pagecount=rs.pagecount %>< % Dim TempAlreadyShow TempAlreadyShow = 1 for LoopVar = 1 to rs.PageSize if TempAlreadyShow > rs.PageSize then Exit For if rs.Eof then Exit For %>< % TempClassID = rs("ClassID") FileName=rs("FileName") FileExtName=rs("FileExtName") set rs88=conn.execute("select * from FS_NewsClass where ClassID='"& TempClassID& "'") ClassCName=rs88("ClassCName") SavePath=rs88("SaveFilePath") ClassEName=rs88("ClassEName") rs88.Close Set rs88 = Nothing %>< % rs.MoveNext if rs.Eof then Exit For if TempAlreadyShow > rs.PageSize then Exit For %>< %Next%>< % Set rs = Nothing else LastClassPic = Array("") end if%>< % response.write"  共"& select_pagecount& "页"& select_count& "条文章，本页是第"& strpage& "页。 " if cint(strpage)>1 then response.Write"   第一页 " response.Write"   上一页 " end if if cint(strpage)下一页" response.Write"   最后一页 " end if response.Write"
" %>