📄 listnews.asp
字号:
<!--#include file=conn.asp --><!--#include file=../include/config.asp -->
<!--#include file="chkuser.asp" -->
<%
smallclassid=request("smallclassid")
if smallclassid="" then
Response.Write "<script>alert('未指定参数');history.back()</script>"
response.end
else
if not IsNumeric(smallclassid) then
response.write "<script>alert('非法参数');history.back()</script>"
response.end
else
end if
end if
dim smallclassname,bigclassname,typename,bigclassid,typeid
set rs=server.createobject("adodb.recordset")
sql="select * from smallclass 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("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 bigclass 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("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 type 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("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("key")="super" or request.cookies("key")="check" or bigclassmaster5=true or smallclassmaster6=true or request.cookies("key")="selfreg" then
dim jingyong
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&request.cookies("username")&"'"
rs.open sql,conn,1,3
jingyong=rs("jingyong")
rs.close
set rs=nothing
if request.cookies("key")="super" or request.cookies("key")="check" or request.cookies("key")="bigmaster" or request.cookies("key")="smallmaster" or (request.cookies("key")="selfreg" and jingyong=0) or request.cookies("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("KEY")="super" or request.cookies("key")="check" or request.cookies("key")="bigmaster" or request.cookies("key")="typemaster" then
rs.Source="select * from News where smallclassid=" & smallclassid & " order by NewsID desc"
end if
if request.cookies("key")="selfreg" then
rs.Source="select * from News where smallclassid=" & smallclassid & " and editor='" & request.cookies("username") & "' order by NewsID desc"
end if
if request.cookies("key")="smallmaster" then
if smallmana=1 then
rs.Source="select * from News where smallclassid=" & smallclassid & " order by NewsID desc"
else
rs.Source="select * from News where smallclassid=" & smallclassid & " and editor='" & request.cookies("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%> <%=ver%> - 管理文章</title>
</head>
<body topmargin="0"><!--#include file=top.asp--><br>
<div align="center">
<center>
<table border="1" width="750" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="<%=border%>">
<tr>
<td width="100%" bgcolor="<%=m_top%>" height="30" align="left">
<a href=typemanage.asp>全部总栏</a><br> <img src=images/menu1.gif><b><a href="bigclass.asp?typeid=<%=typeid%>"><font color=red><%=typename%></font></a></b> 其他总栏：
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1 ="SELECT * From type 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("username")=trim(tmaster1(i)) then
typemaster1=true
exit for
else
typemaster1=false
end if
next
end if
if typemaster1=true or request.cookies("key")="super" or request.cookies("key")="check" or request.cookies("key")="selfreg" then
%><a href=bigclass.asp?typeid=<%=rs1("typeid")%>><%=rs1("typename")%></a>
<%end if
rs1.movenext
loop
rs1.close
set rs1=nothing%>
<br> <img src=images/menu1.gif><b><a href="smallclass.asp?bigclassid=<%=bigclassid%>"><font color=red><%=bigclassname%></font></a></b>
其他大类：
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1 ="SELECT * From bigclass 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("username")=trim(bigmaster(i)) then
bigclassmaster=true
exit for
else
bigclassmaster=false
end if
next
end if
if (bigclassmaster=true and request.cookies("key")="bigmaster") or request.cookies("key")="super" or request.cookies("key")="check" or (request.cookies("key")="typemaster" and typemaster4=true) or request.cookies("key")="selfreg" then
%><a href=smallclass.asp?bigclassid=<%=rs1("bigclassid")%>><%=rs1("bigclassname")%></a>
<%end if
rs1.movenext
loop
rs1.close
set rs1=nothing%>
<br> <img src=images/menu1.gif><b><a href="listnews.asp?smallclassid=<%=smallclassid%>"><font color=red><%=smallclassname%></font></a></b>
其他小类：
<%if request.cookies("key")="super" or request.cookies("key")="check" or request.cookies("key")="typemaster" or request.cookies("key")="bigmaster" or request.cookies("key")="selfreg" then
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1 ="SELECT * From smallclass 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 SmallClass 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("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("smallclassname")%></a>
<%end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -