<%
dim i,intPage,page,pre,last,filepath
set rs17 = server.CreateObject("adodb.recordset")
   sql17="select * from lmnews where picl=1 order by id desc"
      rs17.PageSize = 10 '趨ÿҳʾļ¼
      rs17.CursorLocation = 3
      rs17.Open sql17,conn,0,2,1 'ִѯSQLý¼
      pre = true
      last = true
      page = trim(Request.QueryString("page"))
      
      if len(page) = 0 then
                  intpage = 1
                  pre = false
      else
          if cint(page) =< 1 then
               intpage = 1
               pre = false
          else
              if cint(page) >= rs17.PageCount then
                  intpage = rs17.PageCount
                  last = false
              else
                   intpage = cint(page)
             end if
         end if
      end if
    if not rs17.eof then
         rs17.AbsolutePage = intpage
    end if
%>




<!--ͼƬڿʼ--><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><!--ѭʼ--><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
			<%    
   for i=1 to rs17.PageSize
     if rs17.EOF or rs17.BOF then exit for
%>
              <td><table border="0" align="center" cellpadding="3" cellspacing="2">
  <tr>
    <td><!--pic--><table width="224" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td><img src="images/pic_1.gif" width="224" height="12" /></td>
      </tr>
      <tr>
        <td background="images/pic_2_bj.gif"><table width="200" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="150"><div align="center"><a href="pic_view.asp?id=<%=rs17("id")%>" title="<%=rs17("title")%>" alt="<%=rs17("title")%>" target=_blank><img src="<%=rs17("dk_uploadfile")%>" width="200" height="150" border="0"></a></div></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td><img src="images/pic_3.gif" width="224" height="12" /></td>
      </tr>
    </table>
    <!--pic_end--></td>
  </tr>
  <tr>
    <td><div align="center"><a href="pic_view.asp?id=<%=rs17("id")%>" title="<%=rs17("title")%>" alt="<%=rs17("title")%>" target=_blank><%=left(rs17("title"),18)%></a></div></td>
  </tr>
  <tr>
    <td height="10"></td>
  </tr>
</table></td>
			    <% rs17.movenext
if (i mod 2)=0 then
response.Write("</tr><tr>")
end if
next
%>
            </tr>
          </table><!--ѭ--></td>
              </tr>
              <tr>
                <td height="10"></td>
              </tr>
              <tr>
                <td height="1" background="images/dot.gif"></td>
              </tr>
			   <tr>
                <td height="10"></td>
              </tr>
              <tr>
                <td><!----><table width="90%" border="0" align="center" cellpadding="2" cellspacing="2" borderColorLight=#808080 borderColorDark=#ffffff>
   <tr>
     <%if rs17.pagecount > 0 then%>
     <td width="21%" align="left">ǰҳ<%=intpage%>/<%=rs17.PageCount%></td>
     <%else%>
    <td width="15%" align="left">ǰҳ0/0</td>
    <%end if%>
    <td width="64%" align="right"> <a href="pic.asp?page=1">ҳ</a>| 
     <%if pre then%>
     <a href="pic.asp?page=<%=intpage -1%>">ҳ</a>| <%end if%>
     <%if last then%>
      <a href="pic.asp?page=<%=intpage +1%>">ҳ</a> |<%end if%>
      <a href="pic.asp?page=<%=rs17.PageCount%>">βҳ</a>|ת
      <select name="sel_page" onchange="javascript:location=this.options[this.selectedIndex].value;">
      <%
       for i = 1 to rs17.PageCount
       if i = intpage then%>
       <option value="pic.asp?page=<%=i%>" selected><%=i%></option>
     <%else%>
       <option value="pic.asp?page=<%=i%>"><%=i%></option>
        <%
          end if
        next
        %>
     </select>ҳ</font> 
    </td>
    </tr>
   </table><!----></td>
              </tr>
            </table>
              <!--ͼƬڽ-->