📄 admin_boardset.asp
字号:
</tr>
<tr>
<td width="*" class="Tablebody1" valign="top" colspan=2><B>页面文字广告位内容</B> <br>支持HTML语法，每条广告一行，用回车分开。</td>
</tr>
<tr>
<td width="*" class="Tablebody1" colspan=2>
<textarea name="Forum_ads(16)" style="width:100%" rows="10"><%=Dvbbs.Forum_ads(16)%></textarea>
</td>
</tr>
<tr>
<td width="40%" class="Tablebody1"> </td>
<td width="60%" class="Tablebody1">
<div align="center">
<input type="submit" name="Submit" value="提 交">
</div>
</td>
</tr>
</table>
</form>
<%
End Sub
Sub savebmads()
If Not ChkBoardEditor(1) Then
Response.Redirect "showerr.asp?ErrCodes=<li>你的权限不足，不能进行该项管理设置。&action=OtherErr"
End If
Dim Forum_adsinfo
Dim iSetting
For i = 0 To 30
If Trim(Request.Form("Forum_ads("&i&")"))="" Then
iSetting=0
Else
iSetting=Replace(Trim(Request.Form("Forum_ads("&i&")")),"$","")
End If
If i = 0 Then
Forum_adsinfo = iSetting
Else
Forum_adsinfo = Forum_adsinfo & "$" & iSetting
End If
Next
sql = "update dv_board set board_ads='"&Replace(Forum_adsinfo,"'","''")&"' where boardid="&Dvbbs.boardid
Dvbbs.Execute(sql)
'Dvbbs.ReloadBoardInfo(Dvbbs.BoardID)
Response.Write Dvbbs.BoardType&"广告设置成功。"
Dvbbs.ReloadBoardCache Dvbbs.BoardID,Forum_adsinfo,"board_ads"
End Sub
'版主设置权限 Bloon
'Act 0=修改基本设置，1=修改广告
Function ChkBoardEditor(Act)
Dim Master,IsMaster
IsMaster = False
ChkBoardEditor = False
If Dvbbs.Master Then
ChkBoardEditor = True
Exit Function
End If
If Dvbbs.BoardMasterList<>"" or Not IsNull(Dvbbs.BoardMasterList) Then
Master = Split(Dvbbs.BoardMasterList,"|")(0)
End If
If Dvbbs.Membername = Master and Dvbbs.Boardmaster Then
IsMaster = True
End If
Select Case Act
Case 0
If Dvbbs.Board_Setting(33) = "1" and IsMaster Then
ChkBoardEditor = True
End If
Case 1
If Dvbbs.Board_Setting(35) = "1" Then
ChkBoardEditor = True
Else
If Dvbbs.Board_Setting(34) = "1" and IsMaster Then
ChkBoardEditor = True
End If
End If
End Select
End Function
Sub Editbminfo()
If Not IsObject(Conn) Then ConnectionDatabase
Dim Master_1
Response.Write "<form action =""admin_boardset.asp?action=saveditbm&boardid="
Response.Write Dvbbs.BoardID
Response.Write """ method=post>"
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "SELECT * FROM Dv_Board WHERE Boardid = " & Dvbbs.Boardid
Rs.Open Sql,Conn,1,1
If Rs.Eof And Rs.bof Then Response.Redirect "showerr.asp?ErrCodes=<li>您没有指定相应论坛ID，不能进行管理。&action=OtherErr"
If Not ChkBoardEditor(0) Then
Response.Redirect "showerr.asp?ErrCodes=<li>你的权限不足，不能进行该项管理设置。&action=OtherErr"
End If
%>
<Input type='hidden' name=editid value='<%=Dvbbs.BoardID%>'>
<TABLE cellPadding=1 cellSpacing=1 class=tableborder1 align=center style="width:100%;word-break:break-all;">
<tr>
<th colspan="3" height=22 class=tablebody2><b>基本信息管理 </b>
<tr>
<td height=22 class=tablebody1 align="center">论坛名称：</td>
<td class=tablebody1>
<input type="text" name="BoardType" size="30" value='<%=enfixjs(rs("BoardType"))%>'>
</td>
</tr>
<tr>
<td height=22 class=tablebody2 align="center">版面说明：</td>
<td class=tablebody1>
<textarea name="Readme" cols="80" rows="5"><%=enfixjs(rs("readme"))%></textarea>
</td>
</tr>
<tr>
<td height=22 class=tablebody2 align="center">版面规则：</td>
<td class=tablebody1>
<textarea name="Rules" cols="80" rows="5"><%=Server.Htmlencode(rs("Rules")&"")%></textarea>
</td>
</tr>
<tr>
<td height=22 class=tablebody1 align="center">版主修改：</td>
<td class=tablebody1>
<input type="text" name="boardmaster" size="50" value='<%=rs("boardmaster")%>'><BR>(多版主添加请用|分隔，如：沙滩小子|wodeail)
</td>
</tr>
<%If Cint(Dvbbs.Board_Setting(2))=1 Then%>
<tr>
<td height=22 class=tablebody1 align="center">认证用户：</td>
<td class=tablebody1>
<textarea name="boarduser" cols="80" rows="3"><%=replace(rs("boarduser")&"",",",chr(13)&chr(10))%></textarea><li>每个用<b>回车</b>分隔开
</td>
</tr>
<%End If%>
<tr>
<td height=22 class=tablebody1 align="center">使用设置模板<br>
相关模板中包含论坛颜色、图片
等设置</td>
<td class=tablebody1>
<%
Dim forum_sid,iCssName,iCssID,iStyleName
Dim Forum_cid,tRs
set tRs=dvbbs.execute("select forum_sid,forum_css from dv_setup")
Forum_sid=tRs(0)
Forum_cid=Split(tRs(1),"@@@")
iCssName=split(Forum_cid(0),"|||")
iCssID=split(Forum_cid(3),"|||")
tRs.close:Set tRs=Nothing
%>
<Select Size=1 Name="sid">
<%
For i=0 to UBound(iCssName)-1
Response.Write "<Option value="""&i&""""
If Rs("sid") = i Then Response.Write " selected "
Dvbbs.Name="StyleName"&iCssID(i)
iStyleName=Dvbbs.value
Response.Write ">"&iCssName(i)&" - "&iStyleName&"</Option>"
Next
%>
</Select>
</td>
</tr>
<tr>
<td height=22 class=tablebody2> </td>
<td class=tablebody2>
<input type="submit" name="Submit" value="提交">
</td>
</tr>
</table>
</form>
<%
rs.close
End Sub
Sub Savebminfo()
If Not ChkBoardEditor(0) Then
Response.Redirect "showerr.asp?ErrCodes=<li>你的权限不足，不能进行该项管理设置。&action=OtherErr"
End If
Dim Rname, i
Dim Readme, BoardType, Boardmaster, Sid, Boarduser, Rules
Readme = Dvbbs.CheckStr(Request.Form("readme"))
BoardType = Dvbbs.CheckStr(Request.Form("BoardType"))
Boardmaster = Dvbbs.CheckStr(Fixjs(Request.Form("boardmaster")))
Rules = Dvbbs.CheckStr(Request.Form("Rules"))
If Cint(Dvbbs.Board_Setting(2)) = 1 Then
Boarduser = Dvbbs.CheckStr(Request.Form("boarduser"))
Boarduser = Replace(boarduser,chr(13)&chr(10),",")
End If
Sid = Request("sid")
If IsNumeric(Sid) = 0 Or Sid = "" Then Response.Redirect "showerr.asp?ErrCodes=<li>非法的模板编号&action=OtherErr"
Sid=CLng(Sid)
If Readme = "" Then Response.Redirect "showerr.asp?ErrCodes=<li>请输入论坛简介。&action=OtherErr"
If BoardType = "" Then Response.Redirect "showerr.asp?ErrCodes=<li>请输入论坛名称。&action=OtherErr"
If Boardmaster = "" Then Response.Redirect "showerr.asp?ErrCodes=<li>请输入管理成员。&action=OtherErr"
Rname = split(Boardmaster,"|")
For i = 0 To Ubound(Rname)
Sql = "SELECT TOP 1 Username FROM [Dv_User] WHERE Username = '" & Replace(Rname(i),"'","") & "'"
Set Rs = Dvbbs.Execute(Sql)
If Rs.Eof And Rs.Bof Then
Response.Redirect "showerr.asp?ErrCodes=<li>论坛没有" & Replace(Rname(i), "'", "") & "这个用户，不能添加为版主&action=OtherErr"
Exit For
End If
Set Rs = Nothing
Next
Dim Classname, Titlepic
Set Rs = Dvbbs.Execute("SELECT Usertitle, GroupPic FROM [Dv_UserGroups] WHERE UserGroupID = 3")
If Not (Rs.Eof And Rs.Bof) Then
Classname = Rs(0)
Titlepic = Rs(1)
End If
For i = 0 To Ubound(Rname)
Sql = "SELECT Top 1 UserGroupID From [Dv_User] WHERE Username = '" & Replace(Rname(i), "'", "") & "'"
Set Rs = Dvbbs.Execute(Sql)
If Rs(0) > 3 Then Dvbbs.Execute("Update [Dv_user] Set UserGroupID = 3, Userclass = '" & Classname & "', Titlepic = '" & Titlepic & "' WHERE Username = '" & Replace(Rname(i), "'", "") & "'" )
Set Rs = Nothing
Next
Set Rs = Server.Createobject("Adodb.Recordset")
Sql = "SELECT * FROM Dv_Board WHERE Boardid = " & Dvbbs.BoardID
Rs.Open Sql,Conn,1,3
If Rs.Eof And Rs.Bof Then
Response.redirect "showerr.asp?ErrCodes=<li>您没有指定相应论坛ID，不能进行管理。&action=OtherErr"
End If
Rs("Boardmaster") = Boardmaster
Rs("Readme") = Readme
Rs("Rules") = Rules
Rs("BoardType") = BoardType
If Cint(Dvbbs.Board_Setting(2)) = 1 Then Rs("Boarduser") = Boarduser
Rs("Sid") = Clng(Sid)
Rs.Update
Response.Write "<p>论坛修改成功！"
'Dvbbs.ReloadBoardInfo(Dvbbs.BoardID)
'Dvbbs.ReloadBoardCache Dvbbs.BoardID,Boardmaster,8,0
'Dvbbs.ReloadBoardCache Dvbbs.BoardID,Readme,7,0
'Dvbbs.ReloadBoardCache Dvbbs.BoardID,BoardType,1,0
'Dvbbs.ReloadBoardCache Dvbbs.BoardID,Sid,15,0
'If Cint(Dvbbs.Board_Setting(2)) = 1 Then Dvbbs.ReloadBoardCache Dvbbs.BoardID,Boarduser,13,0
Dvbbs.ReloadBoardInfo(Dvbbs.BoardID)
End Sub
Function fixjs(Str)
If Str <>"" Then
str = replace(str,"\", "\\")
Str = replace(str, chr(34), "\""")
Str = replace(str, chr(39),"\'")
Str = Replace(str, chr(13), "\n")
Str = Replace(str, chr(10), "\r")
str = replace(str,"'", "'")
End If
fixjs=Str
End Function
Function enfixjs(Str)
If Str <>"" Then
Str = replace(str,"'", "'")
Str = replace(str,"\""" , chr(34))
Str = replace(str, "\'",chr(39))
Str = Replace(str, "\r", chr(10))
Str = Replace(str, "\n", chr(13))
Str = replace(str,"\\", "\")
End If
enfixjs=Str
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -