admin_moderators.asp

此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.

<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<% if Session(strCookieURL & "Approval") = "15916941253" then %>
<!--#INCLUDE FILE="inc_functions.asp"-->
<!--#INCLUDE FILE="inc_top.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<TD width="70%" align="left" valign="top">
<TABLE border="0" width="85%" align=center>
  <TR>
    <TD width="33%" align="left" nowrap><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><a href="default.asp"><img src="<% =strImageURL %>icon_folder_open.gif" alt="返回论坛首页" border="0">&nbsp;<% =strForumTitle %></a>
<BR><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open.gif" border="0">&nbsp;<A href="admin_home.asp">论坛管理中心</A>
<BR><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open_topic.gif" border="0">&nbsp;斑竹设置
</FONT></TD>
  </TR>
</TABLE>
</TD>
</TR>
</TABLE>
<BR>
<%
	if request("Forum") = "" then
		txtMessage = "请任意选择一个论坛修改该论坛版主"
	else
		if request("userid") = "" then
			'txtMessage = "选择一名会员赋予或取消版主权力。粗黑体表示为现任版主"
			
			'## My message  :)
			txtMessage = "请任意选择一个论坛编辑该论坛版主。前面打勾为现任版主"
		else
			if Request("action") = "" then
				txtMessage = "修改此会员权力"
			else
				txtMessage = "修改成功！"
			end if
		end if
	end if
%>
<table border="0" width="<% Response.Write strTableWidth %>" align="center" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor="<% =strTableBorderColor %>">
<table border="0" width="100%" cellspacing="1" cellpadding="4">
  <tr>
    <td bgcolor="<% =strCategoryCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>" size"<% =strDefaultFontSize %>"><B>斑竹设置</B></font></td>
  </tr>
  <tr>
    <td bgcolor="<% =strForumCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% if txtMessage <> "" Then %><% ="&nbsp;" & txtMessage %><% End If %>
<%	'if Request("Forum") = "" then %>
<table border="0" cellspacing="1" cellpadding="3" align="left" width="100%">
  <tr valign="top">
	<td width="22%">
<table bgcolor="<%=strTableBorderColor%>" width="100%" cellspacing="1" cellpadding="3">
<%

		Dim strModAdminCategoryName : strModAdminCategoryName = "NA"
		Dim strModAdminForumName : strModAdminForumName = "NA"
		Dim intQsForumID : intQsForumID = Request("Forum")
		Dim intRsForumID : intRsForumID = ""
		Dim strRsMember, intRsMemberID
		
		If IsNumeric(intQsForumID) Then intQsForumID = CInt(intQsForumID)

		'## Forum_SQL
        '''''''Added by me
        strsql = "Select "&strTablePrefix&"CATEGORY.CAT_ID, "&strTablePrefix&"CATEGORY.CAT_NAME from "&strTablePrefix&"CATEGORY order by "&strTablePrefix&"CATEGORY.CAT_NAME asc"
		set drs = my_conn.execute(strsql)%>
        <tr><td bgcolor="<%=strForumCellColor%>"><font color="<%=strHeadFontColor%>" size="<%=strDefaultFontSize%>" face="<%=strDefaultFontFace%>"><a href="admin_moderators.asp?forum=-1">所有论坛板块</a></font></td></tr>
        <%Do until drs.eof
        strAddedCat_Name = drs("CAT_NAME")
        strAddedCat_Id   = drs("CAT_ID")
        %>
		<tr><td  bgcolor="<%=strHeadCellColor%>"><font color="<%=strHeadFontColor%>" size="<%=strDefaultFontSize%>" face="<%=strDefaultFontFace%>"><%=strAddedCat_Name%></font></td></tr>

        <%
		strSql = "SELECT " & strTablePrefix & "FORUM.CAT_ID, " & strTablePrefix & "FORUM.FORUM_ID, " & strTablePrefix & "FORUM.F_SUBJECT "
		strSql = strSql & " FROM " & strTablePrefix & "FORUM  WHERE "&strTablePrefix&"FORUM.CAT_ID="&strAddedCat_Id
		strSql = strSql & " ORDER BY " & strTablePrefix & "FORUM.CAT_ID ASC, " & strTablePrefix & "FORUM.F_SUBJECT ASC;"

		set rs = my_Conn.Execute(strSql)
		if drs.eof and drs.bof and rs.EOF and rs.BOF then
        response.write("没有任何论坛<br>")
        else
			do until rs.EOF
				intRsForumID = rs.Fields("FORUM_ID").Value
				If IsNumeric(intRsForumID) Then intRsForumID = CInt(intRsForumID)

				'## Check if Querystring and Recordset ForumID's are the same
				'## If true, then assign category and forum titles to variables
				If (intQsForumID = intRsForumID) Then
					strModAdminCategoryName = strAddedCat_Name
					strModAdminForumName = rs.Fields("F_SUBJECT").Value
				End If
				If (intQsForumID = -1) Then
					strModAdminCategoryName = "所有分类"
					strModAdminForumName = "所有论坛"
				End If
				%>
				<tr><td bgcolor="<%=strForumCellColor%>" onmouseover="bgColor='<%=strAltForumCellColor%>'" onmouseout="bgColor='<%=strForumCellColor%>'"><font size="<%=strDefaultFontSize%>"><a href="admin_moderators.asp?forum=<%=rs("FORUM_ID")%>"><%=rs("F_SUBJECT")%></a></td></tr>
				<%
				rs.MoveNext
			loop
        end if
        ''added
		drs.movenext
		loop
		set drs = nothing
		''Done changing
		%>
		</dl>
		</td></tr></table></td>
		<td>　</td>
		<td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
		<%

	'else
	if (Request("Forum") <> "") AND IsNumeric(Request("Forum")) then%>
<!--#include file="update_moderator.asp"-->
<%	else%>
<table bgcolor="<%=strTableBorderColor%>" cellspacing="1" cellpadding="2" width="100%">
<tr><td width="100%" bgcolor="<%=strHeadCellColor%>"><font color="<%=strHeadFontColor%>" size="<%=strDefaultFontSize%>" face="<%=strDefaultFontFace%>">选择版主</font></td></tr>
<tr>
<td bgcolor="<%=strForumCellColor%>" onmouseover="bgColor='<%=strAltForumCellColor%>'" onmouseout="bgColor='<%=strForumCellColor%>'"><font size="<%=strDefaultFontSize%>">

<%		response.write ("<p>请从论坛列表中选择一个板块。</p></td></tr></table>")
	end if
%>
    </font>
    </td></tr></table>
    </font></td>
  </tr>
</table>
    </td>
  </tr>
</table>
</table>
<!--#INCLUDE FILE="inc_footer.asp"-->
<% else %><%	Response.Redirect "admin_login.asp" %>
<% end iF %>