boardsetting.asp

公司企业网站管理系统全站源码,用于企业内部对网站的管理

<td colspan=2 class=td1>
<input type=radio class="radio" name="Board_Setting(59)" value="0"
<%
If Board_Setting(59)="0" Then
%>
 checked 
 <%
 End If
 %>
 >&nbsp;显示全身
<input type=radio class="radio" name="Board_Setting(59)" value="1"
<%
If Board_Setting(59)="1" Then
%>
 checked 
 <%
 End If
 %>
 >&nbsp;显示脸
 <input type=radio class="radio" name="Board_Setting(59)" value="2"
<%
If Board_Setting(59)="2" Then
%>
 checked 
 <%
 End If
 %>
 >&nbsp;显示半身
 <input type=radio class="radio" name="Board_Setting(59)" value="3"
<%
If Board_Setting(59)="3" Then
%>
 checked 
 <%
 End If
 %>
 >&nbsp;不显示（显示头像）
</td>
<input type="hidden" id="xx9" value="<b>用户至少上传文件个数</b><br><li>当用户至少上传文件个数达到此设置时，才能拥有下载权限！<li>不限制设置为0">
<td class=td1><a href=# onclick="helpscript(xx9);return false;" class="helplink"><img src="skins/images/help.gif" border=0 title="点击查阅管理帮助！"></a></td>
</tr>
<tr><th height="25" colspan="5" id=tabletitlelink align=left>  &nbsp;<a name="setting8"></a>论坛专题分类相关设置[<a href="#top">顶部</a>]</th></tr>
<tr><td colspan="5" class=td1>
<li>允许发表专题权限，请到相应用户组发帖权限中设置；
<li>专题栏目可以添加，修改；
<li>注意删除专题同时，会将最后专题的所有文章更新为普通主题。</td></tr>
<%
Dim BoardTopic,BoardTopicImg,ii
BoardTopic=Split(Board_Setting(48),"$$")
BoardTopicImg=Split(Board_Setting(49),"$$")
For ii=0 to Ubound(BoardTopic)-1
%>
<tr>
<td width="15%" class=td1><U>专题名称</U></td>
<td width="35%" class=td1>
<input type=text size=30 name="BoardTopic" value="<%=Server.Htmlencode(BoardTopic(ii))%>"></td>
<td width="15%" class=td1><U>相应显示图标</U></td>
<td width="35%" class=td1>
<input type=text size=30 name="BoardTopicImg" value="<%=BoardTopicImg(ii)%>">
<%
If BoardTopicImg(ii)<>"" and Instr(BoardTopicImg(ii),".gif") Then Response.Write "<img src=../"&BoardTopicImg(ii)&" border=0>"
%>
</td>
<td class=td1>&nbsp;</td>
</tr>
<%Next%>
<input type=hidden value="<%=ii%>" name="BoardTopicNum">
<tr>
<td width="15%" class=td1><U>添加专题</U></td>
<td width="35%" class=td1>
<input type=text size=30 name="BoardTopic" value=""></td>
<td width="15%" class=td1><U>相应显示图标</U></td>
<td width="35%" class=td1>
<input type=text size=30 name="BoardTopicImg" value=""></td>
<td class=td1>&nbsp;</td>
</tr>
<tr>
<td colspan=5 class=td2>
<div align="center"> 
<input type=hidden value="<%=Board_Setting(20)%>" name="Board_Setting(20)">
<input type=hidden value="<%=Board_Setting(46)%>" name="Board_Setting(46)">
<input type=hidden value="<%=Board_Setting(47)%>" name="Board_Setting(47)">
<input type="submit" class="button" name="Submit" value="提 交">
</div>
</td>
</tr>
</form>
</table>
<%
end sub

