?? admin_grade.asp
字號:
<!--#include file=conn.asp-->
<!-- #include file="inc/const.asp" -->
<title><%=Forum_info(0)%>--管理頁面</title>
<link rel="stylesheet" href="forum_admin.css" type="text/css">
<meta NAME=GENERATOR Content="Microsoft FrontPage 3.0" CHARSET=GB2312>
<BODY leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<%
dim admin_flag
admin_flag="22"
if not master or instr(session("flag"),admin_flag)=0 then
Errmsg=Errmsg+"<br>"+"<li>本頁面為管理員專用，請<a href=admin_index.asp target=_top>登陸</a>后進入。<br><li>您沒有管理本頁面的權限。"
call dvbbs_error()
else
if request("action")="save" then
call savegrade()
elseif request("action")="add" then
call add()
elseif request("action")="savenew" then
call savenew()
elseif request("action")="del" then
call del()
else
call gradeinfo()
end if
conn.close
set conn=nothing
end if
sub gradeinfo()
%>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center>
<tr>
<td valign=top>
<B>相關組別ID信息</B>：<BR>
<%
set rs=conn.execute("select * from usergroups order by usergroupid")
do while not rs.eof
response.write "用戶組："&rs("title")&"，ID：<B>" & rs("usergroupid") & "</B><br>"
rs.movenext
loop
rs.close
set rs=nothing
%><BR>
相關用戶組如果無對應等級名稱，則注冊用戶自動按照文章升級<BR>
相關用戶組的等級名稱可以和用戶組名不一樣
</td>
<td width="50%" valign=top>
<B>在等級中設定用戶組有什么用？</B><BR>
一般來說，只有注冊用戶擁有等級，所以在等級中一般都設定用戶組ID為4對應注冊用戶組，如果設置成別的組ID，那么該用戶在升級到這個等級的同時也將自動歸入所設置的組<BR>
比如你新添加了一個用戶組，并且給予了這個用戶組某一些權限，那么你可以設置達到一定等級（帖子）的用戶自動更新到這個用戶組以使用這個用戶組的權限。<BR>如果您想某個等級的用戶不跟隨帖子數(shù)而上升等級，那么就把最少發(fā)貼設置為<B>-1</B>，一般為特殊用戶組需要這樣的設置，設置某個級別最少發(fā)貼為<B>-1</B>后，該級別的用戶將不能根據(jù)帖子增加而升級，別的用戶也不能自動升級到該級別，只有在用戶管理中方能更改其級別
</td>
</tr>
</table>
<form method="POST" action=admin_grade.asp?action=save>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr>
<th height="23" colspan="6" >用戶等級設定</th>
</tr>
<tr>
<td width="10%" class=forumHeaderBackgroundAlternate><b>等級<B></td>
<td width="25%" class=forumHeaderBackgroundAlternate><B>名稱</B></td>
<td width="15%" class=forumHeaderBackgroundAlternate><B>最少發(fā)貼</B></td>
<td width="25%" class=forumHeaderBackgroundAlternate><B>圖片</B></td>
<td width="15%" class=forumHeaderBackgroundAlternate><B>相關組ID</B></td>
<td width="10%" class=forumHeaderBackgroundAlternate><B>操作</B></td>
</tr>
<%
set rs=conn.execute("select * from usertitle order by minarticle,userclass desc")
do while not rs.eof
%>
<tr>
<td width="10%" class=Forumrow><input type=hidden value="<%=rs("usertitleid")%>" name="usertitleid"><input size=3 value="<%=rs("userclass")%>" name="userclass" type=text></td>
<td width="25%" class=Forumrow><input size=15 value="<%=rs("usertitle")%>" name="usertitle" type=text></td>
<td width="15%" class=Forumrow><input size=5 value="<%=rs("MinArticle")%>" name="minarticle" type=text></td>
<td width="25%" class=Forumrow><input size=15 value="<%=rs("titlepic")%>" name="titlepic" type=text></td>
<td width="15%" class=Forumrow><input size=5 value="<%=rs("usergroupid")%>" name="groupid" type=text></td>
<td width="10%" class=Forumrow><a href="?action=del&id=<%=rs("usertitleid")%>">刪除</a></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<tr>
<td width="100%" colspan=6 class=Forumrow>
<input type="submit" name="Submit" value="提 交">
</td>
</tr>
</table>
</form>
<%
end sub
sub savegrade()
Server.ScriptTimeout=99999999
dim usertitleid,iuserclass,usertitle,Minarticle,titlepic,groupid
for i=1 to request.form("usertitleid").count
usertitleid=replace(request.form("usertitleid")(i),"'","")
iuserclass=replace(request.form("userclass")(i),"'","")
usertitle=replace(request.form("usertitle")(i),"'","")
minarticle=replace(request.form("minarticle")(i),"'","")
titlepic=replace(request.form("titlepic")(i),"'","")
groupid=replace(request.form("groupid")(i),"'","")
if isnumeric(usertitleid) and isnumeric(iuserclass) and usertitle<>"" and isnumeric(minarticle) and titlepic<>"" and isnumeric(groupID) then
set rs=conn.execute("select * from usertitle where usertitleid="&usertitleID)
if rs("usertitle")<>trim(usertitle) or rs("titlepic")<>trim(titlepic) or rs("usergroupid")<>cint(groupid) then
conn.execute("update [user] set userclass='"&usertitle&"',titlepic='"&titlepic&"',usergroupid="&groupid&" where userclass='"&rs("usertitle")&"'")
end if
conn.execute("update usertitle set userclass="&iuserclass&",usertitle='"&usertitle&"',minarticle="&minarticle&",titlepic='"&titlepic&"',usergroupid="&groupid&" where usertitleid="&usertitleID)
end if
next
response.write "設置成功，請返回。"
set rs=nothing
end sub
sub add()
%>
<form method="POST" action=admin_grade.asp?action=savenew>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr>
<th colspan="2">添加新的用戶等級</th>
</tr>
<tr>
<td width="40%" class=forumrow><b>等級<B></td>
<td width="60%" class=forumrow><input size=30 name="userclass" type=text></td>
</tr>
<tr>
<td width="40%" class=forumrow><B>所屬用戶組</B></td>
<td width="60%" class=forumrow>
<select size=1 name="usergroupid">
<%
set rs=conn.execute("select * from usergroups order by usergroupid")
do while not rs.eof
%>
<option value="<%=rs("usergroupid")%>" <%if rs("usergroupid")=4 then%>selected<%end if%>><%=rs("title")%></option>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
</td>
</tr>
<tr>
<td width="40%" class=forumrow><B>名稱</B></td>
<td width="60%" class=forumrow><input size=30 name="usertitle" type=text></td>
</tr>
<tr>
<td width="40%" class=forumrow><B>最少發(fā)貼</B><BR>如果該等級是榮譽稱號或者管理身份，這里可以填寫-1，表示不跟隨帖子增長而升級</td>
<td width="60%" class=forumrow><input size=30 name="minarticle" type=text></td>
</tr>
<tr>
<td width="40%" class=forumrow><B>圖片</B></td>
<td width="60%" class=forumrow><input size=30 name="titlepic" type=text></td>
</tr>
<tr>
<td width="100%" colspan=2 class=forumrow>
<input type="submit" name="Submit" value="提 交">
</td>
</tr>
</table>
</form>
<%
end sub
sub savenew()
if request.form("userclass")="" then
Errmsg="<br><li>請輸入新的等級序號。"
call dvbbs_error()
exit sub
elseif not isnumeric(request.form("userclass")) then
Errmsg="<br><li>新的等級序號只能是數(shù)字。"
call dvbbs_error()
exit sub
end if
if request.form("minarticle")="" then
Errmsg="<br><li>請輸入新的等級需要文章數(shù)。"
call dvbbs_error()
exit sub
elseif not isnumeric(request.form("minarticle")) then
Errmsg="<br><li>新的等級文章數(shù)只能是數(shù)字。"
call dvbbs_error()
exit sub
end if
if request.form("titlepic")="" then
Errmsg="<br><li>請輸入新的等級圖片。"
call dvbbs_error()
exit sub
end if
if request.form("usertitle")="" then
Errmsg="<br><li>請輸入新的等級名稱。"
call dvbbs_error()
exit sub
end if
set rs = server.CreateObject ("Adodb.recordset")
sql="select * from usertitle where usertitle='"&request.form("usertitle")&"'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
rs.addnew
rs("userclass")=request.form("userclass")
rs("usertitle")=request.form("usertitle")
rs("minarticle")=request.form("minarticle")
rs("titlepic")=request.form("titlepic")
rs("usergroupid")=request.form("usergroupid")
rs.update
else
Errmsg="<br><li>該等級名稱已經(jīng)存在。"
call dvbbs_error()
exit sub
end if
rs.close
set rs=nothing
response.write "添加成功！建議您到更新用戶數(shù)據(jù)中進行更新操作！"
end sub
sub del()
Server.ScriptTimeout=99999999
dim minarticle,minuserclass
if isnumeric(request("id")) then
set rs=conn.execute("select * from usertitle where usertitleid="&request("id"))
minarticle=rs("minarticle")
minuserclass=rs("usertitle")
if minarticle=-1 then
set rs=conn.execute("select top 1 * from usertitle order by minarticle")
else
set rs=conn.execute("select top 1 * from usertitle where MinArticle<"&minarticle&" and not Minarticle=-1 order by minarticle desc")
end if
if not (rs.eof and rs.bof) then
conn.execute("update [user] set userclass='"&rs("usertitle")&"',titlepic='"&rs("titlepic")&"' where userclass='"&minuserclass&"'")
end if
conn.execute("delete from usertitle where usertitleid="&request("id"))
response.write "刪除成功！建議您到更新用戶數(shù)據(jù)中進行更新用戶等級操作。"
set rs=nothing
end if
end sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -