📄 admin_info.asp

📁 功能最强大的ASP网站
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="setting.asp"-->
<%
classname=request("classname")
if classname="" then
classname="null"
end if
set rsBigClass=server.CreateObject("adodb.recordset")
rsBigClass.open "Select * From BigClass",conn,1,3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>管理新闻</title>
<style type="text/css">
<!--
#Layer1 {
	position:absolute;
	width:970px;
	height:57px;
	z-index:1;
	left: 72px;
	top: 33px;
	background-color: #FFFFFF;
}
#Layer2 {
	position:absolute;
	width:512px;
	height:20px;
	z-index:2;
	left: 302px;
	top: 96px;
}
-->
</style>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
}
-->
</style></head>

<body>
<div id="Layer1">
  <div align="center">
    <table width="100%"  border="0" >
  <tr>
    <td width="207" height="27" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">按分类查看新闻</td>
  </tr>
  <tr>
    <td class="STYLE3" style="border:#999999 1px solid"><%do while not rsbigclass.eof%>&nbsp;<a href="admin_info.asp?classname=<%=rsBigClass("BigClassName")%>"><%=rsBigClass("BigClassName")%> </a>
      <%rsBigClass.movenext
	loop%></td>
  </tr>
</table>
    <table width="100%"  border="0" >
      <tr>
        <td width="207" height="27" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">使用技巧</td>
      </tr>
      <tr>
        <td class="STYLE3" style="border:#999999 1px solid">直接点上面新闻分类就可查看新闻相关!</td>
      </tr>
    </table><br>
    <table width="100%" border="0" class="tb1">
      <tr>
        <td colspan="7" background="image/bg.png" class="STYLE3"><%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from NEWS where bigclassname='"&classname&"' order by bh desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("没有记录或者你没有选择分类,请选择以上分类查看相关新闻!")
else
rs.PageSize=8
if page=0 then page=1 
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page  
    
for j=1 to rs.PageSize 
%></td>
      </tr>
      <tr>
        <td colspan="7" background="image/bg.png" class="STYLE3"><div align="center" class="STYLE3">新闻详细信息列表</div></td>
      </tr>
      <tr>
        <td width="207" height="27" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><div align="center" class="STYLE13">编号</div></td>
        <td width="207" height="27" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><div align="center" class="STYLE13">新闻标题</div></td>
        <td width="207" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><div align="center">是否高亮</div></td>
        <td width="207" height="27" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><div align="center" class="STYLE13">所属分类</div></td>
        <td width="207" height="27" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><div align="center" class="STYLE13">发布日期</div></td>
        <td width="207" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><div align="center">点击次数</div></td>
        <td width="207" height="27" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><div align="center" class="STYLE13">操作</div></td>
      </tr>
      <tr>
        <td class="STYLE3"><div align="center" class="STYLE3"><%=rs("bh")%></div></td>
<td class="STYLE3"><div align="center" class="STYLE3"><a href="<%if rs("url")<>"" then 
response.Write(rs("url"))
else
response.Write("files/"&rs("bh")&".html")
end if
%>" target="_blank" title="<%=rs("url")%>"><%=left(rs("title"),12)%></a></div></td>
        <td class="STYLE3"><div align="center"><font color="<%=rs("color")%>"><%=rs("color")%></font></div></td>
        <td class="STYLE3"><div align="center" class="STYLE3"><%=rs("BigClassName")%></div></td>
        <td class="STYLE3"><div align="center" class="STYLE3"><%=rs("time")%></div></td>
        <td class="STYLE3"><div align="center"><%=rs("hits")%></div></td>
        <td class="STYLE3"><div align="center" class="STYLE3"><a href="admin_modi.asp?bh=<%=rs("bh")%>">修改</a> <a href="admin_del.asp?bh=<%=rs("bh")%>">删除</a></div></td>
  <%
rs.movenext
if rs.eof then exit for
next                                                       
%>
      </tr>
    </table>
    <table width="724" border="0">
      <tr>
        <td width="718"><div align="center" class="STYLE3">
          <span class="STYLE3">
            <%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>"     
%>
          </span>
          <% 
end if
rs.close
set rs=nothing
%>
        </div></td>
      </tr>
    </table>
  </div>
</div>
</body>
</html>
⌨️ 快捷键说明

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