sub saveconst()
if not isnumeric(request("editid")) then
Errmsg=ErrMsg + "<BR><li>错误的版面参数"
dvbbs_error()
exit sub
else
Dim iboard_setting,isetting
Dim BoardTopic,BoardTopicImg,TempStr,ii,BoardTopicNum
Dim DownConfirm,ViewConfirm,SuperBoardSetting,i
	ii=0
	i=0
	If Request.Form("Board_Setting(62)")="" Or Not IsNumeric(Request.Form("Board_Setting(62)")) Then
		Errmsg=ErrMsg + "<BR><li>设置的金币数有误。"
		dvbbs_error()
		exit sub
	End If
	If Request.Form("Board_Setting(63)")="" Or Not IsNumeric(Request.Form("Board_Setting(63)")) Then
		Errmsg=ErrMsg + "<BR><li>设置的点券数有误。"
		dvbbs_error()
		exit sub
	End If
	If Request.Form("Board_Setting(64)")="" Or Not IsNumeric(Request.Form("Board_Setting(64)")) Then
		Errmsg=ErrMsg + "<BR><li>设置的有效月份数有误。"
		dvbbs_error()
		exit sub
	End If
	If Clng(Request.Form("Board_Setting(62)"))>0 Or Clng(Request.Form("Board_Setting(63)"))>0 Then
		If Clng(Request.Form("Board_Setting(64)"))<1 Or Clng(Request.Form("Board_Setting(64)")) > 999 Then
			Errmsg=ErrMsg + "<BR><li>设置的有效月份数有误。"
			dvbbs_error()
			exit sub
		End If
	End If
	If (Clng(Request.Form("Board_Setting(62)"))>0 Or Clng(Request.Form("Board_Setting(63)"))>0) And Clng(Request.Form("Board_Setting(64)"))>0 Then
		SuperBoardSetting = 1
	Else
		If Request.Form("Board_Setting(2)")="" Then
			SuperBoardSetting = 0
		Else
			SuperBoardSetting = Request.Form("Board_Setting(2)")
		End If
	End If
	For Each TempStr in Request.Form("Board_Setting(54)")
		i=i+1
		ViewConfirm=ViewConfirm&TempStr
		If i<>Request.Form("Board_Setting(54)").count Then
		ViewConfirm=ViewConfirm&"|"
		End If
	Next
	i=0
	If not ISNumeric(Replace(ViewConfirm,"|","")) or Request.Form("Board_Setting(54)").count<>9 Then
		Errmsg=ErrMsg + "<BR><li>下载附件参数有错误，提交被中止。"
		dvbbs_error()
		exit sub
	End if
	For Each TempStr in Request.Form("Board_Setting(55)")
		i=i+1
		DownConFirm=DownConFirm&TempStr
		If i<>Request.Form("Board_Setting(55)").count Then
		DownConFirm=DownConFirm&"|"
		End If
	Next
	i=0
	'If not ISNumeric(Replace(DownConFirm,"|","")) or Request.Form("Board_Setting(55)").count<>9 Then
	'	Errmsg=ErrMsg + "<BR><li>下载附件参数有错误，提交被中止。"
	'	dvbbs_error()
	'	exit sub
	'End if
	
	IF Request("BoardTopicNum")<>"" and Isnumeric(Request("BoardTopicNum")) Then
	BoardTopicNum=Request("BoardTopicNum") 
	Else
	BoardTopicNum=0
	End If
	For Each TempStr in Request.form("BoardTopic")
		If TempStr<>"" Then 
			BoardTopic=BoardTopic&TempStr&"$$"
			ii=ii+1
		End If
	Next
	TempStr=""
	For Each TempStr in Request.form("BoardTopicImg")
			BoardTopicImg=BoardTopicImg&TempStr&"$$"
	Next
	TempStr=""
	If ii>99 Then
		Errmsg=ErrMsg + "<BR><li>专题栏目数目在１００以内。"
		dvbbs_error()
		exit sub
	End If
	Dim setingdata,j
	'锁定多少天前的帖子判断，添加Board_Setting(71) 2004-9-16 Dv.Yz
	For i = 0 To 71
		If Trim(request.Form("Board_Setting("&i&")"))="" Or i=22 Then
			'Response.Write "Board_Setting("&i&")<br>"
			isetting=0
			If i=22 Then
				isetting=""
				For j=0 to  23
					If isetting="" Then
						If Request.form("Board_Setting(22)"&j)="1" Then
							isetting="1"
						Else
							isetting="0"
						End If
					Else
						If Request.form("Board_Setting(22)"&j)="1" Then
							isetting=isetting&"|1"
						Else
							isetting=isetting&"|0"
						End If
					End If
				Next
			End If
		Else
			isetting=Replace(Trim(request.Form("Board_Setting("&i&")")),",","")
		End If
		If i = 0 Then
			iboard_Setting = isetting
		ElseIf i=2 Then
			iboard_Setting = iboard_Setting & "," & SuperBoardSetting
		ElseIf i = 48 Then
			iboard_Setting = iboard_Setting & "," & BoardTopic
		ElseIf i = 49 Then
			iboard_Setting = iboard_Setting & "," & BoardTopicImg
		ElseIf i=54 Then
			iboard_Setting = iboard_Setting & "," & ViewConfirm
		ElseIf i=55 Then 
			iboard_Setting = iboard_Setting & "," & DownConFirm
		Else
			iboard_Setting = iboard_Setting & "," & isetting
		End If
	Next

Dim FoundCKBoard
FoundCKBoard=False
For i=0 to UBound(Dvbbs.Forum_Setting)
	If request.Form("CK_Board_Setting("&i&")")<>"" Then
		FoundCKBoard=True
		Exit For
	End If
Next

Dim Forum_Boards,upBoardid,upid,temprs,rs
select case request("savetype")
'当前版面
case "0"
	Dvbbs.Execute("update dv_board set board_setting='"&iboard_setting&"' where boardid="&Request("editid"))
	upBoardid=" and boardid="&Request("editid")
'所有版面
case "1"
	Dvbbs.Execute("update dv_board set board_setting='"&iboard_setting&"'")
	upBoardid=""
'相同分类下所有版面（不包括分类）
case "2"
	set rs=Dvbbs.Execute("select rootid from dv_board where boardid="&request("editid"))
	if not rs.eof then
		Dvbbs.Execute("update dv_board set board_setting='"&iboard_setting&"' where (Not ParentID=0) and rootid="&rs(0))
		Set temprs=Dvbbs.Execute("Select boardid from Dv_board where (Not ParentID=0) and rootid="&rs(0))
		if not temprs.eof then
			upid=temprs.GetString(,, "",",","")
		end if
		temprs.close:Set temprs=Nothing
	end if
	rs.close:set rs=nothing
	upBoardid=" and boardid in ("&left(upid,(len(upid)-1))&")"
'相同分类下所有版面（包括分类）
case "3"
	set rs=Dvbbs.Execute("select rootid from dv_board where boardid="&request("editid"))
	if not rs.eof then
		Dvbbs.Execute("update dv_board set board_setting='"&iboard_setting&"' where rootid="&rs(0))
		Set temprs=Dvbbs.Execute("select boardid from dv_board where rootid="&rs(0))
		if not temprs.eof then
			upid=temprs.GetString(,, "",",","")
		end if
		temprs.close:Set temprs=Nothing
	end if
	rs.close:set rs=nothing
	upBoardid=" and boardid in ("&left(upid,(len(upid)-1))&")"

'同分类同级别版面
case "4"
	set rs=Dvbbs.Execute("select rootid,ParentStr,ParentID from dv_board where boardid="&request("editid"))
	if not rs.eof then
		Dvbbs.Execute("update dv_board set board_setting='"&iboard_setting&"' where rootid="&rs(0)&" and ParentID="&rs(2)&" and ParentStr='"&rs(1)&"'")
		Set temprs=Dvbbs.Execute("select boardid from dv_board where rootid="&rs(0)&" and ParentID="&rs(2)&" and ParentStr='"&rs(1)&"'")
		if not temprs.eof then
			upid=temprs.GetString(,, "",",","")
		end if
		temprs.close:Set temprs=Nothing
	end if
	rs.close:set rs=nothing
	upBoardid=" and boardid in ("&left(upid,(len(upid)-1))&")"
End Select
If BoardTopicNum>ii Then
	Dvbbs.Execute("update Dv_Topic set Mode=0 where Mode >= "&ii+1&" "&upBoardid&" ")
End If
ReloadBoardCache()
dv_suc("设置成功。<a href=boardsetting.asp?editid="&request("editid")&">返回版面高级设置</a>")
End If
End Sub
Sub ReloadBoardCache()
	Dim Board
	Dvbbs. LoadBoardList()
	For Each board in Application(Dvbbs.CacheName&"_boardlist").documentElement.selectNodes("board/@boardid")
		Dvbbs.LoadBoardData(board.text)
	Next
End Sub
%>