<%@ codepage="936" %> 北美洲工作犬會(遠東區)
   
 
 
犬隻標準
<% sql2="select * from [classname]" set rs2=conn.execute(sql2) if not rs2.bof then Do While Not rs2.eof if rs2("classname")=classname then Response.Write("
" & rs2("classname") & "
") else Response.Write("
" & rs2("classname") & "
") end if i=i+1 rs2.MoveNext Loop end if rs2.close %>
 
 
 
 
 
<% 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="dog.asp?classname=" & classname else sql="select * from imgbook where title like '%"&key&"%' and classname='"&classname&"' order by ID desc" url="dog.asp?classname=" & classname &"&key=" & key end if %>
<% 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 %>