📄 admin_submenu.asp
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="sqlx.asp"-->
<%call hacker()
if session("superlogin")<>web58818 then
response.Write "<script>alert('本站提示：您还没有登陆！');this.location.href='index.asp';</script>"
Response.End
end if
if session("superadmin")<>"admin" then
response.Write "<script>alert('\n错误提示：您的权限不足！\n\n您不是超级管理员！');this.location.href='index.asp';</script>"
Response.End
end if%>
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="STYLESHEET" type="text/css" href="img/admin.css"><body>
<%
parentid=request.querystring("parentid")
sql="select * from YC_menu where parentid="&parentid&" order by menuid asc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
newmenuid=rs.recordcount+1
select case request("action")
case "menu"
call menu()
end select
sub menu()%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="<%=border%>" rules=none class=3d>
<tr><td height="22" colspan="5" class=title><b> <img src=img/ie.gif border=0 width=15 height=15 align=absMiddle> 子菜单管理</b></td></tr>
<tr class=bg height="25">
<td width=30>开关</td>
<td width=60>菜单顺序</td>
<td width=70>菜单名称</td>
<td width=100>菜单地址</td>
<td width=100>菜单操作</td></tr>
<%if not rs.bof and not rs.eof then
num=1
do while not rs.eof%>
<tr height="25" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#efefef'"><form method="post">
<td><input name="pass" type="checkbox" id="pass" value="true" <%if rs("pass") then response.write "checked" end if%>></td>
<td><input name="menuid" type="text" id="menuid" value="<%=rs("menuid")%>" size="3" class=web58818></td>
<td><input name="title" type="text" id="title" value="<%=rs("title")%>" size="8" class=web58818></td>
<td><input name="url" type="text" id="url" value="<%=rs("url")%>" size="50" class=web58818 ></td>
<td> <input name="id" type="hidden" id="id" value="<%=rs("id")%>"><input type="submit" name="edit" id=edit value="保存" class=button> <input name="del" type="submit" id="del" value="删除" class=button>
</td>
</form>
</tr>
<%
num=num+1
rs.movenext
loop
end if
rs.close
set rs=nothing
Response.Write("</table>")
%>
<br>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="<%=border%>" rules=none class=3d>
<tr><td height="22" colspan="5" class=title><b> <img src=img/ie.gif border=0 width=15 height=15 align=absMiddle> 添加子菜单</b></td></tr>
<tr class=bg height="25">
<td width=30>开关</td>
<td width=60>菜单顺序</td>
<td width=70>菜单名称</td>
<td width=100>菜单地址</td>
<td width=100>菜单操作</td></tr>
<tr height="25"><form method="post">
<td><input name="pass" type="checkbox" id="pass" value=true checked></td>
<td><input name="menuid" type="text" id="menuid" size="3" class=web58818></td>
<td><input name="title" type="text" id="title" size="8" class=web58818></td>
<td><input name="url" type="text" id="url" size="50" class=web58818 ></td>
<td><input name="new" type="submit" class="adminbutton" id="new" value="添加"><input type="hidden" name="parentid" value="<%=parentid%>"></td>
</form>
</tr>
</table>
<%
end sub
if request.Form("del")<>""then
Conn.Execute("Delete * From YC_menu Where id="&Request.Form("id"))
call SaveSubMenu()
Response.Write("<script language=javascript>alert('删除成功！');this.location.href='admin_submenu.asp?action=menu&parentid="&parentid&"';</script>")
response.end
elseif request.form("edit")<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from YC_menu where id="&request.form("id")
rs.open sql,conn,1,3
rs("title")=request.Form("title")
rs("menuid")=request.Form("menuid")
rs("url")=request.Form("url")
rs("pass")=(NOT IsEmpty(request.Form("pass")))
rs.close
set rs=nothing
call SaveSubMenu()
Response.Write("<script language=javascript>alert('保存成功！');this.location.href='admin_submenu.asp?action=menu&parentid="&parentid&"';</script>")
response.end
elseif request.form("new")<>"" then
set rs=server.CreateObject("adodb.recordset")
rs.open "YC_menu",conn,1,3
rs.addnew
rs("title")=request.Form("title")
rs("menuid")=request.Form("menuid")
rs("url")=request.Form("url")
rs("pass")=(NOT IsEmpty(request.Form("pass")))
rs("parentid")=request.Form("parentid")
rs.close
set rs=nothing
call SaveSubMenu()
response.write"<script>alert('添加成功！');location.href='admin_submenu.asp?action=menu&parentid="&parentid&"';</script>"
end if
Sub SaveSubMenu()
if (NOT IsObjInstalled("Scripting.FileSystemObject")) then
response.Write("你的服务器不支持 FSO(Scripting.FileSystemObject),不能保存子菜单!")
response.end
end if
dim fso,hf
set fso=Server.CreateObject("Scripting.FileSystemObject")
set hf=fso.CreateTextFile(Server.MapPath("inc/Menu_content.js"),true)
hf.Write("if (mtDropDown.isSupported()) {" & vbcrlf)
hf.Write("var ms = new mtDropDownSet(mtDropDown.direction.down, 0, 0, mtDropDown.reference.bottomLeft);" & vbcrlf)
sql="select id from yc_menu where id in (select parentid from yc_menu) and pass"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
While(not rs.eof)
hf.Write("var menu"&rs(0)&" = ms.addMenu(document.getElementById(""menu"&rs(0)&"""));" & vbcrlf)
rs.movenext
Wend
rs.close
sql="select [title],[url],[parentid] from yc_menu where parentid>0 and pass and parentid in (select id from yc_menu where pass) order by menuid"
rs.open sql,conn,1,1
While(not rs.eof)
'menu4.addItem("- 企业荣誉", "Honor.asp");
hf.Write("menu"&rs("parentid")&".addItem(""- "&rs("title")&""", """&Server.HTMLEncode(rs("url"))&""");" & vbcrlf)
rs.movenext
Wend
set rs=nothing
hf.Write("mtDropDown.renderAll();}" )
hf.close
set hf=nothing
set fso=nothing
End Sub
call closedata()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -