listnews.asp

完美政府版,正版网站解决方案

<!--#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 smallclassname,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
	smallclassname=rs("smallclassname")
	bigclassid=rs("bigclassid")
	master6=rs("smallclassma")
	if master6<>"" then
	smallmaster6=split(master6,"|")
	 for i=0 to ubound(smallmaster6)
		if request.cookies(Forcast_SN)("name")=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
	bigclassname=rs1("bigclassname")
	typeid=rs1("typeid")
	master5=rs1("bigclassmaster")
	if master5<>"" then
	bigmaster5=split(master5,"|")
	 for i=0 to ubound(bigmaster5)
		if request.cookies(Forcast_SN)("name")=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(Forcast_SN)("name")=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(Forcast_SN)("key")="super" or request.cookies(Forcast_SN)("key")="check" or bigclassmaster5=true or smallclassmaster6=true or request.cookies(Forcast_SN)("key")="selfreg" then
	
	dim jingyong
	set rs=server.createobject("adodb.recordset")
	sql="select * from "& db_User_Table &" where  "& db_User_Name &"='"& ChkRequest(request.cookies(Forcast_SN)("name"), 0) &"'"
	rs.open sql,ConnUser,1,3
	jingyong=rs("jingyong")
	rs.close
	set rs=nothing
	
	if request.cookies(Forcast_SN)("key")="super" or request.cookies(Forcast_SN)("key")="check" or request.cookies(Forcast_SN)("key")="bigmaster" or request.cookies(Forcast_SN)("key")="smallmaster" or (request.cookies(Forcast_SN)("key")="selfreg" and jingyong=0) or request.cookies(Forcast_SN)("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(Forcast_SN)("KEY")="super" or request.cookies(Forcast_SN)("key")="check" or request.cookies(Forcast_SN)("key")="bigmaster" or request.cookies(Forcast_SN)("key")="typemaster" then
	rs.Source="select * from "& db_News_Table &" where smallclassid=" & smallclassid & " order by NewsID desc"
	end if
	if request.cookies(Forcast_SN)("key")="selfreg" then
	rs.Source="select * from "& db_News_Table &" where smallclassid=" & smallclassid & " and editor='" & ChkRequest(request.cookies(Forcast_SN)("name"), 0) & "' order by NewsID desc"
	end if
	if request.cookies(Forcast_SN)("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='" & ChkRequest(request.cookies(Forcast_SN)("name"), 0) & "' 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%> - 管理文章&#23436;&#32654;&#35774;&#35745;&#32593;&#32476;&#31185;&#25216;&#26377;&#38480;&#20844;&#21496;&#32;&#23436;&#32654;&#25919;&#24220;&#32593;&#31449;&#31649;&#29702;&#31995;&#32479;&#32;&#104;&#116;&#116;&#112;&#58;&#47;&#47;&#119;&#119;&#119;&#46;&#119;&#109;&#103;&#111;&#118;&#46;&#99;&#110;</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="#C0C0C0" width="100%" id="AutoNumber1">
<tr class="TDtop">
  <td colspan=8 height="20" align="left" ><a href=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="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(Forcast_SN)("name")=trim(tmaster1(i)) then
	typemaster1=true
	exit for
	else
	typemaster1=false
	end if
 next
end if
if typemaster1=true or request.cookies(Forcast_SN)("key")="super" or request.cookies(Forcast_SN)("key")="check" or request.cookies(Forcast_SN)("key")="selfreg" then

%><a href=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="SmallClassManage.asp?bigclassid=<%=bigclassid%>"><font color=red><%=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(Forcast_SN)("name")=trim(bigmaster(i)) then
	bigclassmaster=true
	exit for
	else
	bigclassmaster=false
	end if
 next
end if
if (bigclassmaster=true and request.cookies(Forcast_SN)("key")="bigmaster") or request.cookies(Forcast_SN)("key")="super" or request.cookies(Forcast_SN)("key")="check" or (request.cookies(Forcast_SN)("key")="typemaster" and typemaster4=true) or request.cookies(Forcast_SN)("key")="selfreg" then
%><a href=SmallClassManage.asp?bigclassid=<%=rs1("bigclassid")%>><%=rs1("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><%=smallclassname%></font></a></b>
      &nbsp;&nbsp;&nbsp;&nbsp;其他小类：
<%if request.cookies(Forcast_SN)("key")="super" or request.cookies(Forcast_SN)("key")="check" or request.cookies(Forcast_SN)("key")="typemaster" or request.cookies(Forcast_SN)("key")="bigmaster" or request.cookies(Forcast_SN)("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("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(Forcast_SN)("name")=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("smallclassname")%></a>
<%end if
rs1.movenext
loop
rs1.close
set rs1=nothing