📄 admin_guide.asp
字号:
<%@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">
<style type="text/css">
<!--
.STYLE1 {
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
</head>
<body leftmargin="2" topmargin="8">
<%
if Request("Action")="SetInfo" then
Id=Request("Id")
SqlSetInfo = "Select * from zf11_guide where ID="&Id&" "
Set RsSetInfo = Conn.Execute(SqlSetInfo)
%>
<form name="form2" method="post" action="Admin_guideSave.asp?Action=SetInfo">
<table width="590" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#ff9933">
<tr>
<td height="25" bgcolor="#ff9933"> <div align="center" class="STYLE1">设 置 面 页 内
容</div></td>
</tr>
<tr>
<td height="66" bgcolor="#FFFFFF">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="35%" height="26">
<div align="right">设置的类别：<img src="../Images/zf11_Guide.gif" width="11" height="11">
<input name="Names" type="text" id="Names" 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" value="<%=RsSetInfo("Names")%>" size="15" maxlength="25" readonly>
</div></td>
<td width="65%"> <div align="right">
<input name="ID" type="hidden" id="ID22" value="<%=RsSetInfo("ID")%>" >
</div></td>
</tr>
<tr>
<td colspan="2" align="center"> <textarea name="content" id="content" cols="80" rows="30"><%=RsSetInfo("Info")%></textarea>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25" bgcolor="#EAEAEA">
<div align="center">
<input name="Submit22" type="submit" id="Submit223" value="设定">
<input type="reset" name="Submit4" value="重置">
<input type="button" value="删除" onClick=window.open('Admin_guideSave.asp?action=B_Del&id=<%=RsSetInfo("ID")%>') name=del2>
</div></td>
</tr>
</table>
</form>
<%
RsSetInfo.close
set RsSetInfo =nothing
call closeconn()
%>
<% response.end %>
<% end if %>
<table width="600" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#ff9933">
<tr>
<td width="749" height="25" bgcolor="#ff9933">
<div align="center" class="STYLE1">分 类 管 理</div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="6%" align="center"> <div align="center"> </div></td>
<td width="94%" align="center"> <div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="form1" method="post" action="Admin_guideSave.asp?Action=Add">
<tr>
<td align="center"> 添加:
<input name="Names" type="text" id="Names" size="18" maxlength="30" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none;BORDER-BOTTOM: rgb(0,0,0) 1px solid" >
<select name="B_id" id="B_id" >
<option value="0" >作为根分类</option>
<%
Sql = "Select * from zf11_guide where B_id=0 "
Set Rs = Conn.Execute(Sql )
do while not Rs.eof
%>
<option value="<%=Rs("ID")%>"><%=Rs("Names")%></option>
<%
Rs.movenext
loop
Rs.close
set Rs=nothing
%>
</select>
<select name="setting" style="display:none">
<option value="1">图文</option>
</select>
<select name="Tuijian" style="display:none">
<option value="True">图文</option>
</select>
<input type="submit" name="Submit" value="添 加">
</td>
</tr>
</form>
</table>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="56" bgcolor="#FFFFFF"> <table width="100%" border="0" align="right" cellpadding="1" cellspacing="0">
<tr>
<td height="7" colspan="2"></td>
</tr>
<tr>
<td width="29%" height="21">
<div align="center">分类信息</div></td>
<td width="71%">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td width="70%" height="19">类别信息设置</td>
<td width="30%">操作</td>
</tr>
</table>
</div></td>
</tr>
<%
SqlSort = "Select * from zf11_guide where B_id=0 order by ID "
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
%>
<tr>
<td colspan="2"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="setting" method="post" action="Admin_guideSave.asp?Action=setting">
<tr>
<td width="25%"> <img src="../Images/zf11_Guide.gif" width="11" height="11">
<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" >
</td>
<td width="75%">
<div align="right">
<input name="ID" type="hidden" id="ID4" value="<%=RsSort("ID")%>" >
<input type="radio" name="setting" value="1" <% if RsSort("setting")<>3 then%>checked<%end if%> style="BORDER: medium none; ">
一级
<input type="radio" name="setting" value="3" <% if RsSort("setting")=3 then%>checked<%end if%> style="BORDER: medium none; ">
单页
<% if RsSort("setting")=3 then%>
<a href="Admin_guide.asp?Id=<%=RsSort("ID")%>&Action=SetInfo" title="设置本页的内容"><font color="#FF0000">设置本页的内容</font></a>
<% end if %>
<input name="Submit2" type="submit" id="Submit2" value="设定">
<input type="button" value="删除" onClick=location.href='Admin_guideSave.asp?action=B_Del&id=<%=RsSort("ID")%>' name=del>
</div></td>
</tr>
</form>
</table></td>
</tr>
<% if RsSort("setting")<>3 and RsSort("setting")<>5 then%>
<%
SqlClass = "Select * from zf11_guide where B_id= "& RsSort("ID") &" order by ID "
Set RsClass = Conn.Execute(SqlClass)
if RsClass.eof and RsClass.bof then
Response.write("")
else
do while not RsClass.eof
%>
<tr>
<td colspan="2"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="S_modify" method="post" action="Admin_guideSave.asp?action=setting">
<tr>
<td width="27%" height="22">
<input name="Names" type="text" id="Names" style="BORDER-RIGHT: medium none; BORDER-TOP: medium none; BORDER-LEFT: medium none; BORDER-BOTTOM: rgb(0,0,0) 1px solid" value="<%=RsClass("Names")%>" size="12" >
</td>
<td width="73%">
<div align="right">
<input type="radio" name="setting" value="1" <% if RsClass("setting")<>3 then%>checked<%end if%> style="BORDER: medium none; ">
一级
<% if RsClass("setting")<>3 then%>
<font color="#FF0000"> 推荐：</font><input name="Tuijian" type="checkbox" id="Tuijian" style="border:0px" <% if RsClass("Tuijian")=True then%>checked<%end if%>>
<% end if %>
<input type="radio" name="setting" value="3" <% if RsClass("setting")=3 then%>checked<%end if%> style="BORDER: medium none; ">
单页
<% if RsClass("setting")=3 then %>
<a href="Admin_guide.asp?Id=<%=RsClass("Id")%>&Action=SetInfo"><font color="#FF0000">设置本页的内容</font></a>
<% end if %>
<input name="ID" type="hidden" id="ID" value="<%=RsClass("ID")%>" size="1" >
<input name="Submit3" type="submit" id="Submit32" value="设定">
<input type="button" value="删除" onClick=window.open('Admin_guideSave.asp?action=Del&id=<%=RsClass("ID")%>') name=del>
</div></td>
</tr>
</form>
</table></td>
</tr>
<%
RsClass.movenext
loop
end if
RsClass.close
set RsClass=nothing
%>
<% end if %>
<%
RsSort.movenext
loop
end if
RsSort.close
set RsSort=nothing
conn.close
set conn=nothing
%>
</table></td>
</tr>
<tr>
<td height="23" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td height="25" bgcolor="#ff9933"> </td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -