📄 ad_left.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Const dbdns="../"%>
<!--#include file="chk.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>后台管理系统</title>
<link rel="stylesheet" type="text/css" href="images/Style.css">
<style type="text/css">
<!--
.ttl { CURSOR: hand; COLOR: #000000; PADDING-TOP: 4px
}
BODY {
MARGIN-TOP: 5px; MARGIN-LEFT: 2px; BACKGROUND-COLOR: #fda700; TEXT-ALIGN: center
}
td{
line-height:170%;
}
-->
</style>
<script language="javascript">
function showHide(obj)
{
obj.style.display = obj.style.display == "none" ? "block" : "none";
}
</script>
</head>
<body>
<table cellspacing="1" cellpadding="3" width="150" align="center" bgcolor="#999999"
border="0">
<tbody>
<tr>
<td class="ttl" onClick="showHide(menu6)" valign="top" align="left" background="images/top-bj3.jpg"><table cellspacing="0" cellpadding="0" width="127" border="0">
<tbody>
<tr>
<td width="8"> </td>
<td align="left" width="117"><strong class="mtitle">常规操作</strong></td>
</tr>
</tbody>
</table></td>
</tr>
<tr id="menu6" style="display: block">
<td valign="top" align="middle" bgcolor="#f3f5f1"><table width="100%">
<tbody>
<tr>
<td align="left"><img height="7" hspace="5" src="images/arrow.gif" width="5" align="absmiddle" /><a href="ad_right.asp" target="right">管理首页</a></td>
</tr>
<tr>
<td align="left"><img height="7" hspace="5" src="images/arrow.gif" width="5" align="absmiddle" /><a href="Sys_Config.asp" target="right">系统信息</a></td>
</tr>
<tr>
<td align="left"><img height="7" hspace="5" src="images/arrow.gif" width="5" align="absmiddle" /><a href="Sys_admin.asp" target="right">管理员管理</a></td>
</tr>
<tr>
<td align="left"><img height="7" hspace="5" src="images/arrow.gif" width="5" align="absmiddle" /><a href="Sys_link.asp" target="right">友情连接管理</a></td>
</tr>
<tr>
<td align="left"><img height="7" hspace="5" src="images/arrow.gif" width="5" align="absmiddle" /><a href="Sys_db.asp" target="right">数据库管理</a></td>
</tr>
<tr>
<td align="left"><img height="7" hspace="5" src="images/arrow.gif" width="5" align="absmiddle" /><a href="Sys_Ads.asp" target="right">广告管理</a></td>
</tr>
<tr>
<td align="left"><img height="7" hspace="5" src="images/arrow.gif" width="5" align="absmiddle" /><a href="ad_weblog.asp" target="right">后台日志</a></td>
</tr>
<tr>
<td align="left"><img height="7" hspace="5" src="images/arrow.gif" width="5" align="absmiddle" /><a href="Html.asp" target="right" style="color:#0000FF;">生成静态页</a></td>
</tr>
<tr>
<td align="left"><img height="7" hspace="5" src="images/arrow.gif" width="5" align="absmiddle" /><a href="quit.asp" target="_parent">安全退出</a></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table>
<br />
<table cellspacing="1" cellpadding="3" width="150" align="center" bgcolor="#999999"
border="0">
<tbody>
<tr>
<td class="ttl" onClick="showHide(m1)" valign="top" align="left" background="images/top-bj3.jpg"><table cellspacing="0" cellpadding="0" width="127" border="0">
<tbody>
<tr>
<td width="8"> </td>
<td align="left" width="117"><span class="mtitle">相关说明</span></td>
</tr>
</tbody>
</table></td>
</tr>
<tr id="m1" style="display: block">
<td valign="top" align="middle" bgcolor="#f3f5f1"><table width="100%">
<tbody>
<tr>
<td align="left"><img height="7" hspace="5" src="images/arrow.gif" width="5" align="absmiddle" /><a href="Class_Manage.asp?ChannelId=2&ParentID=0" target="right">栏目管理</a></td>
</tr>
<%
Sql="select * from Ok3w_Class where ChannelId=2 and IsOpen =1 order by OrderID"
Set oRs = Conn.Execute(Sql)
Do While Not oRs.Eof
Sql="select * from Ok3w_Article where ClassID=" & oRs("ID")
Rs.Open Sql,Conn,1,3
If Rs.Eof And Rs.Bof Then
Rs.AddNew
Rs("ID") = Conn.Execute("select max(ID) from Ok3w_Article")(0) + 1
Rs("ChannelID") = 2
Rs("ClassID") = oRs("ID")
Rs("SortPath") = "0," & oRs("ID") & ","
Rs("Title") = oRs("SortName")
Rs("Content") = oRs("SortName")
Rs("Author") = "Systemp"
Rs("ComeFrom") = "Systemp"
Rs("AddTime") = Now()
Rs("Inputer") = ""
Rs("IsPass") = 1
Rs("IsPic") = 0
Rs("PicFile") = ""
Rs("IsTop") = 0
Rs("IsCommend") = 0
Rs("IsDelete") = 0
Rs("Hits") = 0
Rs.Update
End If
ID = Rs("ID")
Rs.Close
%>
<tr>
<td align="left"><img height="7" hspace="5" src="images/arrow.gif" width="5" align="absmiddle" /><a href="Article_Edit.asp?ChannelId=2&action=edit&ID=<%=ID%>" target="right"><%=oRs("SortName")%></a></td>
</tr>
<%
oRs.MoveNext
Loop
oRs.Close
Set oRs = Nothing
%>
</tbody>
</table></td>
</tr>
</tbody>
</table>
<br />
<table cellspacing="1" cellpadding="3" width="150" align="center" bgcolor="#999999"
border="0">
<tbody>
<tr>
<td class="ttl" onClick="showHide(m2)" valign="top" align="left" background="images/top-bj3.jpg"><table cellspacing="0" cellpadding="0" width="127" border="0">
<tbody>
<tr>
<td width="8"> </td>
<td align="left" width="117"><span class="mtitle">新闻管理</span></td>
</tr>
</tbody>
</table></td>
</tr>
<tr id="m2" style="display: block">
<td valign="top" align="middle" bgcolor="#f3f5f1"><table width="100%">
<tbody>
<tr>
<td align="left"><img height="7" hspace="5" src="images/arrow.gif" width="5" align="absmiddle" /><a href="Class_Manage.asp?ChannelId=1&ParentID=0&Depth=0" target="right">新闻分类</a></td>
</tr>
<tr>
<td align="left"><img height="7" hspace="5" src="images/arrow.gif" width="5" align="absmiddle" /><a href="Article_Edit.asp?ChannelId=1" target="right">添加新闻</a></td>
</tr>
<tr>
<td align="left"><img height="7" hspace="5" src="images/arrow.gif" width="5" align="absmiddle" /><a href="Article_List.asp?ChannelId=1" target="right">管理新闻</a></td>
</tr>
<tr>
<td align="left"><img height="7" hspace="5" src="images/arrow.gif" width="5" align="absmiddle" /><a href="Article_List.asp?ChannelId=1&IsDelete=1" target="right">回收站</a></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table>
<br />
<table cellspacing="1" cellpadding="3" width="150" align="center" bgcolor="#999999"
border="0">
<tbody>
<tr>
<td class="ttl" onClick="showHide(m3)" valign="top" align="left" background="images/top-bj3.jpg"><table cellspacing="0" cellpadding="0" width="127" border="0">
<tbody>
<tr>
<td width="8"> </td>
<td align="left" width="117"><span class="mtitle">留言/评论管理</span></td>
</tr>
</tbody>
</table></td>
</tr>
<tr id="m3" style="display: block">
<td valign="top" align="middle" bgcolor="#f3f5f1"><table width="100%">
<tbody>
<tr>
<td align="left"><img height="7" hspace="5" src="images/arrow.gif" width="5" align="absmiddle" /><a href="Guest_List.asp?IsPass=0" target="right">等审留言</a></td>
</tr>
<tr>
<td align="left"><img height="7" hspace="5" src="images/arrow.gif" width="5" align="absmiddle" /><a href="Guest_List.asp" target="right">全部留言</a></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table>
<br />
<table cellspacing="1" cellpadding="3" width="150" align="center" bgcolor="#999999"
border="0">
<tbody>
<tr id="m3" style="display: block">
<td valign="top" align="middle" bgcolor="#f3f5f1"><table width="100%">
<tbody>
<tr>
<td align="left">主页：<a href="http://www.glzy8.com/ok3w/" target="_blank">www.glzy8.com</a><br />
版本：Ok3w 2.1 HTML <br />
制作：zhengbi<br />
QQ：124895502</td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table>
<br />
</body>
</html>
<%
Set Rs = Nothing
Call CloseConn()
Set Admin = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -