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