📄 admin_plus.asp
字号:
if i > getname then exit for
next
end If
'Cache.DelCache("ForumOnline")
SuccessMsg " 在线人数虚拟完成, 成功虚拟了 "&getname&" 个人。"
End Sub
Sub menuadd
Dim Rs
If Request("edit") = 1 then
Set Rs=team.execute("Select Name,url,followid,SortNum,Newtype From ["&Isforum&"Menu] Where ID="&UID)
If Rs.Eof then
SuccessMsg " 参数错误。"
Else
%>
<BR>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<form method="post" name="settings" action="?action=usermenuok&updates=1">
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<input type="hidden" name="uid" value="<%=uid%>">
<tr align="center" class="a1">
<td> </td>
<td> 显示顺序 </td>
<td> 名称 </td>
<td> URL </td>
<td> 属性 </td>
</tr>
<tr bgcolor="#F8F8F8" align="center">
<td></td>
<td><input type="text" size="3" name="newid" value="<%=RS(3)%>"></td>
<td><input type="text" size="15" name="newname" value="<%=RS(0)%>"></td>
<td><input type="text" size="15" name="newurl" value="<%=RS(1)%>"></td>
<td> </td>
</tr>
</table>
<BR>
<center>
<input type="submit" name="forumlinksubmit" value="提 交">
</center>
</form>
<br>
<br>
<% End if
Else
%>
<BR>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<form method="post" name="settings" action="?action=usermenuok&newsinto=1">
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<input type="hidden" name="fid" value="<%=request("fid")%>">
<input type="hidden" name="Mid" value="<%=request("Mid")%>">
<tr align="center" class="a1">
<td> </td>
<td> 显示顺序 </td>
<td> 名称 </td>
<td> URL </td>
<td> 属性 </td>
</tr>
<tr bgcolor="#F8F8F8" align="center">
<td>新增:</td>
<td><input type="text" size="3" name="newid" value="0"></td>
<td><input type="text" size="15" name="newname"></td>
<td><input type="text" size="15" name="newurl"></td>
<td> </td>
</tr>
</table>
<BR>
<center>
<input type="submit" name="forumlinksubmit" value="提 交">
</center>
</form>
<br>
<br>
<%
End if
End Sub
Sub usermenuok
Dim ho,newid,i,Myid,MySortNum
If Request("updates") = 1 then
If Request.Form("newname")&""="" or Request.Form("newurl")&""="" then
SuccessMsg " 请填写必要的条件。"
Else
team.execute("Update ["&Isforum&"Menu] set Name='"&Replace(Request.Form("newname"),"'","")&"',url='"&Replace(Request.Form("newurl"),"'","")&"',SortNum="&Cid(Request.Form("newid"))&" Where ID="&UID)
End if
ElseIf Request("newsinto")=1 then
If Request.Form("newname")&""="" or Request.Form("newurl")&""="" then
SuccessMsg " 请填写必要的条件。"
Else
If Request.form("Mid") = 0 then
Newid = 0
Else
Newid = 1
End if
team.execute("insert into ["&Isforum&"Menu] (Name,url,followid,SortNum,Newtype) values ('"&Replace(Request.Form("newname"),"'","")&"','"&Replace(Request.Form("newurl"),"'","")&"',"&CID(Request("fid"))&","&Cid(Request.Form("newid"))&","&Newid&") ")
End if
Else
for each ho in request.form("deleteid")
team.execute("Delete from ["&Isforum&"Menu] Where ID="&ho)
next
If Request.form("deleteid")="" then
Myid=Split(Request.Form("UID"),",")
MySortNum=Split(Request.Form("SortNum"),",")
For i=0 to Ubound(Myid)
team.Execute("Update "&IsForum&"Menu set SortNum="&MySortNum(i)&" where ID="&Myid(i))
Next
If Request.Form("newname")<>"" then
team.execute("insert into ["&Isforum&"Menu] (Name,url,followid,SortNum,Newtype) values ('"&Replace(Request.Form("newname"),"'","")&"','"&Replace(Request.Form("newurl"),"'","")&"',0,"&CID(Request.Form("newid"))&","&Cid(Request.Form("newtype"))&") ")
End if
End if
End If
Cache.DelCache("MenuLoad")
SuccessMsg " 菜单设置完成 ，请等待系统自动返回到 <a href=Admin_plus.asp>菜单管理</a> 页面 。<meta http-equiv=refresh content=3;url=Admin_plus.asp>。 "
End Sub
Sub usermenu
%>
<BR>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1">
<td>技巧提示</td>
</tr>
<tr class="a3">
<td><br>
<ul>
<li>前台菜单请先添加大类，然后再添加其下级分类。大类只能作为菜单目录，无法加链接。</li>
<li>前台菜单即表示此菜单会在导航菜单处显示。</li>
<li>后台菜单即表示在后台添加菜单，用于自定义插件管理文件链接。</li>
</ul></td>
</tr>
</table>
<br>
<form method="post" name="settings" action="?action=usermenuok">
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1">
<td colspan="5">添加导航菜单</td>
</tr>
<tr align="center" class="a3">
<td><input type="checkbox" name="chkall" onClick="checkall(this.form)">
删?</td>
<td> 显示顺序 </td>
<td> 名称 </td>
<td> URL </td>
<td> 属性 </td>
</tr>
<tr bgcolor="#F8F8F8" align="center">
<td>新增[大类]:</td>
<td><input type="text" size="3" name="newid" value="0"></td>
<td><input type="text" size="15" name="newname"></td>
<td><input type="text" size="15" name="newurl"></td>
<td>
<input type="radio" name="newtype" value="1" checked>前台菜单
<input type="radio" name="newtype" value="0">后台菜单 </td>
</tr>
</table>
<BR>
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1">
<td> 编辑下属菜单 </td>
</tr>
<tr bgcolor="#F8F8F8" align="center">
<td><%Call Menus %></td>
</tr>
</table>
<BR>
<center>
<input type="submit" name="forumlinksubmit" value="提 交">
</center>
</form>
<br>
<br>
<%
End Sub
Sub Menus()
Dim SQL,RS,tmp
Echo " <table cellspacing=""1"" cellpadding=""4"" width=""98%"" align=""center"" class=""a2""> "
Set Rs=team.Execute("Select ID,Name,url,followid,SortNum,Newtype From "&IsForum&"Menu Where Followid=0 Order By SortNum")
If Rs.Eof then
Echo "<tr><td><BR><ul><center> 目前没有添加任何菜单 </center></ul></td></tr> "
End if
Do While Not RS.Eof
Echo "<tr class=""a4"" align=""center""><td width=""10""> <Input Name=UID value="&RS(0)&" type=hidden> <input type=""checkbox"" name=""deleteid"" value="&RS(0)&" class=""checkbox""></td><td width=""100""> 排序： <input type=text name=SortNum Value="&RS(4)&" Size=""1""> </td><td width=""50%"" align=""left""> ┝ <a target=_blank href=../"&RS(2)&"><b>"&RS(1)&"</b></a> </td><td> "
tmp =""
If Cid(Rs(5))=1 then
Echo "前台菜单"
tmp = "<a href=""?action=menuadd&fid="&RS(0)&"&Mid="&Rs(5)&""" title=""添加本分类或下级菜单"">[添加]</a> <a href=""?action=menuadd&uid="&RS(0)&"&edit=1&Mid="&Rs(5)&""" title=""编辑本菜单设置"">[编辑]</a>"
Else
Echo "后台菜单"
tmp = " <a href=""?action=menuadd&uid="&RS(0)&"&edit=1&Mid="&Rs(5)&""" title=""编辑本菜单设置"">[编辑]</a> "
End if
Echo " </td><td> "&tmp&" </td></tr>"
Call Menus_1(Rs(0))
Echo " "
RS.MoveNext
loop
RS.Close:Set Rs = Nothing
Echo "</table>"
End Sub
Sub Menus_1(a)
Dim SQL,RS,Style,S,t,sty
Set Rs=team.Execute("Select ID,Name,url,followid,SortNum,Newtype From "&IsForum&"Menu Where Followid="&a&" Order By SortNum")
Do While Not RS.Eof
Echo "<tr class=""a4"" align=""center""><td width=""10""> <Input Name=UID value="&RS(0)&" type=hidden> <input type=""checkbox"" name=""deleteid"" value="&RS(0)&"></td><td width=""100""> 排序： <input type=text name=SortNum Value="&RS(4)&" Size=""1""> </td><td width=""50%"" align=""left""> ┕<a target=_blank href=../"&RS(2)&"><b>"&RS(1)&"</b></a> </td><td> "
If Rs(5)=1 then
Echo "前台菜单"
Else
Echo "后台菜单"
End if
Echo " </td><td> <a href=""?action=menuadd&uid="&RS(0)&"&edit=1&Mid="&Rs(5)&""" title=""编辑本菜单设置"">[编辑]</a> </td></tr>"
Call Menus_1(Rs(0))
Echo " "
RS.MoveNext
loop
RS.Close:Set Rs = Nothing
End Sub
sub BBSListshow(selec)
Dim SQL,ii,RS2,aa
sql="Select ID,bbsname From ["&isforum&"bbsconfig] where followid="&selec&" order by SortNum"
Set Rs2=team.Execute(sql)
do while not rs2.eof
aa=" ┕"
If selec = 0 then aa="┝"
Response.write "<option value="&rs2(0)&">"&aa&""&rs2(1)&"</option>"
ii=ii+1
BBSListshow rs2(0)
ii=ii-1
rs2.movenext
loop
Rs2.close: Set Rs2 = Nothing
End Sub
footer()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -