📄 admin_navigation.asp
字号:
<!--#include file="Include/Gaobei_setup.asp"-->
<!--#include file="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>后台管理 >> 一级管理</title>
<link href="other/Gaobei_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="Names" type="text" id="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="blank" type="checkbox" id="blank" style="border:0px" value="True">
排列： <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="text" name="explain" size="20" 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 Sort 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>
<%
SqlSort = "Select * from Sort where B_id=0 or B_id=-1 order by S_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
%>
<div align="center">
<table width="100%" border="0" cellpadding="0" cellspacing="0" height="30">
<form name="Setting" method="post" action="?Action=Setting">
<tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F7F8F8'">
<td> <img src="Images/Gaobei_Guide.gif">
<% if RsSort("daohang")<>"" then %>
<input name="Names" type="text" value="<%=RsSort("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="Names" type="text" value="<%=RsSort("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")%>">
<% 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='sort.asp?sortID=<%=RsSort("ID")%>&<%=RsSort("Names")%>'><%=RsSort("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 %>
新窗弹出：<input name="blank" type="checkbox" id="blank" style="border:0px" value="True" <% if RsSort("blank")=True then%>checked<%end if%>>
隐藏一级：<input name="hide" type="checkbox" id="hide" style="border:0px" value="True" <% if RsSort("hide")=True then%>checked<%end if%>>
排列：<input name="Order" type="text" id="Order" value="<%=RsSort("S_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 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 %>
<% if RsSort("explain")="" then %>
<a href="Admin_Navigation.asp?action=Modify2&id=<%=RsSort("ID")%>"><font color="#800000">添加栏目说明</font></a>
<% else %>
栏目说明<a href="Admin_Navigation.asp?action=Modify2&id=<%=RsSort("ID")%>">(修改)</a>：<img border="0" src="Images/Gaobei_skin/Gaobei_explain.gif" alt="<%=RsSort("explain")%>">
<% end if %>
</div></td>
</tr>
</form>
</table>
</div>
<%
RsSort.movenext
loop
end if
RsSort.close
set RsSort=nothing
%>
<%
'删除大类
if Request.QueryString("Action")="B_Del" then
ID=request("ID")
set rs=server.createobject("adodb.recordset")
DelBig="delete from Sort where Id="& ID
DelAll="delete from Sort where B_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("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 Sort "
rs.open sql,conn,1,3
rs.addnew
rs("AddTime")=date()
rs("Names")=Request("Names")
rs("S_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 Sort 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")="Setting" then
If Request("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 Sort where ID="&ID&""
rs.open sql,conn,1,3
rs("Names")=Request("Names")
rs("S_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 + -