<% set rs1=server.CreateObject("Adodb.RecordSet") rs1.source="select * from PhotoType order by PhotoTypeID" rs1.open rs1.source,conn,1,1 PhotoTypeCount=rs1.RecordCount dim ArrayPhotoTypeID(20),ArrayPhotoTypeName(20) for i=1 to PhotoTypeCount ArrayPhotoTypeID(i)=rs1("PhotoTypeID") ArrayPhotoTypeName(i)=trim(rs1("PhotoTypeName")) rs1.MoveNext next rs1.Close set rs1=nothing %>        <% for i=1 to PhotoTypeCount %> 〖<%=ArrayPhotoTypeName(i)%>〗  <% Next %>
 
  <% Dim ipagecount Dim ipagecurrent Dim strorderBy Dim irecordsshown if request.querystring("page")="" then ipagecurrent=1 else ipagecurrent=cint(request.querystring("page")) end if 'if key<>"" then 'sql = "SELECT * FROM Photo where PhotoTitle like '%"&trim(key)&"%' ORDER BY PhotoID DESC" 'else sql = "SELECT * FROM Photo ORDER BY PhotoID DESC" 'end if Set rs = Server.CreateObject("ADODB.Recordset") rs.pagesize = 10 'rs.cachesize = 9 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 <% for i = 1 to 2 %> <% next %> <% loop %>
<% if not rs.eof then %>
" target="_blank" >" border=0 width=200 height=150>
" target="_blank" onmouseover="showPopupText" alt="点击观看照片:<%=rs("PhotoTitle")%>"><%=rs("PhotoTitle")%> <% irecordsshown = irecordsshown +1 rs.movenext end if %>
<% end if rs.Close set rs=nothing %>
<% if ipagecurrent=1 then %> 首 页 | <% else %> 首 页 | <% end if if ipagecurrent=1 then %> 上一页 | <% else %> 上一页 | <% end if if ipagecount>ipagecurrent then %> 下一页 <% else %> 下一页 <% end if if ipagecount>ipagecurrent then %> | 末 页 <% else %> | 末 页 <% end if %>    共有 <%=ipageCount%> 页,当前为第 <%=ipagecurrent%> 页
 

    本站声明:马迪笛子艺术网站的所有图片资料,媒体或网友若需使用或转载请通知本站同意,转载请保持作品完整性,并注明图片来源。未经本站授权或许可,请勿擅自转载或编辑修改、挪作它用,否则追究相关责任。  
     
 友情链接‖网站地图‖         版权所有©2009 马迪笛子艺术网站 设计:簪花吹雨