<% classname=Request.Querystring("classname") 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="product08.asp?classname=" & classname else sql="select * from imgbook where title like '%"&key&"%' and classname='"&classname&"' order by ID desc" url="product08.asp?classname=" & classname &"&key=" & key end if %> HSIEN SHIH CO.,Ltd
Refinement
Security system
 
 
Electron Radiogram Plastic Money Pot
Office supplies Crystals    
       
       
       
     
-------------------------------------------------------------------------------


<%=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]", "点击看详细资料") else img = Replace(img, "[uploadimg]", "点击看详细资料") end if 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 "
") 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 "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 %>





Address :International toy city B-20E of Guangzhou yide West Road TEL: 86-20-81061256~9  FAX:86-20-81061255
Copyright © 2003-2004   HSIEN SHIH CO.,LTD   Design by: 振华网页设计
在线客服
网站客服