📄 menu.asp
字号:
<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<!--#include file="../style.asp"-->
<!--#include file="chkadmin.asp"-->
<%
dim rs, sql
set rs = server.createobject("adodb.recordset")
%>
<html>
<head>
<title>新闻管理</title>
<meta HTTP-EQUIV="Content-topic" content="text/html; charset=gb2312">
<base target="content">
<style type="text/css">
<!--
td { font-family: "宋体"; font-size: 9pt}
body { font-family: "宋体"; font-size: 9pt}
select { font-family: "宋体"; font-size: 9pt}
A {text-decoration: none; color: #336699; font-family: "宋体"; font-size: 9pt}
A:hover {text-decoration: underline; color: #FF0000; font-family: "宋体"; font-size: 9pt}
-->
</style>
</head>
<body bgcolor="#F4CF9D">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<p align="center"><a href="../index.htm" target="_top">新闻中心首页</a><br>
<a href="adminpwd.asp">管理密码修改</a><br>
<a href="category.asp">新闻类别管理</a><br>
<a href="topic.asp">新闻专题管理</a>
<hr noshade size="1" color="#000000">
</td>
</tr>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">普通新闻管理
<%
sql = "SELECT * FROM category"
rs.open sql, conn, 1, 1
if err.number <> 0 then
response.write "数据库出错"
else
if rs.bof and rs.eof then
rs.close
response.write "没有类别"
else
response.write "<ul>"
do while not rs.eof
response.write "<li><a href='newsman.asp?cate=" + cstr(rs("id")) + "'>" + rs("title") + "</a>"
rs.movenext
loop
response.write "</ul>"
rs.close
end if
end if
%></td>
</tr>
<tr>
<td width="100%">
<hr noshade size="1" color="#000000">
</td>
</tr>
<tr>
<td width="100%">专题新闻管理
<%
sql = "SELECT * FROM topic"
rs.open sql, conn, 1, 1
if err.number <> 0 then
response.write "数据库出错"
else
if rs.bof and rs.eof then
rs.close
response.write "没有专题"
else
response.write "<ul>"
do while not rs.eof
response.write "<li><a href='newsman.asp?topic=" + cstr(rs("id")) + "'>" + rs("title") + "</a>"
rs.movenext
loop
response.write "</ul>"
rs.close
end if
end if
set rs=nothing
call endconnection()
%>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -