📄 admin_forum.asp
字号:
<table cellspacing="0" cellpadding="0" border="0" width="100%" align="center">
<tr><%
If Isarray(Value) Then
U=0
For i=0 To Ubound(Value,2)
U = U+1
Echo "<td><input type=""checkbox"" name=""upperm"" value="&Value(0,i)&" "
If Isarray(B_Upperm) Then
for m = 0 to Ubound(B_Upperm)
If Cid(Trim(B_Upperm(m))) = CID(Value(0,i)) Then Echo "checked"
next
end if
Echo " >"&Value(2,i)&"</td> "
If U= 4 Then
Echo "</tr><tr>"
U=0
End If
Next
End If
%>
</table></td>
</tr>
<tr>
<td colspan="2" class="a4" height="2"></td>
</tr>
</table>
<br>
<br>
<center>
<input type="submit" name="detailsubmit" value="提 交">
</form>
<br>
<%
End If
Rs.Close:Set Rs=Nothing
End Sub
Sub Forumadd%>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2">
<tr class="a1">
<td>技巧提示</td>
</tr>
<tr bgcolor="#F8F8F8">
<td><br>
<ul>
你只有添加了版块以后才可以对版块进行详细的设置。
</ul></td>
</tr>
</table>
<br>
<form method="post" action="?Action=ForumAddok&add=Forum_1">
<table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2">
<tr class="a1">
<td colspan=5>添加子论坛</td>
</tr>
<tr align="center">
<td bgcolor="#F8F8F8" width="15%">名称:</td>
<td bgcolor="#FFFFFF" width="28%"><input type="text" name="newforum" value="子论坛名称" size="20"></td>
<td bgcolor="#F8F8F8" width="15%">上级论坛:</td>
<td bgcolor="#FFFFFF" width="27%"><select name="fup">
<option value="0"> >>一级论坛</option>
<% ForumList_Sel(0) %>
</select></td>
<td bgcolor="#F8F8F8" width="15%"><input type="submit" name="forumsubmit" value="提 交"></td>
</tr>
</table>
</form>
<br>
<%
End Sub
Sub SetModerators
If Request("UpModers")=1 Then
Dim newmoderator,newdisplayorder,Rs1
Newmoderator = HTMLEncode(Request.Form("newmoderator"))
Newdisplayorder = HTMLEncode(Request.Form("newdisplayorder"))
Dim ho
for each ho in request.form("isdelete")
Team.execute("Delete from "&isforum&"Moderators Where id="&ho)
next
If Request.form("isdelete")="" Then
If Newmoderator="" or Newdisplayorder="" Then Error2("参数不能为空!")
If team.execute("Select * from ["&isforum&"User] where UserName='"&Newmoderator&"' ").Eof Then
Error2("指定用户不存在，请返回。")
Else
If team.execute("Select ManageUser from "&isforum&"Moderators where ManageUser='"&Newmoderator&"' and BoardID="&ID).Eof Then
team.execute("insert into "&isforum&"Moderators (BoardID,ManageUser,Issort) values ("&ID&",'"&Newmoderator&"',"&Newdisplayorder&") ")
Else
error2 " 此版主已经存在! "
End If
End If
End If
Cache.DelCache("ManageUsers")
SuccessMsg("版主设置成功!")
Else%>
<br>
<br>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<form method="post" action="?Action=SetModerators&UpModers=1&ID=<%=request("ID")%>">
<table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2">
<tr class="a1">
<td colspan=4>TEAM's - 编辑版主 - <%=team.execute("Select bbsname from "&isforum&"Bbsconfig where id="&id )(0)%></td>
</tr>
<tr align="center" class=a3>
<td> <input type="checkbox" name="chkall" class="a4" onClick="checkall(this.form)">删?</td>
<td>用户名</td>
<td>显示顺序</td>
</tr>
<%
Dim Rs
Set Rs=team.Execute("Select id,ManageUser,Issort from "&isforum&"Moderators Where BoardID="& ID)
Do While Not Rs.Eof
%>
<tr align="center" class="a4">
<td><input type="checkbox" name="isdelete" value="<%=rs(0)%>"></td>
<td><%=rs(1)%></td>
<td><%=rs(2)%></td>
</tr>
<% Rs.MoveNext
Loop
Rs.Close:Set Rs=Nothing
%>
<tr align="center" class="a3">
<td>新增:</td>
<td><input type='text' name="newmoderator" size="20"></td>
<td><input type="text" name="newdisplayorder" size="2" value="0"></td>
</tr>
</table>
<br>
<center>
<input type="submit" name="forumsubmit" value=" 提 交 ">
</form>
</center>
<br>
<%
End If
End Sub
Sub DelForums%>
<br>
<br>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<form method="post" action="?Action=ServerDelForum&ID=<%=request("ID")%>">
<table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2">
<tr class="a1">
<td colspan=5>TEAM's 提示</td>
</tr>
<tr align="center">
<td bgcolor="#FFFFFF"><br>
<br>
<br>
本操作不可恢复，您确定要删除该论坛，清除其中帖子和附件吗?<br>
注意: 删除论坛并不会更新用户发帖数和积分<br>
<br>
<br>
<br>
<input type="submit" name="forumsubmit" value=" 确 定 ">
<input type="button" value=" 取 消 " onClick="history.go(-1);"></td>
</tr>
</table>
</form>
<br>
<%
End Sub
Sub UniForum()
%>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<br>
<br>
<br>
<br>
<br>
<br>
<form method="post" action="?Action=Forumsmerge">
<table cellspacing="1" cellpadding="4" width="85%" align="center" class="a2">
<tr class="a1">
<td colspan="3">合并论坛 - 源论坛的帖子全部转入目标论坛，同时删除源论坛</td>
</tr>
<tr align="center">
<td bgcolor="#F8F8F8" width="40%">源论坛:</td>
<td bgcolor="#FFFFFF" width="60%"><select name="source">
<option value="">┝ 请选择</option>
<% ForumList_Sel(0) %>
</select></td>
</tr>
<tr align="center">
<td bgcolor="#F8F8F8" width="40%">目标论坛:</td>
<td bgcolor="#FFFFFF" width="60%"><select name="target">
<option value="">┝ 请选择</option>
<% ForumList_Sel(0) %>
</select></td>
</tr>
</table>
<br>
<center>
<input type="submit" name="submit" value="提 交">
</center>
</form>
<br>
<br>
<%
End Sub
Sub ForumList_Sel(V)
Dim SQL,ii,RS,W
Set Rs=Team.Execute("Select ID,BBSname,Followid From "&IsForum&"Bbsconfig Where Followid="&V&" Order By SortNum")
Do While Not RS.Eof
W=" ┕ "
If V = 0 Then W="┝ "
Response.Write "<option value="&RS(0)&""
If Request("Action") = "Forumadd" Then
If RS(0) = int(Request("ID")) Then Response.Write " selected "
End If
If Request("Action") = "Manages" Then
If RS(0) = int(Request("RootID")) Then Response.Write " selected "
End If
Response.Write ">"&String(ii," ")&""&W&""&RS(1)&"</option>"
ii=ii+1
ForumList_Sel RS(0)
ii=ii-1
RS.MoveNext
loop
Rs.close: Set Rs = Nothing
End Sub
Dim ManageUsers,Moderuser
Sub ForumList(V)
Dim SQL,RS,Style,S,T,sty
Set Rs=team.Execute("Select ID,Hide,BbsName,SortNum,Board_Model From "&IsForum&"Bbsconfig Where Followid=0 Order By SortNum")
Do While Not RS.Eof
ManageUsers = team.GroupManages()
Moderuser = ""
If isarray(ManageUsers) Then
for u=0 to Ubound(ManageUsers,2)
If ManageUsers(2,u) = Rs(0) Then
Moderuser = Moderuser & ManageUsers(1,u) & " "
End If
Next
End If
Select Case RS(1)
Case 1
T="只对游客隐藏"
Case 2
T="隐藏"
Case Else
T="正常"
End Select
If RS(4)=1 then
sty = "<a href=?Action=ModelSet_1&ID="&RS(0)&" title=""点击转换显示模式"">简洁模式</a>"
Else
sty = "<a href=?Action=ModelSet_0&id="&rs(0)&" title=""点击转换显示模式"">正常模式</a>"
End If
Echo "<ul><li><a target=_blank href=../Default.asp?rootid="&RS(0)&"><b>"&RS(2)&"</b></a> - <span class=a4></a> - 显示顺序: <input type=text name=SortNum Value="&RS(3)&" Size=""1""><Input Name=UID value="&RS(0)&" type=hidden> - <a href=""?Action=Forumadd&ID="&RS(0)&""" title=""添加本分类或论坛的下级论坛"">[添加]</a> <a href=""?Action=Manages&ID="&RS(0)&""" title=""编辑本论坛设置"">[编辑]</a> <a href=""?Action=DelForum&ID="&RS(0)&""" title=""删除本论坛及其中所有帖子"">[删除]</a> - [状态: <b>"&T&"</b>]</a> - [显示模式: "&sty&" ] - [<a href=""?Action=SetModerators&ID="&RS(0)&""" title=""编辑本论坛版主"">版主 "&Moderuser&"</a>]</span>"
Call ForumList_1(Rs(0))
Echo " </li></ul> "
RS.MoveNext
loop
RS.Close:Set Rs = Nothing
End Sub
Sub ForumList_1(a)
Dim SQL,RS,Style,S,T,sty
Set Rs=team.Execute("Select ID,Hide,BbsName,SortNum,Board_Model,Followid From "&IsForum&"Bbsconfig Where Followid="&a&" Order By SortNum")
Do While Not RS.Eof
ManageUsers = team.GroupManages()
Moderuser = ""
If isarray(ManageUsers) Then
for u=0 to Ubound(ManageUsers,2)
If ManageUsers(2,u) = Rs(0) Then
Moderuser = Moderuser & ManageUsers(1,u) & " "
End If
Next
End If
Select Case RS(1)
Case 1
T="只对游客隐藏"
Case 2
T="隐藏"
Case Else
T="正常"
End Select
Echo "<ul><li>"&String(ii*2," ")& S &"<a target=_blank href=../Forums.asp?fid="&RS(0)&"><b>"&RS(2)&"</b></a> - <span class=a4></a> - 显示顺序: <input type=text name=SortNum Value="&RS(3)&" Size=""1""><Input Name=UID value="&RS(0)&" type=hidden> - <a href=""?Action=Forumadd&ID="&RS(0)&""" title=""添加本分类或论坛的下级论坛"">[添加]</a> <a href=""?Action=Manages&ID="&RS(0)&"&RootID="&RS(5)&""" title=""编辑本论坛设置"">[编辑]</a> <a href=""?Action=DelForum&ID="&RS(0)&""" title=""删除本论坛及其中所有帖子"">[删除]</a> - [状态: <b>"&T&"</b>]</a> - [<a href=""?Action=SetModerators&ID="&RS(0)&""" title=""编辑本论坛版主"">版主 "&Moderuser&"</a>]</span>"
Call ForumList_1(Rs(0))
Echo " </li></ul> "
RS.MoveNext
loop
RS.Close:Set Rs = Nothing
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -