admin_menu.asp

感谢您使用BBSXP

<!-- #include file="Setup.asp" -->
<%
if SiteSettings("AdminPassword")<>session("pass") then response.redirect "Admin.asp?menu=Login"
Log(""&Request.ServerVariables("script_name")&"<br>"&Request.ServerVariables("Query_String")&"<br>"&Request.form&"")
id=HTMLEncode(Request("id"))


response.write "<center>"

select case Request("menu")
case ""
Show

case "add"
add

case "addok"
Rs.Open "[BBSXP_Menu]",Conn,1,3
Rs.addNew
Rs("name")=Request("name")
Rs("url")=Request("url")
Rs("followid")=Request("followid")
Rs("SortNum")=Request("SortNum")
Rs.update
Rs.close
Show

case "edit"
edit

case "editok"
editok

case "Del"
Conn.execute("Delete from [BBSXP_Menu] where id="&id&" ")
Show


end select

sub Show
%>
论坛菜单管理<br>
<form method="POST" action="?menu=addok" name=form>
<input type=hidden name=followid value=0>
<input type=hidden name=SortNum value=0>
<input type=hidden name=url value="#">
菜单名称：（例如：社区插件）<input name="name"> <input type="submit" value="添加">
</form>
<table cellspacing=1 cellpadding=2 width=60% border=0 class=a2 align=center>

<%Adminmenu(0)%>



</table>

<br>

<%
end sub

sub add
%>
<form method="POST" action="?menu=addok" name=form>
<table cellspacing="1" cellpadding="2" width="60%" border="0" class="a2" align="center">
	<tr class=a1>
		<td align="center" colspan="4" height="25">添加菜单</td>
	</tr>
	<tr class=a3>
		<td align="right" width="10%">标题：</td>
		<td width="40%"><input name="name"></td>
		<td align="right" width="10%">分类：</td>
		<td width="40%">
		<select name="followid">
<option value="0">一级菜单</option>
<%
sql="Select * From [BBSXP_Menu] where followid=0 order by SortNum"
Set Rs1=Conn.Execute(sql)
do while not rs1.eof
%>
<option value="<%=rs1("ID")%>" <%if id=""&rs1("ID")&"" then%>selected<%end if%>><%=rs1("name")%></option>
<%
rs1.Movenext
loop
Set Rs1 = Nothing
%>
</select></td>
</tr>
<tr class=a3>
		<td align="right" width="10%">链接：</td>
		<td width="40%"><input name="url"></td>
		<td align="right" width="10%">排序：</td>
		<td width="40%"><input size="2" value="0" name="SortNum"> 从小到大排序</td>
	</tr>
	<tr class=a3>
		<td align="center" width="100%" colspan="4"> 
		<input type="submit" value=" 添 加 ">
		<input type="reset" value=" 重 填 "></td>
	</tr>
</table><br><a href=javascript:history.back()>< 返 回 ></a>
<%
end sub




sub editok
if id=Request("followid") then error2("设置错误")
Rs.Open "select * from [BBSXP_Menu] where id="&id&"",Conn,1,3
Rs("name")=Request("name")
Rs("url")=Request("url")
Rs("followid")=Request("followid")
Rs("SortNum")=Request("SortNum")
Rs.update
Rs.close
%>
编 辑 成 功　！<p><a href=javascript:history.back()>< 返 回 ></a><%
end sub



sub edit

sql="Select * From [BBSXP_Menu] where id="&id&""
Set Rs=Conn.Execute(sql)



%>
<form method="POST" action="?menu=editok" name=form>
<input type=hidden name=id value=<%=id%>>
<table cellspacing="1" cellpadding="2" width="60%" border="0" class="a2" align="center">

	<tr class=a1>
		<td align="center" colspan="4" height="25">编辑菜单</td>
	</tr>
	<tr class=a3>
		<td align="right" width="10%">标题：</td>
		<td width="40%"><input name="name" value="<%=Rs("name")%>"></td>
		<td align="right" width="10%">分类：</td>
		<td width="40%">
		<select name="followid">
<option value="0">一级菜单</option>
<%
sql="Select * From [BBSXP_Menu] where followid=0 order by SortNum"
Set Rs1=Conn.Execute(sql)
do while not rs1.eof
%>
<option value="<%=rs1("id")%>" <%if Rs("followid")=rs1("id") then%>selected<%end if%>><%=rs1("name")%></option>
<%
rs1.Movenext
loop
Set Rs1 = Nothing
%>
		</select></td>
	</tr>
	<tr class=a3>
		<td align="right" width="10%">链接：</td>
		<td width="40%"><input name="url" value="<%=Rs("url")%>" size="20"></td>
		<td align="right" width="10%">排序：</td>
		<td width="40%"><input size="2" value="<%=Rs("SortNum")%>" name="SortNum"> 从小到大排序</td>
	</tr>
	<tr class=a3>
		<td align="center" width="100%" colspan="4"> 
		<input type="submit" value=" 编 辑 ">
		<input type="reset" value=" 重 填 "></td>
	</tr>
	</table><br><a href=javascript:history.back()>< 返 回 ></a>
<%
end sub





sub Adminmenu(selec)
sql="Select * From [BBSXP_Menu] where followid="&selec&" order by SortNum"
Set Rs1=Conn.Execute(sql)
do while not rs1.eof
if rs1("followid")=0 then 
%><tr class=a1 id=TableTitleLink><td height=25 align=center><%=rs1("name")%></td><td height=25 align=right width=150><a href="Admin_menu.asp?menu=add&id=<%=rs1("id")%>">添加</a> | 
<a href=Admin_menu.asp?menu=edit&id=<%=rs1("id")%>>编辑</a> | <a href=Admin_menu.asp?menu=Del&id=<%=rs1("id")%>>删除</a></td></tr></p>
<%
else
response.write "<tr class=a3><td height=25>"&rs1("name")&"（<a href="&rs1("url")&" target=_blank>"&rs1("url")&"</a>）</td><td height=25 align=right><a href=Admin_menu.asp?menu=edit&id="&rs1("id")&">编辑</a> | <a href=Admin_menu.asp?menu=Del&id="&rs1("id")&">删除</a></td></tr>"
end if

Adminmenu(rs1("id"))

rs1.Movenext
loop
Set Rs1 = Nothing
end sub


htmlend

%>