<%
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='0581115555580241' and DelTF=0 and AuditTF=1 order by ID DESC"
rs.Open Sql,Conn,1,1
if Not rs.Eof then
rs.pagesize=40
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
%>
| ·<%=left(rs("title"),23)%> [<%=month(rs("AddDate"))%>月<%=day(rs("AddDate"))%>日] |
|
<%
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 int(strpage)>1 then
response.Write" 第一頁 "
response.Write" 上一頁 "
end if
if int(strpage)下一頁"
response.Write" 最后一頁 "
end if
response.Write"
"
%> |
|
<%Dim DBC0131,Conn0131
Set DBC0131 = New DataBaseClass
Set Conn0131 = DBC0131.OpenConnection()
Set DBC0131 = Nothing
set rs0131=conn0131.execute("select top 14 * from FS_News where (classID='0581115524220987'or classID='0581115532495736'or classID='0581115535247757'or classID='0581115541954306'or classID='0581115545230002'or classID='0581115552676736'or classID='0581115555580241'or classID='0581115562755790'or classID='0581115572395664'or classID='0581115584536149'or classID='058111605495293'or classID='0581116063027992'or classID='0581116070789771'or classID='0581116074559394') and DelTF=0 and PicNewsTF=1 and AuditTF=1 and PicPath is not null order by id DESC")
do while Not rs0131.Eof%>
<%
for j = 1 to 2
iii=iii+1
dim web0131
if left(rs0131("PicPath"),4)="http" then web0131="" else web0131="http://www.yhg994208.cn"
TempClassID = rs0131("ClassID")
FileName=rs0131("FileName")
FileExtName=rs0131("FileExtName")
set rs0132=conn0131.execute("select * from FS_NewsClass where ClassID='" & TempClassID & "'")
ClassCName=rs0132("ClassCName")
SavePath=rs0132("SaveFilePath")
ClassEName=rs0132("ClassEName")
rs0132.Close
Set rs0132 = Nothing
%>
|
|
|
<%rs0131.MoveNext
next
loop
rs0131.Close
Set rs0131 = Nothing
%>
| 點擊觀看更多精彩圖片>>> |
|