| 体育新闻——文章列表 |
<%
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='0581117445420367' or classID='0581117482474452' or classID='0581117490553236' or classID='058111750004695'or classID='08871051224912') and DelTF=0 order by ID DESC"
rs.Open Sql,Conn,1,1
if Not rs.Eof then
rs.pagesize=42
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
%>
<%TempAlreadyShow = TempAlreadyShow + 1
dim web10
if left(rs("PicPath"),4)="http" then web10="" else web10="http://www.tianshui.com.cn"
TempClassID = rs("ClassID")
FileName=rs("FileName")
FileExtName=rs("FileExtName")
set rs22=conn.execute("select * from FS_NewsClass where ClassID='" & TempClassID & "'")
SavePath=rs22("SaveFilePath")
ClassEName=rs22("ClassEName")
ClassCName=rs22("ClassCName")
rs22.Close
Set rs22 = 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 int(strpage)>1 then
response.Write" 第一页 "
response.Write" 上一页 "
end if
if int(strpage)下一页"
response.Write" 最后一页 "
end if
response.Write"
"
%> |
|
|
| |
<%
Dim DBC11,Conn11
Set DBC11 = New DataBaseClass
Set Conn11 = DBC11.OpenConnection()
Set DBC11 = Nothing
set rs11=conn11.execute("select top 21 * from FS_News where (classID='0581117445420367' or classID='0581117482474452' or classID='0581117490553236' or classID='058111750004695' or classID='08871051224912') and DelTF=0 and PicNewsTF=1 and AuditTF=1 and PicPath is not null order by id DESC")
do while Not rs11.Eof
%>
<%for j = 1 to 3
TempAlreadyShow = TempAlreadyShow + 1
dim web11
if left(rs11("PicPath"),4)="http" then web11="" else web11="http://www.tianshui.com.cn"
TempClassID = rs11("ClassID")
FileName=rs11("FileName")
FileExtName=rs11("FileExtName")
set rs12=conn11.execute("select * from FS_NewsClass where ClassID='" & TempClassID & "'")
ClassCName=rs12("ClassCName")
SavePath=rs12("SaveFilePath")
ClassEName=rs12("ClassEName")
rs12.Close
Set rs12 = Nothing
%>
|
|
|
<%
rs11.MoveNext
next
loop
rs11.Close
Set rs11 = Nothing
%>
|
| 点击观看更多精彩图片>>> |
|