📄 edit.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="functionedit.asp"-->
<%
if session("admin")<>"admin" then
Response.Redirect "../admin/index.asp"
response.end
end if
%>
<html>
<head>
<title></title>
</head>
<body link="#000000" vlink="#000000" alink="#000000" background="../img/dnacebg2.jpg" text="#000000">
<center>
<table width="60%" border="0" cellpadding="0" cellspacing="0" bordercolor="#999999" bgcolor="#CEA772">
<tr>
<td width="5%"><font size="2">编号</font></td>
<td width="30%"><p align="center"><font size="2">编辑文章</font></p></td>
<td width="15%" align="right" bordercolor="#000000"><font size="2">删除文章</font></td>
</tr>
</table>
<hr width="60%" style="border-style: dotted" color="#000000">
</center>
<%
dim sql,rs
sql="select * from article order by date desc "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1
if not rs.bof and not rs.eof then
dim page_size
dim page_no
dim page_total
page_size=10
if request("page_no")="" then
page_no=1
else
page_no=cint(request("page_no"))
end if
session("page_no")=page_no
rs.pagesize=page_size
page_total=rs.pagecount
rs.AbsolutePage=page_no
end if
%>
<%
Dim I,J
I=0
J=page_size
Do While Not rs.Eof And J>0
I=I+1
J=J-1
%>
<center>
<table width="60%" border="0" cellspacing="0" bgcolor="#EDCEA2"cellpadding="0" bordercolor="#999999">
<tr>
<td width="5%"><font size="2"><% =(page_no-1)*page_size+I %></font></td>
<td width="30%" align="center"><font size="2"><a href="editarticle.asp?id=<%=rs("id")%>"><%=rs("title")%></font></a></td>
<td width="15%" align="right"><font size="2" color="#FFFF00"><a href=del.asp?id=<%=rs("id")%>>删除</font></a></td>
</tr>
</table>
<hr width="60%" style="border-style: dotted" color="#000000">
<%
rs.Movenext
loop
%>
</center>
<center>
<font size="2">
<%
Call select_page(page_no,page_total)
%></font></center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -