link.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 link 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="linkadd.asp">添加链接</a>先！！！</td>
              </tr>
            </table>
      <%else
Rs.pagesize=10
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 height="28" colspan="4">&nbsp;&nbsp;总共 <font color="#FF0000"><%=rs.recordcount%></font> 个链接</td>
                    <td align="right"><a href="linkadd.asp">添加链接</a>&nbsp;&nbsp;</td>
                  </tr>
                  <tr bgcolor="#E3E3E3"> 
                    <td width="6%" height="25" align="center">序号</td>
                    <td width="22%" align="center">站名</td>
                    <td width="40%" align="center">网址</td>
                    <td width="14%" align="center">添加时间</td>
                    <td width="18%" 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"><%=rs("name")%></td>
                    <td><a href="<%=rs("place")%>" target="_blank"><%=rs("place")%></a></td>
                    <td align="center"><%=rs("tjtime")%></td>
                    <td align="center"><a href="linkedit.asp?id=<%=rs("id")%>">修改</a>&nbsp;&nbsp;<a href='javascript:suredo("linkdel.asp?id=<%=rs("id")%>","确定删除?")'>删除</a></td>
                  </tr>
        <%
  rs.movenext
  next
%>
                  <tr bgcolor="#E3E3E3"> 
                    <td height="25" colspan="5" 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=link.asp?page=1>首页</a>&nbsp; 
                           <a href=link.asp?page=<%=page-1%>>上一页</a>
                           <%end if%>&nbsp;<%if Rs.pagecount-page <> 0 then%>
                           <a href=link.asp?page=<%=page+1%>>下一页</a>&nbsp;
                           <a href=link.asp?page=<%=Rs.pagecount%>>尾页</a>
                           <%else%>下一页&nbsp;尾页<%end if%></td>
                         </tr></table>
                    </td>
                  </tr>
                </table><br>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
end if %></td>
        </tr>
      </table><br>
    </td>
  </tr>
</table>
<%
call htmlend()
%>