admin_boardsetting.asp

品泡女人香XI8.NET文章管理系统的源码

 <input type="radio" name="Board_Setting(59)" value="2"
<%
If Board_Setting(59)="2" Then
%>
 checked 
 <%
 End If
 %>
 >&nbsp;显示半身
 <input type="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=Forumrow><a href=# onclick="helpscript(xx9);return false;" class="helplink"><img src="images/manage/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=Forumrow>
<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=Forumrow><U>专题名称:</U></td>
<td width="35%" class=Forumrow>
<input type=text size=30 name="BoardTopic" value="<%=Server.Htmlencode(BoardTopic(ii))%>"></td>
<td width="15%" class=Forumrow><U>相应显示图标：</U></td>
<td width="35%" class=Forumrow>
<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=Forumrow></td>
</tr>
<%Next%>
<input type=hidden value="<%=ii%>" name="BoardTopicNum">
<tr>
<td width="15%" class=Forumrow><U>添加专题:</U></td>
<td width="35%" class=Forumrow>
<input type=text size=30 name="BoardTopic" value=""></td>
<td width="15%" class=Forumrow><U>相应显示图标：</U></td>
<td width="35%" class=Forumrow>
<input type=text size=30 name="BoardTopicImg" value=""></td>
<td class=Forumrow></td>
</tr>
<tr>
<td colspan=5 class=ForumRowHighlight>
<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" 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
	ii=0
	i=0
	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
	For i = 0 To 70
		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 = 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
select case request("savetype")
'当前版面
case "0"
	Dvbbs.Execute("update dv_board set board_setting='"&iboard_setting&"' where boardid="&Request("editid"))
	Dvbbs.ReloadBoardInfo(Request("editid"))
	upBoardid=" and boardid="&Request("editid")
'所有版面
case "1"
	Dvbbs.Execute("update dv_board set board_setting='"&iboard_setting&"'")
	Forum_Boards=Split(Dvbbs.CacheData(27,0),",")
	For i=0 To Ubound(Forum_Boards)
		Dvbbs.ReloadBoardInfo(Forum_Boards(i))
	Next
	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))&")"
	Forum_Boards=Split(Dvbbs.CacheData(27,0),",")
	For i=0 To Ubound(Forum_Boards)
		Dvbbs.ReloadBoardInfo(Forum_Boards(i))
	Next
'相同分类下所有版面（包括分类）
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))&")"

	Forum_Boards=Split(Dvbbs.CacheData(27,0),",")
	For i=0 To Ubound(Forum_Boards)
		Dvbbs.ReloadBoardInfo(Forum_Boards(i))
	Next
'同分类同级别版面
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))&")"
	Forum_Boards=Split(Dvbbs.CacheData(27,0),",")
	For i=0 To Ubound(Forum_Boards)
		Dvbbs.ReloadBoardInfo(Forum_Boards(i))
	Next
End Select

If BoardTopicNum>ii Then
	Dvbbs.Execute("update Dv_Topic set Mode=0 where Mode >= "&ii+1&" "&upBoardid&" ")
End If

dv_suc("设置成功。<a href=admin_boardsetting.asp?editid="&request("editid")&">返回版面高级设置</a>")
End If
End sub
%>