admin_boardset.asp

功能强大的bbs

<td width="60%" class="Tablebody1"> 
<input type="text" name="fixupUrl" size="35" value="<%=Dvbbs.Forum_ads(9)%>">
</td>
</tr>
<tr> 
<td width="40%" class="Tablebody1"><B>论坛首页右下固定广告图片宽度</B></font></td>
<td width="60%" class="Tablebody1"> 
<input type="text" name="fixup_w" size="3" value="<%=Dvbbs.Forum_ads(10)%>">&nbsp;象素
</td>
</tr>
<tr> 
<td width="40%" class="Tablebody1"><B>论坛首页右下固定广告图片高度</B></font></td>
<td width="60%" class="Tablebody1"> 
<input type="text" name="fixup_h" size="3" value="<%=Dvbbs.Forum_ads(11)%>">&nbsp;象素
</td>
</tr>
<input type=hidden name="Board_fixupFlag" value=0>
<tr> 
<td width="40%" class="Tablebody1">&nbsp;</td>
<td width="60%" class="Tablebody1"> 
<div align="center"> 
<input type="submit" name="Submit" value="提 交">
</div>
</td>
</tr>
</table>
</form>
<%
end If
End Sub
Sub savebmads()
Dim master_1
Dim chkedit
Dim Forum_adsinfo
Set Rs=Dvbbs.Execute("select boardmaster from dv_board where boardid="&request("boardid"))
If rs.eof and rs.bof Then Response.redirect "showerr.asp?ErrCodes=<li>您没有指定相应论坛ID，不能进行管理。&action=OtherErr"
master_1=split(rs(0),"|")
If Dvbbs.Board_Setting(35)=1 Then
	chkedit=True
Else
	If Dvbbs.Board_Setting(34)=0 Then
		chkedit=False
	ElseIf Dvbbs.Board_Setting(34)=1 and Dvbbs.membername=master_1(0) Then
		chkedit=true
	Else
		chkedit=False
	End If
End If
If Dvbbs.master Then
	chkedit=true
end if
If chkedit=false Then
	Response.redirect "showerr.asp?ErrCodes=<li>本项功能为主版主专用。&action=OtherErr"
Else
	Forum_adsinfo=request("index_ad_t") & "$" & request("index_ad_f") & "$" & request("index_moveFlag") & "$" & request("MovePic") & "$" & request("MoveUrl") & "$" & request("move_w") & "$" & request("move_h") & "$" & request("Board_moveFlag") & "$" & request("fixupPic") & "$" & request("FixupUrl") & "$" & request("Fixup_w") & "$" & request("Fixup_h") & "$" & request("Board_fixupFlag") & "$" & request("index_fixupFlag")
	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&"广告设置成功。"
End If
End Sub

Sub editbminfo()
If Not IsObject(Conn) Then ConnectionDatabase
Dim master_1
%>
<form action ="admin_boardset.asp?action=saveditbm&boardid=<%=Dvbbs.BoardID%>" 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 Dvbbs.master then
	If Dvbbs.Board_Setting(33)=1 Then
		master_1=rs("boardmaster")
		If Not IsNull(master_1) Then
			master_1=split(master_1,"|")
			If Dvbbs.membername<>master_1(0) Then Response.redirect "showerr.asp?ErrCodes=<li>本项功能为主版主专用。&action=OtherErr"
		Else
			Response.redirect "showerr.asp?ErrCodes=<li>本项功能为主版主专用。&action=OtherErr"
		End If
	Else
		Response.redirect "showerr.asp?ErrCodes=<li>您未有修改设置的权限。&action=OtherErr"
	End If
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="3"><%=enfixjs(rs("readme"))%></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> 
        <select name=sid>
<%	
	Dim rs_c
	set rs_c= server.CreateObject ("adodb.recordset")
	sql = "select * from dv_style"
	rs_c.open sql,conn,1,1
	if rs_c.eof and rs_c.bof then
	response.write "<option value=>请先添加模板"
	else
	do while not rs_c.EOF
%>
<option value=<%=rs_c("id")%> <% if cint(rs("sid")) = rs_c("id") then%> selected <%end if%>><%=rs_c("stylename")%> 
<%
	rs_c.MoveNext 
	loop
	end if
	rs_c.Close 
	Set rs_c=Nothing
%>
</select>
      </td>
    </tr>
    <tr> 
      <td height=22 class=tablebody2>&nbsp;</td>
      <td  class=tablebody2> 
        <input type="submit" name="Submit" value="提交">
      </td>
    </tr>
  </table>
</form>
<%
rs.close
End Sub 
Sub savebminfo()
If Not IsObject(Conn) Then ConnectionDatabase
dim rname,i
dim readme,BoardType,boardmaster,sid,boarduser
readme=Dvbbs.checkStr(fixjs(Request.form("readme")))
BoardType=Dvbbs.checkStr(fixjs(Request.form("BoardType")))
boardmaster=Dvbbs.checkStr(fixjs(Request.form("boardmaster")))
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"
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 order by Minarticle desc")
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)=4 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="+Cstr(request("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("BoardType")=BoardType
If Cint(Dvbbs.Board_Setting(2))=1 Then Rs("boarduser")=boarduser
Rs("sid")=Clng(sid)
rs.Update 
rs.Close 
response.write "<p>论坛修改成功！"
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,"'", "&#39;")
	End If
	fixjs=Str
End Function
Function enfixjs(Str)
	If Str <>"" Then
		Str = replace(str,"&#39;", "'")
		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
%>