📄 admin_navigation.asp
字号:
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Session.CodePage=936%>
<!--#include file="setting.asp"-->
<!--#include file="../include/Conn.asp"-->
<!--#include file="../include/char.asp" -->
<!--#include file="../Include/check.asp"-->
<!--#include FILE="../Include/Admin_Function.asp"-->
<%CheckAdmin3%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理 >> 一级管理_中国站长俱乐部Club.Cn0797.Cn</title>
<link href="../other/zf11_Style.css" rel="stylesheet" type="text/css">
</head>
<% if Request("Action")<>"Modify2" then%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="form1" method="post" action="?Action=Add">
<tr>
<td align="center">
添加：<input name="zf11_names" type="text" id="zf11_names" size="16" maxlength="30" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none;BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
连接网址：<input type="text" name="daohang" size="15" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid">
排列： <input name="Order" type="text" id="Order" size="2" maxlength="5" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<input type="submit" name="Submit" value="添 加">
</td>
</tr>
</form>
</table>
<% end if %>
<% if Request("Action")="Modify2" then%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
Id=Request("Id")
SqlModify = "Select * from zf11_type where Id="&Id&" "
Set RsModify = Conn.Execute(SqlModify)
%>
<form name="Modify" id="Modify" method="post" action="Admin_Navigation.asp?Action=Modify">
<tr>
<td align="center">
栏目说明：<input type="text" name="explain" size="60" value="<%=RsModify("explain")%>" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid">
<input name="ID" type="hidden" id="ID3" value="<%=RsModify("ID")%>" size="1" >
<input type="submit" name="Submit" value="修 改">
</td>
</tr>
</form>
</table>
<%end if%>
<%
RsModify.close
set RsModify=nothing
%>
<hr>
<div align="center">
<table width="500" border="0" align="center" cellpadding="0" cellspacing="1" bordercolorlight="#999999" bordercolordark="#FFFFFF" bgcolor="#ff9933">
<tr>
<td width="50" height="20" bgcolor="#ff9933"><div align="center"><font color="#FFFFFF"> <span class="STYLE1">排序</span></font></div></td>
<td width="80" height="20" align="center" bgcolor="#ff9933"><span class="STYLE1"><font color="#FFFFFF">栏目名</font></span></td>
<td width="220" height="23" align="center" bgcolor="#ff9933"><span class="STYLE1"><font color="#FFFFFF">网址</font></span></td>
<td width="60" height="20" align="center" bgcolor="#ff9933"><span class="STYLE1"><font color="#FFFFFF">是否隐藏</font></span></td>
<td width="90" height="23" align="center" bgcolor="#ff9933"><span class="STYLE1"><font color="#FFFFFF">操作</font></span></td>
</tr>
<%
SqlSort = "Select * from zf11_type where zf11_big_id=0 or zf11_big_id=-1 order by zf11_order"
Set RsSort = Conn.Execute(SqlSort)
if RsSort.eof and RsSort.bof then
Response.write("<div align=center>还没有一级栏目.......</div>")
response.end
else
do while not RsSort.eof
%>
<form name="zf11_setting" method="post" action="?Action=zf11_setting">
<tr bgcolor="#FFFFFF">
<td height="19" align="center" bordercolorlight="#C0C0C0"> <input name="Order" type="text" id="Order" value="<%=RsSort("zf11_order")%>" size="2" maxlength="5" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" ></td>
<td align="left"> <% if RsSort("daohang")<>"" then %>
<input name="zf11_names" type="text" value="<%=RsSort("zf11_names")%>" size="12" maxlength="25" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<%else%>
<input name="zf11_names" type="text" value="<%=RsSort("zf11_names")%>" size="12" maxlength="25" readonly style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: #808080; BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<% end if %>
<input name="ID" type="hidden" id="ID4" value="<%=RsSort("ID")%>"></td>
<td align="left"> <% if RsSort("daohang")<>"" then %>
<input type="text" name="daohang" size="25" value="<%=RsSort("daohang")%>" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: rgb(255,0,0); BORDER-BOTTOM: rgb(0,0,0) 1px solid">
<%else%>
<font color="#800080"> </font><input type="text" onfocus=this.select() onmouseover=this.focus() size="25" value="<a href='type.asp?zf11id=<%=RsSort("ID")%>&<%=RsSort("zf11_names")%>'><%=RsSort("zf11_names")%></a>" readonly style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; COLOR: #808080; BORDER-BOTTOM: rgb(0,0,0) 1px solid">
<% end if %></td>
<td align="center"><input name="hide" type="checkbox" id="hide" style="border:0px" value="True" <% if RsSort("hide")=True then%>checked<%end if%>></td>
<td height="23" align="left" bordercolorlight="#c0c0c0" bgcolor="#FFFFFF"><div align="left"> <input name="Submit2" type="submit" id="Submit2" value="修改"><% if RsSort("daohang")<>"" then %>
<input type="button" value="删除" onClick=location.href='?action=B_Del&id=<%=RsSort("ID")%>' name=del>
<% end if %></div></td>
</tr>
</form>
<%
RsSort.movenext
loop
end if
RsSort.close
set RsSort=nothing
%>
</table>
</div>
<%
'删除大类
if Request.QueryString("Action")="B_Del" then
ID=request("ID")
set rs=server.createobject("adodb.recordset")
DelBig="delete from zf11_type where Id="& ID
DelAll="delete from zf11_type where zf11_big_id="& ID
rs.open DelBig,conn,3,3
rs.open DelAll,conn,3,3
set rs=nothing
conn.close
response.redirect "Admin_Navigation.asp"
end if
%>
<%
'分类添加
if Request.QueryString("Action")="Add" then
If Request("zf11_names")="" Then
response.write "SORRY <br>"
response.write "请输入分类的名称!!<a href=""javascript:history.go(-1)"">返回重输</a>"
response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from zf11_type "
rs.open sql,conn,1,3
rs.addnew
rs("AddTime")=date()
rs("zf11_names")=Request("zf11_names")
rs("zf11_order")=Request("Order")
rs("daohang")=Request("daohang")
rs("explain")=Request("explain")
if Request("blank")<>"" then
rs("blank")=Request("blank")
else
rs("blank")=False
end if
if Request("hide")<>"" then
rs("hide")=Request("hide")
else
rs("hide")=False
end if
rs.update
rs.close
response.redirect "Admin_Navigation.asp"
end if
%>
<%
'栏目说明修改
if Request.QueryString("Action")="Modify" then
ID=Request("ID")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from zf11_type where ID="&ID&""
rs.open sql,conn,1,3
rs("explain")=Request("explain")
rs.update
rs.close
response.redirect "Admin_Navigation.asp"
end if
%>
<%
'一般修改
if Request.QueryString("Action")="zf11_setting" then
If Request("zf11_names")="" Then
response.write "SORRY <br>"
response.write "请输入分类的名称!!<a href=""javascript:history.go(-1)"">返回重输</a>"
response.end
end if
ID=Request("ID")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from zf11_type where ID="&ID&""
rs.open sql,conn,1,3
rs("zf11_names")=Request("zf11_names")
rs("zf11_order")=Request("Order")
rs("daohang")=Request("daohang")
'rs("explain")=Request("explain")
if Request("blank")<>"" then
rs("blank")=Request("blank")
else
rs("blank")=False
end if
if Request("hide")<>"" then
rs("hide")=Request("hide")
else
rs("hide")=False
end if
rs.update
rs.close
response.redirect "Admin_Navigation.asp"
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -