listnews.asp

zheng fu wang zhan gong neng qi quan

<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="char.inc" -->
<!--#include file="chkuser.asp" -->
<%
smallclassid=ChkRequest(request("smallclassid"),1)	'防注入
if smallclassid="" then
	Show_Err("未指定参数<br><br><a href='javascript:history.back()'>回去重来</a>")
	response.end
else
	if not IsNumeric(smallclassid) then
		Show_Err("非法参数<br><br><a href='javascript:history.back()'>回去重来</a>")
		response.end
	end if
end if
	dim E_smallclassname,E_BigClassName,typename,bigclassid,typeid
	set rs=server.createobject("adodb.recordset")
	sql="select * from "& db_SmallClass_Table &" where smallclassid="&smallclassid
	rs.open sql,conn,1,3
	E_smallclassname=rs("E_smallclassname")
	bigclassid=rs("bigclassid")
	master6=rs("smallclassma")
	if master6<>"" then
	smallmaster6=split(master6,"|")
	 for i=0 to ubound(smallmaster6)
		if request.cookies(eChuang)("username")=trim(smallmaster6(i)) then
		smallclassmaster6=true
		exit for
		else
		smallclassmaster6=false
		end if
	 next
	end if
	set rs1=server.createobject("adodb.recordset")
	sql1="select * from "& db_BigClass_Table &" where bigclassid="&rs("bigclassid")
	rs1.open sql1,conn,1,3
	E_BigClassName=rs1("E_BigClassName")
	typeid=rs1("typeid")
	master5=rs1("bigclassmaster")
	if master5<>"" then
	bigmaster5=split(master5,"|")
	 for i=0 to ubound(bigmaster5)
		if request.cookies(eChuang)("username")=trim(bigmaster5(i)) then
		bigclassmaster5=true
		exit for
		else
		bigclassmaster5=false
		end if
	 next
	end if
	set rs2=server.createobject("adodb.recordset")
	sql2="select * from "& db_Type_Table &" where typeid="&typeid
	rs2.open sql2,conn,1,3
	typename=rs2("typename")
	master4=rs2("typemaster")
	if master4<>"" then
	tmaster4=split(master4,"|")
	 for i=0 to ubound(tmaster4)
		if request.cookies(eChuang)("username")=trim(tmaster4(i)) then
		typemaster4=true
		exit for
		else
		typemaster4=false
		end if
	 next
	end if
	rs2.close
	set rs2=nothing
	rs1.close
	set rs1=nothing
	rs.close
	set rs=nothing
	if typemaster4=true or request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="check" or bigclassmaster5=true or smallclassmaster6=true or request.cookies(eChuang)("key")="selfreg" then
	
	dim jingyong
	set rs=server.createobject("adodb.recordset")
	sql="select * from "& db_User_Table &" where  "& db_User_Name &"='"&request.cookies(eChuang)("username")&"'"
	rs.open sql,ConnUser,1,3
	jingyong=rs("jingyong")
	rs.close
	set rs=nothing
	
	if request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="check" or request.cookies(eChuang)("key")="bigmaster" or request.cookies(eChuang)("key")="smallmaster" or (request.cookies(eChuang)("key")="selfreg" and jingyong=0) or request.cookies(eChuang)("key")="typemaster" then%>
	<%
	PageShowSize = 10            '每页显示多少个页
	MyPageSize   = 16           '每页显示多少条文章
		
	If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then
	MyPage=1
	Else
	MyPage=Int(Abs(Request("page")))
	End if
	
	
	set rs=server.CreateObject("ADODB.RecordSet")
	if request.cookies(eChuang)("KEY")="super" or request.cookies(eChuang)("key")="check" or request.cookies(eChuang)("key")="bigmaster" or request.cookies(eChuang)("key")="typemaster" then
	rs.Source="select * from "& db_News_Table &" where smallclassid=" & smallclassid & " order by NewsID desc"
	end if
	if request.cookies(eChuang)("key")="selfreg" then
	rs.Source="select * from "& db_News_Table &" where smallclassid=" & smallclassid & " and editor='" & request.cookies(eChuang)("username") & "' order by NewsID desc"
	end if
	if request.cookies(eChuang)("key")="smallmaster" then
		if smallmana=1 then
	rs.Source="select * from "& db_News_Table &" where smallclassid=" & smallclassid & " order by NewsID desc"
		else
	rs.Source="select * from "& db_News_Table &" where smallclassid=" & smallclassid & " and editor='" & request.cookies(eChuang)("username") & "' order by NewsID desc"
		end if
	end if
	rs.Open rs.Source,conn,3,1
	
	If Not rs.eof then
	rs.PageSize     = MyPageSize
	MaxPages         = rs.PageCount
	rs.absolutepage = MyPage
	total            = rs.RecordCount
	%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
