📄 sys-text.asp
字号:
<% if isempty(session("flag")) then
Response.Redirect "."
end if %>
<% Response.Buffer=True %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<head>
<title>先锋ASP精华网——相关文章——站长管理</title>
<LINK rel="stylesheet" href="css/index.css" type="text/css">
</head>
<!--#include file="dbconn.asp"-->
<CENTER>
<% set rs=server.createobject("adodb.recordset")
if request("del")<>"" then conn.Execute("delete * from text1 where id="&request("del"))
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
sql="select * from text1 order by id desc"
rs.open sql,conn,1,1
rs.PageSize=10
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount
dim i
i=0 %>
<form method=Post action="sys-text.asp">
<% response.write "<font color='#000064'>◆ </font>"
if PageCount=1 then
response.write "<font color='#000064'>首页 上一页</font> "
else
response.write "<a href=sys-text.asp?page=1><font color='0000BE'>首页</font></a> "
response.write "<a href=sys-text.asp?page="&(pagecount-1)&"><font color='0000BE'>上一页</font></a> "
end if
if rs.PageCount-pagecount<1 then
response.write "<font color='#000064'>下一页 尾页</font>"
else
response.write "<a href=sys-text.asp?page="&(pagecount+1)&"><font color='0000BE'>下一页</font></a> "
response.write "<a href=sys-text.asp?page="&rs.PageCount&"><font color='0000BE'>尾页</font></a>"
end if
response.write "<font color='000064'> 共"&rs.recordcount&"篇文章 "&rs.PageSize&"篇文章/页</font>"
response.write "<font color='000064'> 页次:<font color=blue>"&PageCount&"</font>/"&rs.PageCount&"页</font>"
response.write "<font color='000064'> 转到第<input type='text' name='page' size=2 class=smallInput style='font-size: 9pt; color: rgb(0,0,255)' value="&PageCount&">页</font> "
response.write "<input class=buttonface type='submit' value='确 定' name='cndok' style='font-family: 宋体; font-size: 9pt; color: #000073'>" %></CENTER>
<br>
<div align="center">
<center>
<table border="1" cellpadding="0" width="612" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#DBDBDB" cellspacing="0" height="28">
<tr>
<td width="287" bgcolor="#000073" height="12">
<p align="center"><font color="#FFFFFF">——文 章 标 题——</font></td>
<td width="103" bgcolor="#000073" height="12">
<p align="center"><font color="#FFFFFF">作 者</font></td>
<td width="64" bgcolor="#000073" height="12">
<p align="center"><font color="#FFFFFF">加入日期</font></td>
<td width="47" bgcolor="#000073" height="12">
<p align="center"><font color="#FFFFFF">点击数</font></td>
<td width="108" bgcolor="#000073" colspan="2" height="12">
<p align="center"><font color="#FFFFFF">相关操作</font></td>
</tr>
<% do while not rs.eof %>
<tr>
<td width="287" background="images/t-image2.gif" align="left" height="12"> <A HREF="view-text.asp?id=<%=rs("id")%>"><%=rs("title") %></A></td>
<td width="103" background="images/t-image2.gif" align="center" height="12">【<A HREF="mailto:<%=rs("email")%>"><%=rs("zuozhe")%></A>】</CENTER></td>
<td width="64" background="images/t-image2.gif" align="center" height="12"><%=rs("date")%></td>
<td width="47" background="images/t-image2.gif" align="center" height="12">（<font color="#0000B4"><%=rs("click")%></font>）</td>
<td width="57" background="images/t-image2.gif" align="center" height="12">
<p align="center"><A HREF="change-text.asp?id=<%=rs("id")%>&change=ture">修改</A></td>
<td width="57" background="images/t-image2.gif" align="center" height="12">
<p align="center"><A HREF="sys-text.asp?del=<%=rs("id")%>">删除</a></td>
</tr>
<% i=i+1
rs.movenext
if i>=rs.PageSize then exit do
loop
rs.close
set rs=nothing
conn.close
set conn=nothing %>
</table>
</div>
</form>
<p align="center"><a href="add-text.asp" target="_blank">添加文章>>></a> <a href="."> 退出管理>>></a></p>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -