ASP上一页下一页的如何书写
<%dimidid=htmlencode(request("id"))ifid=""or(notisnumeric(id))thenresponse.write"<scr...
<%
dim id
id=htmlencode(request("id"))
if id="" or (not isnumeric(id)) then
response.write "<script>alert('参数不正确！！！');window.close()</script>"
response.end
end if
set rs = server.createobject("adodb.recordset")
sql="update News set hits=hits+" & NewsHits & " where id="&id
conn.execute sql
sql="SELECT * FROM News where id="&id
rs.open sql,conn,1,1
if rs.bof and rs.eof then
rs.close
response.write "<script>alert('无此数据！！！');window.close()</script>"
response.end
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="image/css.css" type=text/css rel=stylesheet>
<title><%=rs("title")%></title>
<style type="text/css">
<!--
body,td,th {
font-size: 13px;
}
-->
</style>
</head>
<BODY leftMargin=0 background="#FFFFFF" topMargin=0 onselectstart="return false">
<!--#include file="tou.asp"-->
<table width="1000" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#0099FF">
<tr>
<td height="25" bgcolor="#FFFFFF">当前位置：<a href="index.asp">首页</a>>><a href="new.asp">文章</a>>>资料内容</td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF"><b><%=rs("title")%></b></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><%=htmldecode(rs("content"))%>
</td>
</tr>
</table>
<div align="center">
<!--#include file="bottom.asp"-->
</div>
</body>
</html>
<%
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
%> 展开
dim id
id=htmlencode(request("id"))
if id="" or (not isnumeric(id)) then
response.write "<script>alert('参数不正确！！！');window.close()</script>"
response.end
end if
set rs = server.createobject("adodb.recordset")
sql="update News set hits=hits+" & NewsHits & " where id="&id
conn.execute sql
sql="SELECT * FROM News where id="&id
rs.open sql,conn,1,1
if rs.bof and rs.eof then
rs.close
response.write "<script>alert('无此数据！！！');window.close()</script>"
response.end
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="image/css.css" type=text/css rel=stylesheet>
<title><%=rs("title")%></title>
<style type="text/css">
<!--
body,td,th {
font-size: 13px;
}
-->
</style>
</head>
<BODY leftMargin=0 background="#FFFFFF" topMargin=0 onselectstart="return false">
<!--#include file="tou.asp"-->
<table width="1000" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#0099FF">
<tr>
<td height="25" bgcolor="#FFFFFF">当前位置：<a href="index.asp">首页</a>>><a href="new.asp">文章</a>>>资料内容</td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF"><b><%=rs("title")%></b></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><%=htmldecode(rs("content"))%>
</td>
</tr>
</table>
<div align="center">
<!--#include file="bottom.asp"-->
</div>
</body>
</html>
<%
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
%> 展开
4个回答
展开全部
<%
set conn=server.createobject("adodb.connection")
conn.open("DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;pwd=;dbq="&server.mappath("1.mdb"))
set rs=server.createobject("adodb.recordset")
sql="select * from student"
rs.open sql,conn,3
rs.pagesize=20
if request("page")<>"" then
epage=cint(request("page"))
if epage<1 then epage=1
if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage
%>
<table border="0" cellpadding="0" cellspacing="1" bgcolor="#0000FF" width="80%" align="center">
<tr bgcolor="#FFFFFF" align="center">
<th><%=rs(0).name%></th><th><%=rs(1).name%></th><th><%=rs(2).name%></th>
</tr>
<%
for i=0 to rs.pagesize-1
if rs.bof or rs.eof then exit for
%>
<tr bgcolor="#FFFFFF" align="center">
<td><%=rs(0).value%></td><td><%=rs(1).value%></td><td><%=rs(2).value%></td>
</tr>
<%
rs.movenext()
next
%>
</table>
<p align="center">
<a href="">首页</a>
<a href="index.asp?page=<%=epage-1%>">前一页</a>
<a href="index.asp?page=<%=epage+1%>">后一页</a>
<a href="index.asp?page=<%=rs.pagecount%>">末页</a>
</p>
<p align="center">现在是第<%=epage%>页一共有<%=rs.pagecount%>页</p>
<%
conn.close()
%>
*****************************************************
表有三个字段,表明为student其他的就不需要改了,那个pagesize也可以改一下,如果记录少的话.
如果谁有更简单的,请贴上来,大家一起研究.
set conn=server.createobject("adodb.connection")
conn.open("DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;pwd=;dbq="&server.mappath("1.mdb"))
set rs=server.createobject("adodb.recordset")
sql="select * from student"
rs.open sql,conn,3
rs.pagesize=20
if request("page")<>"" then
epage=cint(request("page"))
if epage<1 then epage=1
if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage
%>
<table border="0" cellpadding="0" cellspacing="1" bgcolor="#0000FF" width="80%" align="center">
<tr bgcolor="#FFFFFF" align="center">
<th><%=rs(0).name%></th><th><%=rs(1).name%></th><th><%=rs(2).name%></th>
</tr>
<%
for i=0 to rs.pagesize-1
if rs.bof or rs.eof then exit for
%>
<tr bgcolor="#FFFFFF" align="center">
<td><%=rs(0).value%></td><td><%=rs(1).value%></td><td><%=rs(2).value%></td>
</tr>
<%
rs.movenext()
next
%>
</table>
<p align="center">
<a href="">首页</a>
<a href="index.asp?page=<%=epage-1%>">前一页</a>
<a href="index.asp?page=<%=epage+1%>">后一页</a>
<a href="index.asp?page=<%=rs.pagecount%>">末页</a>
</p>
<p align="center">现在是第<%=epage%>页一共有<%=rs.pagecount%>页</p>
<%
conn.close()
%>
*****************************************************
表有三个字段,表明为student其他的就不需要改了,那个pagesize也可以改一下,如果记录少的话.
如果谁有更简单的,请贴上来,大家一起研究.
参考资料： http://www.bc-cn.net/Article/web/asp/jszl/200610/4499.html
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
博思aippt
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员，对于Word文档生成PPT的操作，我们有以下建议：1. 使用另存为功能：在Word中编辑完文档后，点击文件->另存为，选择PowerPoint演示文稿（*.pptx）格式，即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
展开全部
这么麻烦啊。。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
最简单的是用服务器行为实现，复杂的就要用分页技术了....
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
勒么大一篇,看都难得看,分得了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