<title><%=copyright%><%=version%>&nbsp;<%=ver%> - 管理文章_建站铺修正版_bbs.jzpu.com</title>
</head>
<body topmargin="0"><!--#include file=Admin_Top.asp-->
<div align="center">
<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFDFBF" width="100%" id="AutoNumber1">
<tr class="TDtop">
  <td colspan=8 height="20" align="left" ><a href=E_TypeManage.asp>全部总栏</a></td>
</tr>
<tr class="TDtop1">
    <td colspan=8 width="100%" height="30" align="left" >&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src=images/menu1.gif><b><a href="E_BigClassManage.asp?typeid=<%=typeid%>"><font color=red><%=typename%></font></a></b>&nbsp;&nbsp;&nbsp;&nbsp;其他总栏：
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1 ="SELECT  * From "& db_Type_Table &" where typeid<>"&typeid&" order by typeorder"
RS1.open sql1,Conn,3,3
do while not rs1.EOF
master1=rs1("typemaster")
if master1<>"" then
tmaster1=split(master1,"|")
 for i=0 to ubound(tmaster1)
	if request.cookies(eChuang)("username")=trim(tmaster1(i)) then
	typemaster1=true
	exit for
	else
	typemaster1=false
	end if
 next
end if
if typemaster1=true or request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="check" or request.cookies(eChuang)("key")="selfreg" then

%><a href=E_BigClassManage.asp?typeid=<%=rs1("typeid")%>><%=rs1("typename")%></a>
<%end if
rs1.movenext
loop
rs1.close
set rs1=nothing%>
      <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src=images/menu1.gif><b><a href="E_SmallClassManage.asp?bigclassid=<%=bigclassid%>"><font color=red><%=E_BigClassName%></font></a></b>
      &nbsp;&nbsp;&nbsp;&nbsp;其他大类：
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1 ="SELECT  * From "& db_BigClass_Table &" where typeid="&typeid&" and bigclassid<>"&bigclassid&" order by bigclassorder"
RS1.open sql1,Conn,3,3
do while not rs1.EOF
master=rs1("bigclassmaster")
if master<>"" then
bigmaster=split(master,"|")
 for i=0 to ubound(bigmaster)
	if request.cookies(eChuang)("username")=trim(bigmaster(i)) then
	bigclassmaster=true
	exit for
	else
	bigclassmaster=false
	end if
 next
end if
if (bigclassmaster=true and request.cookies(eChuang)("key")="bigmaster") or request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="check" or (request.cookies(eChuang)("key")="typemaster" and typemaster4=true) or request.cookies(eChuang)("key")="selfreg" then
%><a href=E_SmallClassManage.asp?bigclassid=<%=rs1("bigclassid")%>><%=rs1("E_BigClassName")%></a>
<%end if
rs1.movenext
loop
rs1.close
set rs1=nothing%>
      <br>
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src=images/menu1.gif><b><a href="listnews.asp?smallclassid=<%=smallclassid%>"><font color=red><%=E_smallclassname%></font></a></b>
      &nbsp;&nbsp;&nbsp;&nbsp;其他小类：
<%if request.cookies(eChuang)("key")="super" or request.cookies(eChuang)("key")="check" or request.cookies(eChuang)("key")="typemaster" or request.cookies(eChuang)("key")="bigmaster" or request.cookies(eChuang)("key")="selfreg" then
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1 ="SELECT  * From "& db_SmallClass_Table &" where bigclassid="&bigclassid&" and smallclassid<>"&smallclassid&" order by smallclassorder"
RS1.open sql1,Conn,3,3
do while not rs1.EOF
%><a href=ListNews.asp?SmallClassID=<%=rs1("smallclassid")%>><%=rs1("E_smallclassname")%></a>
<%rs1.movenext
loop
rs1.close
set rs1=nothing
else
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1 ="SELECT * From "& db_SmallClass_Table &" where smallclassid<>"&smallclassid&" order by SmallClassorder"
RS1.open sql1,Conn,3,3
do while not rs1.EOF
master2=rs1("smallclassma")
if master2<>"" then
smallmaster=split(master2,"|")
 for i=0 to ubound(smallmaster)
	if request.cookies(eChuang)("username")=trim(smallmaster(i)) then
	smallclassmaster=true
	exit for
	else
	smallclassmaster=false
	end if
 next
end if
if smallclassmaster=true then
%><a href=listnews.asp?smallclassid=<%=rs1("smallclassid")%>><%=rs1("E_smallclassname")%></a>
<%end if
rs1.movenext
loop
rs1.close
set rs1=nothing