<% Head() dim admin_flag admin_flag=",5," if not Dvbbs.master or instr(","&session("flag")&",",admin_flag)=0 then Errmsg=ErrMsg + "
  • 本页面为管理员专用，请登录后进入。
  • 您没有管理本页面的权限。" call dvbbs_error() else if request("action")="save" then call savegrade() else call grade() end if If founderr Then dvbbs_error() Footer() end if sub grade() dim sel %>
    用户积分设置
    说明：
    1、复选框中选择的为当前的使用设置模板，点击可查看该模板设置，点击别的模板直接查看该模板并修改设置。您可以将您下面的设置保存在多个论坛版面中
    2、您也可以将下面设定的信息保存并应用到具体的分论坛版面设置中，可多选
    3、如果您想在一个版面引用别的版面的配置，只要点击该版面名称，保存的时候选择要保存到的版面名称名称即可。
    4、默认模板中的积分设置为论坛所有页面（不包括具体的论坛版面）使用，如登录和注册的相关分值；具体的论坛版面可以有不同的积分设置，如发贴、删贴等，当然您也可以根据上面的设定方法设定所有版面的积分设置都是一样的。
    查看分版面积分设置，请选择左边下拉框相应版面  

    >论坛默认积分
    点击此处返回论坛默认积分设置，默认积分设置包含所有除包含具体版面内容（如发贴、回帖、精华等）以外的页面。
    版面积分设置保存选项
    请按 CTRL 键多选
    用户金钱设定
    注册金钱数
    登录增加金钱
    发帖增加金钱
    跟帖增加金钱
    精华增加金钱
    删帖减少金钱
    用户经验设定
    注册经验值
    登录增加经验值
    发帖增加经验值
    跟帖增加经验值
    精华增加经验值
    删帖减少经验值
    用户魅力设定
    注册魅力值
    登录增加魅力值
    发帖增加魅力值
    跟帖增加魅力值
    精华增加魅力值
    删帖减少魅力值
     
    <% end sub Sub savegrade() Dim Forum_user,iforum_setting,forum_setting Forum_user=request.form("wealthReg") & "," & request.form("wealthAnnounce") & "," & request.form("wealthReannounce") & "," & request.form("wealthDel") & "," & request.form("wealthLogin") & "," & request.form("epReg") & "," & request.form("epAnnounce") & "," & request.form("epReannounce") & "," & request.form("epDel") & "," & request.form("epLogin") & "," & request.form("cpReg") & "," & request.form("cpAnnounce") & "," & request.form("cpReannounce") & "," & request.form("cpDel") & "," & request.form("cpLogin") & "," & request.form("BestWealth") & "," & request.form("BestuserCP") & "," & request.form("BestuserEP") 'response.write Forum_user 'forum_info|||forum_setting|||forum_user|||copyright|||splitword|||stopreadme Set rs=Dvbbs.execute("select forum_setting from dv_setup") iforum_setting=split(rs(0),"|||") forum_setting=iforum_setting(0) & "|||" & iforum_setting(1) & "|||" & forum_user & "|||" & iforum_setting(3) & "|||" & iforum_setting(4) & "|||" & iforum_setting(5) forum_setting=dvbbs.checkstr(forum_setting) If request("getskinid")="1" Then sql = "update dv_setup set Forum_setting='"&forum_setting&"'" Dvbbs.Execute(sql) Dvbbs.Name="setup" Dvbbs.loadSetup() End If If request("getboard")<>"" Then sql = "update dv_board set board_user='"&Forum_user&"' where boardid in ("&request("getboard")&")" Dvbbs.Execute(sql) Dvbbs.ReloadBoardCache request("getboard") End If Dv_suc("论坛积分设置成功！") End Sub %>