📄 list.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--#include file="conn.asp"-->
<!--#include file="admin_xy.asp"-->
<!--#include file="function.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>文章管理</title>
</head>
<body><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度. 交流QQ:31424717
' 程序制作：找北
' 升级时间： 2006-2-5
' E-Mail: g362hao@gmail.com
'====================================================================
%>
<!--#include file="i.asp"-->
<%
n=cint(request("k"))
%>
<%editok(n)%>
<%
if n=6 then
id=request("id")
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from art where id="&id
rs.open rsstr,conn,1,3
rs("pass")=true
rs.update
response.write("审核成功!")
fa
rs.close
set rs=nothing
end if
id=request.form("id")
classid=request.form("classid")
h_id=split(id,",")
submit=checkstr(request.form("submit"))
if submit<>"" then
if id="" then
response.write("请先选中对象<br/>")
fa
else
select case submit
case "删除所选"
for i=0 to ubound(h_id)
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from art where id="&h_id(i)
rs.open rsstr,conn,1,3
rs.delete
rs.update
next
response.write("删除成功！<br/>")
fa
submit=""
rs.close
set rs=nothing
case "审核所选"
for i=0 to ubound(h_id)
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from art where id="&h_id(i)
rs.open rsstr,conn,1,3
rs("pass")=true
rs.update
next
response.write("审核成功！<br/>")
fa
submit=""
rs.close
set rs=nothing
case "移动所选"
for i=0 to ubound(h_id)
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from art where id="&h_id(i)
rs.open rsstr,conn,1,3
if classid<>"" then rs("classid")=classid
rs.update
next
response.write("移动成功！<br/>")
fa
submit=""
rs.close
set rs=nothing
case else
response.write("错误操作<br/>")
fa
end select
end if
end if
%>
<%
id=request("id")
p=cint(request("p"))
if p="" or p<1 then
p=1
end If
%>
<form method="post" action="list.asp?xy=<%=xy%>&p=<%=p%>">
<%
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from art order by id desc"
rs.open rsstr,conn,1,2
maxpage=int((rs.recordcount-1)/8)+1
if p>maxpage then
p=maxpage
end If
if rs.recordcount = 0 then
response.write("没有文章！<br/>")
fa
end If
if rs.recordcount > 0 then
response.write("共有"&rs.recordcount&"条记录！<br/>--------<br/>")
rs.Move((p-1)*8)
end If
dim j
j=1
do while ((not rs.EOF) and j<=8)
id=rs("id")
if rs("pass")=false then
response.write(""&((p-1)*8+j)&".<input name=""id"" type=""checkbox"" value="""&rs("id")&""" />"&rs("title")&"<a href=""list.asp?k=1&id="&rs("id")&"&xy="&xy&""">[编辑]</a><a href=""read.asp?id="&rs("id")&"&xy="&xy&""">[查看]</a><a href=""list.asp?k=6&id="&rs("id")&"&xy="&xy&""">[审核]</a><br/>")
fa
else
response.write(""&((p-1)*8+j)&".<input name=""id"" type=""checkbox"" value="""&rs("id")&""" />"&rs("title")&"<a href=""list.asp?k=1&id="&rs("id")&"&xy="&xy&""">[编辑]</a><a href=""read.asp?id="&rs("id")&"&xy="&xy&""">[查看]</a><br/>")
fa
end if
rs.MoveNext
j=j+1
loop
%>
<input type="submit" name="Submit" value="删除所选" /><br/>
<input type="submit" name="Submit" value="审核所选" /><br/>
<br/>分类：<select title="分类" name="classid" value="">
<option title="请选择" value="">请选择</option>
<%
set rst=server.createobject("ADODB.Recordset")
Sql="select * from class order by ClassID asc"
rst.open Sql,conn,1,1
i=1
do while not rst.eof
%>
<option title="<%=rst("ClassName")%>" value="<%=rst("id")%>"><%=i%>.<%=rst("ClassName")%></option>
<%
i=i+1
rst.movenext
loop
rst.Close
set rst=nothing
%>
</select><br/>
<input type="submit" name="Submit" value="移动所选" />
</form>
<%
if p*8<rs.recordcount then
response.write("<a href='list.asp?xy=" & xy & "&id=" & id & "&p=" & p+1 & "'>[下页]</a> ")
end If
if p>1 then
response.write("<a href='list.asp?xy=" & xy & "&id=" & id & "&p=" & p-1 & "'>[上页]</a> ")
end If
if p*8<rs.recordcount or p>1 then
response.write("第" & p & "页,共" & (int((rs.recordcount-1)/8)+1) & "页<br/>")
end If
%>
<%if p*8<rs.recordcount or p>1 then%>
<form method="post" action="list.asp?xy=<%=xy%>">
<input name="p" title="页码" type="text" format="*N" emptyok="true" size="3" maxlength="4" value=""/>
<input type="submit" name="Submit2" value="提交" />
</form>
<%end if%>
<br/><a href='index.asp?xy=<%=xy%>'>[管理中心]</a><br/>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -