📄 admin_article.asp
字号:
<%@ LANGUAGE = VBScript.Encode %>
<html>
<head>
<title>文章管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../STYLE.CSS">
</head>
<body bgcolor="#FFFFFF">
<!--#include file="link.asp"-->
<!--#include file="articleCHAR.INC"-->
<br>
<%
if session("jaxe")<>"ok" then 'a
Response.Redirect "admin.asp"
response.end
else 'a
if Request.QueryString("job")="" then 'b
listlanmu
elseif Request.QueryString("job")="list" and Request.QueryString("classid")<>"" then 'b
listnote
elseif Request.QueryString("job")="new" and Request.QueryString("classid")<>"" then 'b
newnote
elseif Request.QueryString("job")="edit" and Request.QueryString("id")<>"" then 'b
editnote
elseif Request.QueryString("job")="del" and Request.QueryString("id")<>"" and Request.QueryString("classid")<>"" then 'b
delnote
elseif Request.QueryString("job")="upnew" and Request.QueryString("classid")<>"" then 'b
upnew
elseif Request.QueryString("job")="upedit" and Request.QueryString("id")<>"" then 'b
upedit
end if 'b
end if 'a
%>
<%sub listlanmu%>
<!--#include file="conn.asp"-->
<%
SQL="SELECT * FROM lanmu"
Set Rs=conn.Execute(SQL)
If Rs.Eof then%>
<p align="center">没有栏目</p>
<%else
do while not rs.eof
%>
<div align="center">ID:<%=RS("id")%> ----- <a href="admin_article.asp?job=list&classid=<%=rs("id")%>"><%=rs("lanmu")%></a></div><br>
<% rs.movenext
loop
rs.close
end if
end sub%>
<%sub listnote%>
<p align="center"><a href="admin_article.asp?job=new&classid=<%=Request.QueryString("classid")%>">新文章</a></p>
<!--#include file="conn.asp"-->
<%
CurrentPage=Request.QueryString("pages")
if CurrentPage="" then
CurrentPage=1
end if
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM article where lanmuid="&Request.QueryString("classid")&" order by id desc"
rs.open sql,conn,1,1
rs.PageSize=35
%>
<%if not rs.eof then
rs.AbsolutePage=CurrentPage
prevCurrentPage=CurrentPage-1
nextCurrentPage=CurrentPage+1 %>
<div align="right"> <% if CurrentPage <=1 and RS.PageCount<>1 then %>
上一页 <A HREF="admin_article.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=nextCurrentPage%>">[下一页]</a>
<% elseif CurrentPage>1 and CLng(CurrentPage) < RS.PageCount then %>
<A HREF="admin_article.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=prevCurrentPage%>">[上一页]</A>
<A HREF="admin_article.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=nextCurrentPage%>">[下一页]</a>
<% elseif (CLng(CurrentPage) = RS.PageCount) and RS.PageCount<>1 then %>
<A HREF="admin_article.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=prevCurrentPage%>">[上一页]</A> 下一页
<% end if%> 页次：<%=CurrentPage%>/<%=RS.PageCount%>页
<%=Rs.PageSize%>条记录/页
</div>
<table width="90%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolorlight="#00659C">
<tr>
<td width="17%" bgcolor="#006699">
<div align="center"><font color="#FFFFFF">操作</font></div>
</td>
<td width="49%" bgcolor="#006699">
<div align="center"><font color="#FFFFFF">文章标题</font></div>
</td>
<td width="34%" bgcolor="#006699">
<div align="center"><font color="#FFFFFF">加入时间</font></div>
</td>
</tr>
<%
NumRows=0
do while not rs.eof and NumRows < rs.PageSize
%>
<tr>
<td width="17%">
<div align="center"><font color="#666666"><a href="admin_article.asp?job=edit&id=<%=rs("id")%>">[修改]</a>
<a href="admin_article.asp?job=del&id=<%=rs("id")%>&classid=<%=Request.QueryString("classid")%>">[删除]</a></font></div>
</td>
<td width="49%">
<p align="center"><font color="#666666"><%=rs("title")%></font></p>
</td>
<td width="34%">
<p align="center"><font color="#666666"><%=rs("date")%></font>
</td>
</tr>
<%
rs.movenext
NumRows=NumRows+1
loop
%>
</table>
<div align="right"> <% if CurrentPage <=1 and RS.PageCount<>1 then %>
上一页 <A HREF="admin_article.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=nextCurrentPage%>">[下一页]</a>
<% elseif CurrentPage>1 and CLng(CurrentPage) < RS.PageCount then %>
<A HREF="admin_article.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=prevCurrentPage%>">[上一页]</A>
<A HREF="admin_article.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=nextCurrentPage%>">[下一页]</a>
<% elseif (CLng(CurrentPage) = RS.PageCount) and RS.PageCount<>1 then %>
<A HREF="admin_article.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=prevCurrentPage%>">[上一页]</A> 下一页
<% end if%> 页次：<%=CurrentPage%>/<%=RS.PageCount%>页
<%=Rs.PageSize%>条记录/页
</div>
<%else%>
<p align="center">没有文章！</p>
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -