<%
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"
"
%>
|
|