UC知道ASP上一页下一页的如何书写
来源：百度知道 编辑：UC知道 时间：2024/06/25 08:06:32
<%
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="t
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="t
这么麻烦啊。。
最简单的是用服务器行为实现，复杂的就要用分页技术了....
勒么大一篇,看都难得看,分得了
<%
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%>