<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="char.inc"-->
<!--#include file="chkuser.asp" -->
<!--#include file="ChkManage.asp" -->
<!--#include file="ChkURL.asp"-->
<%
if not(request.cookies(eChsys)("ManageKEY")="super" or request.cookies(eChsys)("ManageKEY")="typemaster" or request.cookies(eChsys)("ManageKEY")="bigmaster") then
	Show_Err("对不起，您的后台管理权限不够操作！")
	response.end
else
	if request.cookies(eChsys)("ManageKEY")<>"bigmaster" then
		response.redirect "CheckNews1.asp"
		response.end
	end if
	%>
<html><head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
<title><%=copyright%><%=version%>&nbsp;<%=ver%> - 文章审核</title>
</head>
<body topmargin="0">

<br>
<div align="center">
<table border="1" width="100%" bgcolor="#FFFFFF" bgcolor="<%=border%>" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="<%=border%>">
<form method="POST" action="checknews1.asp">
<tr align="center">
	<td height="55" bgcolor="<%=m_top%>"><b>审 核 文 章</b></td>
</tr>
<tr bgcolor="#FFFFFF">
	<td align="center" height="197">
	<%
	set rs=server.CreateObject ("ADODB.RecordSet")
	rs.Source="select * from "& db_EC_BigClass_Table &" order by E_bigclassorder"
	rs.Open rs.source,conn,1,1
	%>
		<p>请选择文章大类：
		<select size="1" name="E_BigClassID" onMouseOver="window.status='在这里选择要审核的文章大类';return true;" onMouseOut="window.status='';return true;">
	<%if rs.EOF then %>
			<option value="">暂无任何类别</option>
	<%else
		if request.cookies(eChsys)("ManageKEY")="super" or request.cookies(eChsys)("ManageKEY")="check" or request.cookies(eChsys)("ManageKEY")="typemaster" then
			while not rs.EOF
				%>
			<option value='<%=rs("E_BigClassID")%>'><%=trim(rs("E_BigClassName"))%></option>
				<%
				rs.MoveNext
			wend
		else
			while not rs.EOF
				if instr(rs("BigClassMaster"),Session("UserName"))>0 then
					%>
			<option value='<%=rs("E_BigClassID")%>'><%=trim(rs("E_BigClassName"))%></option>
					<%
				end if
				rs.MoveNext
			wend
		end if
	end if
	%>
		</select>
		</p>
		<p></p>
		<p>&nbsp;</p>
	</td>
</tr>
<tr>
	<td align="center" height="55" bgcolor="<%=m_top%>">
		<input type="submit" value="  下一步>>  " name="B1" onMouseOver="window.status='按这个按钮继续下一步';return true;" onMouseOut="window.status='';return true;" title='按这个按钮继续下一步'>
	</td>
</tr>
</form>
</table>
</div>
</body>
</html>
<!--#include file="Admin_Bottom.asp"-->
<%
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
end if%>