ASP分页不会做。。。

Vieky 2008-02-07 02:23:01
这是我的代码。

<!--#include file="conn.asp"-->
<!--#include file="chkadmin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="inc/style.css" rel="stylesheet" type="text/css">
</head>

<body>

<table width="680" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#EEEEEE">
<tr bgcolor="#708090">
<td colspan="5" align="center" class="TdBorderB"><font color="#FFFFFF">按分类查看</font></td>
</tr>
<tr align="center">
<td class="TdBorderRB"><a href="article_list.asp?aclass=1">新闻焦点</a></td>
<td class="TdBorderRB"><a href="article_list.asp?aclass=2">媒体报道</a></td>
<td class="TdBorderRB"><a href="article_list.asp?aclass=3">家教公告</a></td>
<td class="TdBorderRB"><a href="article_list.asp?aclass=4">家政公告</a></td>
<td class="TdBorderRB"><a href="article_list.asp">查看所有</a></td>
</tr>
</table>
<br>
<form name="form1" method="post" action="article_list.asp?s=ok">
<table width="680" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#EEEEEE">
<tr bgcolor="#708090">
<td colspan="5" align="center" class="TdBorderB"><font color="#FFFFFF">按关键词查看</font></td>
</tr>
<tr align="center">
<td class="TdBorderRB">请输入关键词</td>
<td class="TdBorderRB"><input name="keyword" type="text" class="input" id="keyword" size="30"></td>
<td class="TdBorderRB">请选择分类</a></td>
<td class="TdBorderRB"><select name="aclass">
<option value="1">新闻焦点</option>
<option value="2">媒体报道</option>
<option value="3">家教公告</option>
<option value="4">家政公告</option>
<option value="" selected>所有分类</option>
</select>
</td>
<td class="TdBorderRB"><input name='Submit' type='submit' class='button' value=' 给我搜 '></td>
</tr>
</table>
</form>
<br>
<table width="680" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#EEEEEE">
<tr bgcolor="#708090">
<td width="85" align="center" class="TdBorderB"><font color="#FFFFFF">文章分类</font></td>
<td width="240" align="center" class="TdBorderB"><font color="#FFFFFF">文章标题</font></td>
<td width="70" align="center" class="TdBorderB"><font color="#FFFFFF">录入员</font></td>
<td width="136" align="center" class="TdBorderB"><font color="#FFFFFF">录入时间</font></td>
<td width="60" align="center" class="TdBorderB"><font color="#FFFFFF">点击数</font></td>
<td width="65" align="center" class="TdBorderB"><font color="#FFFFFF">操作</font></td>
</tr>
<%
dim rs,sql,ID,title,writer,writedate,aclass,hit
dim aclass2,s
aclass2=Request.QueryString("aclass")
s=Request.QueryString("s")

if aclass2="" then
sql="select * from article order by id desc"
else
sql="select * from article where aclass='"&aclass2&"' order by id desc"
end if

if s="ok" then
dim aclass3,keyword
aclass3=Request.Form("aclass")
keyword=Trim(Request.Form("keyword"))
if aclass3="" then
sql="select * from article where title like '%"&keyword&"%' order by id desc"
else
sql="select * from article where aclass='"&aclass3&"' and title like '%"&keyword&"%' order by id desc"
end if
end if
set rs=conn.execute(sql)
if rs.eof and rs.bof then
if s="ok" then%>
<tr><td colspan=6 class=TdBorderRB>☆你搜索的是“<font color="#FF0000"><B><%=keyword%></B></font>”，结果如下：</td></tr>
<%end if
response.write "<tr><td colspan=6 align=center class=TdBorderRB>没有内容...</td></tr>"
else
if s="ok" then%>
<tr><td colspan=6 class=TdBorderRB>☆你搜索的是“<font color="#FF0000"><B><%=keyword%></B></font>”，结果如下：</td></tr>
<%end if
do while not rs.eof
ID=rs(0)
title=rs(1)
writer=rs(3)
writedate=rs(4)
aclass=rs(5)
hit=rs(6)

if aclass="1" then
aclass="新闻焦点"
elseif aclass="2"then
aclass="媒体报道"
elseif aclass="3"then
aclass="家教公告"
elseif aclass="4"then
aclass="家政公告"
end if
%>

