📄 manage_download.asp

📁 功能最强大的ASP网站
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="setting.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
}
#Layer1 {
	position:absolute;
	width:256px;
	height:28px;
	z-index:1;
	left: 759px;
	top: 122px;
	background-color: #FFFFFF;
	visibility: hidden;
}
-->
</style>
<script type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_showHideLayers() { //v6.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
    obj.visibility=v; }
}
//-->
</script>
</head>

<body>
<p align="center" class="STYLE3">
  <%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from downloads order by bh desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暂时还没有下载更新的纪录.")
else
rs.PageSize=10
if page=0 then page=1 
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page  
     
%>
</p>
<div>
  <div align="center">
    <table width="79%" border="0" bgcolor="#FFFFFF" class="tb1">
      <tr>
        <td colspan="4"><div align="center" class="STYLE3">管理下载新闻列表</div></td>
      </tr>
      <tr>
        <td colspan="4"><div align="center"><%for j=1 to rs.PageSize %></div>          <div align="center"></div>          <div align="center"></div>          <div align="center"></div>
          <div align="center"></div>
          <div align="center"></div>
        <div align="center"></div>          <div align="center" onClick="MM_showHideLayers('Layer1','','show')"></div></td>
      </tr>
    </table>
    <table width="79%" border="0" bgcolor="#FFFFFF">
      <tr>
        <td class="tb1"><table width="100%" border="0">
          <tr>
            <td width="8%" class="STYLE3"><div align="center">下载标题</div></td>
            <td width="40%" class="STYLE3"><div align="center">下载信息</div></td>
            <td width="14%" class="STYLE3"><div align="center">分类</div></td>
            <td width="22%" class="STYLE3"><div align="center">发布下载时间</div></td>
            <td width="16%" class="STYLE3"><div align="center">操作</div></td>
          </tr>
          <tr>
            <td class="STYLE3"><div align="center"><a href="downloads/<%=rs("bh")%>.html" target="_blank"><%=rs("name")%></a></div></td>
            <td class="STYLE3"><div align="center">
              <form name="form1" method="post" action="">
                <label>
                  <textarea name="textarea" cols="70" rows="5" class="STYLE3" readonly="readonly"><%=rs("infor")%></textarea>
                  </label>
              </form>
              </div></td>
            <td class="STYLE3"><div align="center"><%=rs("bigclassname")%></div></td>
            <td class="STYLE3"><div align="center">
              <div align="center"><%=rs("time")%></div>
            </div></td>
            <td class="STYLE3"><div align="center"><a href="modi_download.asp?bh=<%=rs("bh")%>">修改</a>                
              <div id="Layer1">
                  <p><img src="image/btn_close.gif" width="16" height="16"> 体验测试版暂时不支持修改功能</p>
                  <p onMouseOver="MM_showHideLayers('Layer1','','hide')">关闭</p>
                </div>
              <a href="download_dell.asp?bh=<%=rs("bh")%>">删除</a></div></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td class="tb1"><div align="center">
            <%
			rs.movenext
if rs.eof then exit for
next
			if Page<2 then      
    response.write "首页 上一页&nbsp;"
  else
    response.write "<a href=admin_info.asp?page=1>首页</a>&nbsp;"
    response.write "<a href=admin_info.asp?page=" & Page-1 & ">上一页</a>&nbsp;"
  end if
  if rs.pagecount-page<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=admin_info.asp?page=" & (page+1) & ">"
    response.write "下一页</a> <a href=admin_info.asp?page="&rs.pagecount&">尾页</a>"
  end if
   response.write "&nbsp;页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
    response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
   response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
   response.write " <input class=input type='submit'  value=' Goto '  name='cndok'></span></p>"     
%>
        &nbsp;</div></td>
      </tr>
    </table>
  </div>
</div>
<p>&nbsp; </p>
<% 
end if
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -