<% dim rsimg,sqlimg,S_ImgclassId S_ImgclassId=request("ImgclassId") if not IsNumeric(ImgclassId) then response.redirect "Error.htm" response.end end if if S_ImgclassId="" then response.redirect "Error.htm" response.end else set rsImgclass =server.CreateObject("adodb.recordset") ImgclassId=Trim(Request("ImgclassId")) sqlImgclass="select*from Imgclass where ImgclassId="&ImgclassId rsImgclass.open sqlImgclass,conn,1,1 if rsImgclass.eof and rsImgclass.bof then response.redirect "Error.htm" response.end else ImgClass_title=rsImgclass("Imgclassname") rsImgclass.close set rsImgclass=nothing end if end if If request("page") = "" Then currentpage=1 else currentpage =request("page") set rsimg=server.createobject("adodb.recordset") sqlimg="select * from img where ImgclassId='"&S_ImgclassId&"' order by Imgid desc" rsimg.open sqlimg,conn,1,3 if rsImg.eof and rsImg.bof then response.redirect "Error.htm" response.end else msg_per_page = 6 '?? rsimg.PageSize=msg_per_page totalpage = rsimg.PageCount totalmessage = rsimg.recordcount If totalmessage <> 0 Then rsimg.AbsolutePage = currentpage End If webtitle=ImgClass_title %>
 
产品分类
 
您的当前位置Q?a href="/" title="q回首页">首页 > <%=ImgClass_title%>
<%=ImgClass_title%>
<%i=1 %> <% Do While Not rsImg.EOF%> <% if i mod 3 =0 then%> <%end if%> <% i=i+1 if i > msg_per_page then exit do rsImg.MoveNext loop %>
" title="<%=rsimg("title")%>" target="_blank"> " alt="<%=rsimg("title")%>" border="0" width="180" />
<%=rsimg("title")%>
 
<% response.write ExportPageInfo(totalpage,totalmessage,request("page"),PAGE_SIZE,msg_per_page,"Img.asp?ImgclassId=" & ImgclassId & "&") '-------------------------------------------------------------- Function ExportPageInfo(ByRef PageCount,RecordCount,CurrentPage,PageSize,i,LinkFile) '总页敎ͼ总记录数Q? 当前面, 每页昄敎ͼ本页记录敎ͼ分页旉接的文g Dim retval,j,pageNumber,BasePage BasePage = (CurrentPage \ 10) * 10 If BasePage > 0 Then retval = retval & "<<" For j = 1 to 10 pageNumber = BasePage+j if pageNumber<10 then pageNumber="0"&pageNumber If cint(PageNumber) > pagecount Then Exit For If cint(PageNumber) = Cint(CurrentPage) Then retval = retval & " "&pageNumber& " " Else retval = retval & " "&pageNumber&"" End If Next if PageCount < BasePage + 11 then retval = retval & " >>" else If pagecount > BasePage Then retval = retval & " >>" end if ExportPageInfo = retval End Function %> <% rsImg.close set rsImg=nothing end if %>
<֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <֩>| <ı> <ı> <ı> <ı> <ı> <ı>