<tr>
<td align="center" class="TdBorderRB"><%=aclass%></td>
<td class="TdBorderRB"><%=title%></td>
<td align="center" class="TdBorderRB"><%=writer%></td>
<td align="center" class="TdBorderRB"><%=writedate%></td>
<td align="center" class="TdBorderRB"><%=hit%></td>
<td align="center" class="TdBorderRB"><a href="friend_edit.asp?id=<%=ID%>">修改</a>　<a href="friend_del.asp?id=<%=ID%>">删除</a></td>
</tr>
<%
rs.movenext
loop
end if
set rs=nothing
%>
</table>
<!--#include file="footer.asp"-->
</body>
</html>
<%
conn.close
set conn=nothing%>

本人刚学ASP，我按网上一些实例做分页做不出。。出什么游标不可用的，有没有高手可以帮我将这个页面的代码改改，加个分页功能，或者教我怎么解决什么游标的问题。谢谢先了。。。
...全文
34 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
Vieky 2008-02-07
  • 打赏
  • 举报
 回复
好了，再看N个教程，总结一下，终于解决了，送上修改后可以分页的代码。。

<!--#include file="conn.asp"-->
<!--#include file="chkadmin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="inc/style.css" rel="stylesheet" type="text/css">
</head>

<body>

<table width="680" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#EEEEEE">
<tr bgcolor="#708090">
<td colspan="5" align="center" class="TdBorderB"><font color="#FFFFFF">按分类查看</font></td>
</tr>
<tr align="center">
<td class="TdBorderRB"><a href="article_list.asp?aclass=1">新闻焦点</a></td>
<td class="TdBorderRB"><a href="article_list.asp?aclass=2">媒体报道</a></td>
<td class="TdBorderRB"><a href="article_list.asp?aclass=3">家教公告</a></td>
<td class="TdBorderRB"><a href="article_list.asp?aclass=4">家政公告</a></td>
<td class="TdBorderRB"><a href="article_list.asp">查看所有</a></td>
</tr>
</table>
<br>
<form name="form1" method="post" action="article_list.asp?s=ok">
<table width="680" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#EEEEEE">
<tr bgcolor="#708090">
<td colspan="5" align="center" class="TdBorderB"><font color="#FFFFFF">按关键词查看</font></td>
</tr>
<tr align="center">
<td class="TdBorderRB">请输入关键词</td>
<td class="TdBorderRB"><input name="keyword" type="text" class="input" id="keyword" size="30"></td>
<td class="TdBorderRB">请选择分类</a></td>
<td class="TdBorderRB"><select name="aclass">
<option value="1">新闻焦点</option>
<option value="2">媒体报道</option>
<option value="3">家教公告</option>
<option value="4">家政公告</option>
<option value="" selected>所有分类</option>
</select>
</td>
<td class="TdBorderRB"><input name='Submit' type='submit' class='button' value=' 给我搜 '></td>
</tr>
</table>
</form>
<br>
<table width="680" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#EEEEEE">
<tr bgcolor="#708090">
<td width="85" align="center" class="TdBorderB"><font color="#FFFFFF">文章分类</font></td>
<td width="240" align="center" class="TdBorderB"><font color="#FFFFFF">文章标题</font></td>
<td width="70" align="center" class="TdBorderB"><font color="#FFFFFF">录入员</font></td>
<td width="136" align="center" class="TdBorderB"><font color="#FFFFFF">录入时间</font></td>
<td width="60" align="center" class="TdBorderB"><font color="#FFFFFF">点击数</font></td>
<td width="65" align="center" class="TdBorderB"><font color="#FFFFFF">操作</font></td>
</tr>
<%
dim sql,ID,title,writer,writedate,aclass,hit
dim aclass2,s
aclass2=Request.QueryString("aclass")
s=Request.QueryString("s")

if aclass2="" then
sql="select * from article order by id desc"
else
sql="select * from article where aclass='"&aclass2&"' order by id desc"
end if

