| |
 |
| -------------------------------------------------------------------------------
<%=request("classname")%> ---------------------------------------------------------------------###
<%
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
rsclose()
connclose()
'------------->In case not keeing the minutes piece closes down the data bank joint ( BOF act as the truth value )
Response.Write("
I'm sorry 。There is not the correlation photograph ！")
else
PageShowSize = 10
MyPageSize = img
If Not IsNumeric(Request.querystring("page")) Or IsEmpty(Request.querystring("page")) Or Request.querystring("page") <=0 Then
MyPage=1
Else
MyPage=Int(Abs(Request.querystring("page")))
End if
rs.pagesize=mypagesize
maxpages=rs.pagecount
rs.absolutepage=mypage
total=rs.recordcount
Response.Write("")
do while not rs.eof
response.write""
for i=1 to cel
img=rs("news_content")
if instr(img,"[img]") then
img = Replace(img, "[img]", "![点击看详细资料]()
img = Replace(img, ) ")
else
img = Replace(img, "[uploadimg]", "![点击看详细资料](upload/")) ")
end if
Response.Write("")
Response.Write(" | ")
rs.movenext
if rs.eof or i=MyPageSize then '------>这句一定要加上。当指针指向最后一个记录时。则退出循环
exit do '------>但是发现一个问题。当只有两个图片时，而将每页显示一个
end if '------>图片,这时页面会显示两张图片,为了避免这种情况，所以加了一句
next '------->If is I=MyPageSize Then Exit Do So the fault may be averted 。^!^
response.write " "
j=j+1
if j=rows then exit do '------------>In case the cycle has been secede by J=rows figure only a short while ago
loop
response.write " "
PageNextSize=int((MyPage-1)/PageShowSize)+1
Pagetpage=int((total-1)/rs.PageSize)+1
if PageNextSize >1 then
PagePrev=PageShowSize*(PageNextSize-1)
Response.write "9 "
'Response.write "Page heading "
end if
if MyPage-1 > 0 then
Prev_Page = MyPage - 1
Response.write "7 "
end if
if Maxpages>=PageNextSize*PageShowSize then
PageSizeShow = PageShowSize
Else
PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)
End if
If PageSizeShow < 1 Then PageSizeShow = 1
for PageCounterSize=1 to PageSizeShow
PageLink = (PageCounterSize+PageNextSize*PageShowSize)-PageShowSize
if PageLink <> MyPage Then
Response.write "[" & PageLink & "] "
else
Response.Write "["& PageLink &"] "
end if
If PageLink = MaxPages Then Exit for
Next
if Mypage+1 <=Pagetpage then
Next_Page = MyPage + 1
Response.write "8"
end if
if MaxPages > PageShowSize*PageNextSize then
PageNext = PageShowSize * PageNextSize + 1
'Response.write " Page tail "
Response.write " :"
End if
rsclose()
connclose()
end if
%>
|
|
|
