<%
sql="select * from FS_News where (classID='06123016505522868') and DelTF=0 and PicNewsTF=1 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
%>
<%for j = 1 to 5
TempAlreadyShow = TempAlreadyShow + 1
Dim TempDoMain
If Left(rs("PicPath"),4)="http" then TempDoMain="" else TempDoMain=AvailableDoMain%>
|
|
|
<%
rs.MoveNext
if rs.Eof then Exit For
if TempAlreadyShow > rs.PageSize then Exit For
next
%>
<%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"
"
%>
|
|