HY

<% classname=Request.Querystring("classname") if instr(classname,"'") or instr(classname,"select") or instr(classname,"in") or instr(classname,"from") or instr(classname,"len") or instr(classname,"where") or instr(classname,"or") or instr(classname,"and") then Response.Write("") Response.End end if key=Request("key") if len(key)=0 then if classname="" or isnull(classname) then sql="select * from imgbook order by ID desc" else sql="select * from imgbook where classname='"&classname&"' order by ID desc" end if url="index.asp?classname=" & classname else sql="select * from imgbook where title like '%"&key&"%' and classname='"&classname&"' order by ID desc" url="index.asp?classname=" & classname &"&key=" & key end if %> HY

<% set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if rs.bof and rs.eof then rsclose() connclose() '------------->如果没有记录则关闭数据库的连接(BOF为真值) Response.Write("

对不起。没有相关图片！") 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]", " 点击看详细资料 ") else img = Replace(img, "[uploadimg]", "") end if Response.Write("") rs.movenext if rs.eof or i=MyPageSize then '------>这句一定要加上。当指针指向最后一个记录时。则退出循环 exit do '------>但是发现一个问题。当只有两个图片时，而将每页显示一个 end if '------>图片,这时页面会显示两张图片,为了避免这种情况，所以加了一句 next '------->if i=MyPageSize then exit do 这样就可以避免失误了。^!^ response.write "" j=j+1 if j=rows then exit do '------------>如果j=rows数刚退出循环 loop response.write "
") Response.Write("
"&rs("title")&"
") Response.Write(""&img&"") Response.Write("

" & rs("title") & "
" 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 "页首 " 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 " 页尾" Response.write " :" End if rsclose() connclose() end if %>