<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%=rs5("webname")%>
位置：小樱之町 → 图片区首页 → <% If request("classname")<>"" Then %> "><%=request("classname")%> <% Else %> 查看全部图片 <% End If %> 　
分类： >><%sql = "SELECT * FROM classname ORDER BY id DESC" Set rs = conn.execute(sql) if rs.eof and rs.bof then Response.Write"还没有分类" else rs.movefirst Response.Write""&rs("classname")&"" rs.movenext i=1 do while (not rs.eof) and i<=7 Response.Write"● "&rs("classname")&"" rs.movenext i=i+1 loop end if rsclose%><<
　
　 <%if request("classname")="" then%> <%sql="select top 4 * from imgbook order by updatetime desc" set rs=conn.execute(sql) y=0 do while not rs.eof%> <%rs.movenext y=y+1%> <%rs.movenext y=y+1%> <%rs.movenext y=y+1%> <% rs.movenext y=y+1 if y=4 then exit do loop rsclose%> <%end if%>
>>最新加入图片
<%dim m,n,w1,h1 w=rs("width"):h=rs("height") m=w/99:n=h/99 if w>=99 or h>=99 then if m>n then w1=99:h1=h/m elseif m ">.jpg" alt="" width=<%=w1%> height=<%=h1%> border="0">
" class="black"><%=rs("title")%> [<%=rs("click")%>]
<%if not rs.eof then%> <%w=rs("width"):h=rs("height") m=w/99:n=h/99 if w>=99 or h>=99 then if m>n then w1=99:h1=h/m elseif m ">.jpg" alt="" width=<%=w1%> height=<%=h1%> border="0"> <%end if%>
<%if not rs.eof then%>" class="black"><%=rs("title")%>[<%=rs("click")%>]<%else%> <%end if%>
<%if not rs.eof then%> <%w=rs("width"):h=rs("height") m=w/99:n=h/99 if w>=99 or h>=99 then if m>n then w1=99:h1=h/m elseif m ">.jpg" alt="" width=<%=w1%> height=<%=h1%> border="0"> <%end if%>
<%if not rs.eof then%>" class="black"><%=rs("title")%>[<%=rs("click")%>]<%else%> <%end if%>
<%if not rs.eof then%> <%w=rs("width"):h=rs("height") m=w/99:n=h/99 if w>=99 or h>=99 then if m>n then w1=99:h1=h/m elseif m ">.jpg" alt="" width=<%=w1%> height=<%=h1%> border="0"> <%end if%>
<%if not rs.eof then%>" class="black"><%=rs("title")%>[<%=rs("click")%>]<%else%> <%end if%>
　
>><%if request("classname")<>"" then%>分类查看---><%=request("classname")%><% Else %>查看全部图片<% End If %>
<%Dim ipagecount Dim ipagecurrent Dim strorderBy Dim irecordsshown if request.querystring("page")="" then ipagecurrent=1 else ipagecurrent=cint(request.querystring("page")) end if if request("classname")="" then sql = "SELECT * FROM imgbook ORDER BY title asc" else sql= "select * from imgbook where classname='"<rim(rtrim(request("classname")))&"' order by title asc" end if Set rs = Server.CreateObject("ADODB.Recordset") if request("classname")<>"" then rs.pagesize = 12 rs.cachesize = 12 maxpage=12 else rs.pagesize = 8 rs.cachesize = 8 maxpage=8 end if rs.open sql,conn,1,1 ipagecount = rs.pagecount If ipagecurrent > ipagecount Then ipagecurrent = ipagecount If ipagecurrent < 1 Then ipagecurrent = 1 if ipagecount=0 then response.write "" else rs.absolutepage = ipagecurrent irecordsshown = 0 do while irecordsshown <%rs.movenext%> <%rs.movenext%> <%rs.movenext%> <%rs.movenext%> <%loop%> <%end if rs.Close set rs=nothing %>
没有任何图片
<%if not rs.eof then w=rs("width"):h=rs("height") m=w/99:n=h/99 if w>=99 or h>=99 then if m>n then w1=99:h1=h/m elseif m ">.jpg" alt="" width="<%=w1%>" height="<%=h1%>" border=0> <%irecordsshown = irecordsshown +1 end if %>
<%if not rs.eof then%>" class="black"><%=rs("title")%>[<%=rs("click")%>]<%else%> <%end if%>
<%if not rs.eof then w=rs("width"):h=rs("height") m=w/99:n=h/99 if w>=99 or h>=99 then if m>n then w1=99:h1=h/m elseif m ">.jpg" alt="" width="<%=w1%>" height="<%=h1%>" border=0> <%irecordsshown = irecordsshown +1 end if %>
<%if not rs.eof then%>" class="black"><%=rs("title")%>[<%=rs("click")%>]<%else%> <%end if%>
<%if not rs.eof then w=rs("width"):h=rs("height") m=w/99:n=h/99 if w>=99 or h>=99 then if m>n then w1=99:h1=h/m elseif m ">.jpg" alt="" width="<%=w1%>" height="<%=h1%>" border=0> <%irecordsshown = irecordsshown +1 end if %>
<%if not rs.eof then%>" class="black"><%=rs("title")%>[<%=rs("click")%>]<%else%> <%end if%>
<%if not rs.eof then w=rs("width"):h=rs("height") m=w/99:n=h/99 if w>=99 or h>=99 then if m>n then w1=99:h1=h/m elseif m ">.jpg" alt="" width="<%=w1%>" height="<%=h1%>" border=0> <%irecordsshown = irecordsshown +1 end if %>
<%if not rs.eof then%>" class="black"><%=rs("title")%>[<%=rs("click")%>]<%else%> <%end if%>
每页显示 <%=rs.pagesize%> 张图片 第<%=ipagecurrent%>/<%=ipagecount%>页 <%if ipagecurrent=1 then Response.Write"首页 | " else Response.Write"首页 | " end if if ipagecurrent=1 then Response.Write"上一页 | " else Response.Write"上一页 | " end if if ipagecount>ipagecurrent then Response.Write"下一页 " else Response.Write"下一页" end if if ipagecount>ipagecurrent then Response.Write"| 末页 " else Response.Write"| 末页 " end if%>
推荐图片 Hot Pic
<%sql="select top 1 * from imgbook where tuijie=1 order by genxing desc" set rs=conn.execute(sql) i=0 do while not rs.eof%> <%w=rs("width"):h=rs("height") m=w/120:n=h/120 if w>=120 or h>=120 then if m>n then w1=120:h1=h/m elseif m
<%if i=1 then exit do rs.movenext i=i+1 loop rsclose%>
height=<%=h1%> border="0">
<%=rs("title")%>[<%=rs("click")%>]
　
浏览排行  Top 10
<%sql="select top 10 * from imgbook order by click desc" i=0 set rs=conn.execute(sql) do while not rs.eof%> <%if i=9 then exit do rs.movenext i=i+1 loop rsclose%>
<%response.Write(""&rs("title")&"")%> <%=rs("click")%>
|版权所有：小樱之町| E-mail：" class="black"><%=rs5("mail")%> |网尽设计 |管理入口|
<%rs5.close set rs5=nothing connclose%>