if s="ok" then
dim aclass3,keyword
aclass3=Request.Form("aclass")
keyword=Trim(Request.Form("keyword"))
if aclass3="" then
sql="select * from article where title like '%"&keyword&"%' order by id desc"
else
sql="select * from article where aclass='"&aclass3&"' and title like '%"&keyword&"%' order by id desc"
end if
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
if s="ok" then%>
<tr><td colspan=6 class=TdBorderRB>☆你搜索的是“<font color="#FF0000"><B><%=keyword%></B></font>”，结果如下：</td></tr>
<%end if
response.write "<tr><td colspan=6 align=center class=TdBorderRB>没有内容...</td></tr>"
else
if s="ok" then%>
<tr><td colspan=6 class=TdBorderRB>☆你搜索的是“<font color="#FF0000"><B><%=keyword%></B></font>”，结果如下：</td></tr>
<%end if
dim curpage,i
rs.pagesize=5
curpage=Request.QueryString("curpage")
if curpage="" then
curpage="1"
end if
rs.absolutepage=curpage

for i= 1 to rs.pagesize
if rs.eof then
exit for
end if

ID=rs(0)
title=rs(1)
writer=rs(3)
writedate=rs(4)
aclass=rs(5)
hit=rs(6)

if aclass="1" then
aclass="新闻焦点"
elseif aclass="2"then
aclass="媒体报道"
elseif aclass="3"then
aclass="家教公告"
elseif aclass="4"then
aclass="家政公告"
end if
%>

<tr>
<td align="center" class="TdBorderRB"><%=aclass%></td>
<td class="TdBorderRB"><%=title%></td>
<td align="center" class="TdBorderRB"><%=writer%></td>
<td align="center" class="TdBorderRB"><%=writedate%></td>
<td align="center" class="TdBorderRB"><%=hit%></td>
<td align="center" class="TdBorderRB"><a href="friend_edit.asp?id=<%=ID%>">修改</a>　<a href="friend_del.asp?id=<%=ID%>">删除</a></td>
</tr>
<%
rs.movenext
next
end if
%>
</table>
<table width="680" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#EEEEEE">
<tr bgcolor="#708090">
<td colspan="5" align="center" class="TdBorderB"><font color="#FFFFFF">分页控制</font></td>
</tr>
<tr align="center">
<td class="TdBorderRB"><%if curpage=1 then%><font color="#666666">首页</font><%else%><a href="?curpage=1">首页</a><%end if%></td>
<td class="TdBorderRB"><%if curpage=1 then%><font color="#666666">上一页</font><%else%><a href="?curpage=<%=curpage-1%>">上一页</a><%end if%></td>
<td class="TdBorderRB"><%if rs.pagecount<curpage+1 then%><font color="#666666">下一页</font><%else%><a href="?curpage=<%=curpage+1%>">下一页</a><%end if%></td>
<td class="TdBorderRB"><%if rs.pagecount<curpage+1 then%><font color="#666666">尾页</font><%else%><a href="?curpage=<%=rs.pagecount%>">尾页</a><%end if%></td>
<td class="TdBorderRB">当前第<B><%=curpage%></B>页，共有<B><%=rs.pagecount%></B>页，有<B><%=rs.recordcount%></B>篇文章</td>
</tr>
</table>

<!--#include file="footer.asp"-->
</body>
</html>
<%
set rs=nothing
conn.close
set conn=nothing%>
asp.net+jquery显示数据+分页
asp.net+jquery显示数据+分页
asp.net MVC5 + Bootstrap 增删改查分页(最新)
asp.net MVC5 + Bootstrap 增删改查分页(重点是里面的table及分页用法)。另外说一下项目用到了bootstrap-table,bootstrap-dialog,bootstrap-daterangepicker组件，很不错的几个组件
Asp.net Core Api+Vue增删改查及分页视频教程完整版
本课程以简易工作汇报系统为例，讲解了用vue脚手架快速创建项目，asp.net core 提供WebApi接口,实现了登录、工作日志表的增删改查及分页功能，在接口中使用token令牌进行身份验证,使用axios实现了跨域请求，对每个...
ASP.NET分页控件
AspNetPager42 分页控件支持DataGrid分页 DataList分页 Repeater分页 查询分页
asp.net分页控件——AspNetPager.dll
用法 showcustominfosection=\"Left\" width=\"37%\" meta:resourceKey=\"AspNetPager1\" style=\"font-size:12px\" InputBoxStyle=\"width:19px\" FirstPageText=\"首页\" LastPageText=\"尾页\" ...
ASP

28,390

社区成员

357,068

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章