?? 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
%>
> 顯示全身
<input type=radio class="radio" name="Board_Setting(59)" value="1"
<%
If Board_Setting(59)="1" Then
%>
checked
<%
End If
%>
> 顯示臉
<input type=radio class="radio" name="Board_Setting(59)" value="2"
<%
If Board_Setting(59)="2" Then
%>
checked
<%
End If
%>
> 顯示半身
<input type=radio class="radio" name="Board_Setting(59)" value="3"
<%
If Board_Setting(59)="3" Then
%>
checked
<%
End If
%>
> 不顯示（顯示頭像）
</td>
<input type="hidden" id="xx9" value="<b>用戶至少上傳文件個數(shù)</b><br><li>當(dāng)用戶至少上傳文件個數(shù)達(dá)到此設(shè)置時，才能擁有下載權(quán)限！<li>不限制設(shè)置為0">
<td class=td1><a href=# onclick="helpscript(xx9);return false;" class="helplink"><img src="skins/images/help.gif" border=0 title="點(diǎn)擊查閱管理幫助！"></a></td>
</tr>
<tr><th height="25" colspan="5" id=tabletitlelink align=left> <a name="setting8"></a>論壇專題分類相關(guān)設(shè)置[<a href="#top">頂部</a>]</th></tr>
<tr><td colspan="5" class=td1>
<li>允許發(fā)表專題權(quán)限，請到相應(yīng)用戶組發(fā)帖權(quán)限中設(shè)置；
<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>相應(yīng)顯示圖標(biāo)</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> </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>相應(yīng)顯示圖標(biāo)</U></td>
<td width="35%" class=td1>
<input type=text size=30 name="BoardTopicImg" value=""></td>
<td class=td1> </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>錯誤的版面參數(shù)"
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>設(shè)置的金幣數(shù)有誤。"
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>設(shè)置的點(diǎn)券數(shù)有誤。"
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>設(shè)置的有效月份數(shù)有誤。"
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>設(shè)置的有效月份數(shù)有誤。"
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>下載附件參數(shù)有錯誤，提交被中止。"
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>下載附件參數(shù)有錯誤，提交被中止。"
' 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>專題欄目數(shù)目在１００以內(nèi)。"
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")
'當(dāng)前版面
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("設(shè)置成功。<a href=boardsetting.asp?editid="&request("editid")&">返回版面高級設(shè)置</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
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -