photo.asp

功能特点：1、在wap1.0的基础上添加了铃声栏目； 2、修改了后台程序中的一些错误； 3、优化了上传文件中的冗余； 4、

<!--#include file="conn.asp"-->
<!--#include file="cook.asp"-->
<!--#include file="info.asp"-->
<script language="JavaScript">
<!--
function suredo(src,q)
    {
      var ret;
      ret = confirm(q);
      if(ret!=false)window.location=src;
    }
//-->
</script>
<%
call htmltop()
%>
<table width="700" height="400" border="0" align="center" cellpadding="0" cellspacing="0" class="TdStyle">
  <tr>
    <td align="center" valign="top" bgcolor="#FFFFFF"><br>
      <table width="680" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td> 
            <%
  set rs=server.CreateObject("adodb.recordset")
  sql="select * from photo order by id desc"
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then%>
            <table width="100%" height="60" border="0" cellpadding="0" cellspacing="1" bgcolor="#C0C0C0">
              <tr bgcolor="#FFFFFF">
                <td align="center">当前没有图片，请<a href="photoadd.asp">上传图片</a>先！！！</td>
              </tr>
            </table>
            <%else
Rs.pagesize=15
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page%>
            <table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#C0C0C0">
              <tr bgcolor="#FFFFFF"> 
                <td colspan="3" height="28">&nbsp;&nbsp;总共 <font color="#FF0000"><%=rs.recordcount%></font> 张图片</td>
                <td colspan="3" align="right"><a href="photoadd.asp">上传图片</a>&nbsp;&nbsp;</td>
              </tr>
              <tr bgcolor="#E3E3E3"> 
                <td width="6%" height="25" align="center">序号</td>
                <td width="40%" align="center">图片标题</td>
                <td width="12%" align="center">图片大小</td>
                <td width="12%" align="center">浏览次数</td>
                <td width="14%" align="center">上传时间</td>
                <td width="16%" align="center">操作</td>
              </tr>
                  <%For i = 1 to rs.PageSize  
   if rs.eof then
   Exit For 
   end if %>
              <tr bgcolor="#FFFFFF"> 
                <td align="center"><%=rs("id")%></td>
                <td height="25"><a onclick="window.open('photoshow.asp?id=<%=rs("id")%>','','top=50,left=200,scrollbars=yes,width=600,height=500,toolbar=no,menubar=no,resizable=no,location=no,status=no')" href="#"><%=rs("picname")%></a></td>
                <td align="center"><%=rs("picsize")%></td>
                <td align="center"><%=rs("hit")%></td>
                <td align="center"><%=rs("tjtime")%></td>
                <td align="center"><a href="photoedit.asp?id=<%=rs("id")%>">修改</a>&nbsp;&nbsp;<a href='javascript:suredo("photodel.asp?id=<%=rs("id")%>","确定删除？")'>删除</a></td>
                  </tr>
                  <%rs.movenext
   next%>
                  <tr bgcolor="#E3E3E3"> 
                    <td height="25" colspan="6" align="center">
                       <table width="96%" border="0" cellpadding="0" cellspacing="0">
                         <tr><td>第<font color="red"><%=page%></font>/<%=Rs.pagecount%>页</td>
                          <td align="right">
                           <%if page=1 then%>首页&nbsp;上一页<%else%>
                           <a href=photo.asp?page=1>首页</a>&nbsp; 
                           <a href=photo.asp?page=<%=page-1%>>上一页</a>
                           <%end if%>&nbsp;<%if Rs.pagecount-page <> 0 then%>
                           <a href=photo.asp?page=<%=page+1%>>下一页</a>&nbsp;
                           <a href=photo.asp?page=<%=Rs.pagecount%>>尾页</a>
                           <%else%>下一页&nbsp;尾页<%end if%></td>
                         </tr></table>
                    </td>
                  </tr>
                </table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
end if %></td>
        </tr>
      </table><br></td>
        </tr>
      </table>
<%
call htmlend()
%>