这一段分页代码如何修改 10
第一面可以显示，但点其他的页面数字就出现了HTTP错误404-文件或目录未找到。该怎么修改呢<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0...
第一面可以显示，但点其他的页面数字就出现了HTTP 错误 404 - 文件或目录未找到。该怎么修改呢
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>一天</title>
</head>
<!--#include file="top.asp"-->
<body>
<!--#include file="conn.asp"-->
<%
dim dbrs
set dbrs=server.createobject("adodb.recordset")
dbrs.activeconnection=dbcn
sql="select title,price,content from chara order by code desc"
dbrs.source=sql
dbrs.cursortype=1
dbrs.open
if not dbrs.eof and not dbrs.bof then
dim page_no
if request.querystring("page_no")="" then
page_no=1
else
page_no=cint(request.querystring("page_no"))
end if
dbrs.pagesize=10
dbrs.absolutepage=page_no
dim i
i=dbrs.pagesize
response.write(i)
do while not dbrs.eof and i>0
i=i-1
response.write("物品名称：")
response.write(dbrs("title"))
response.write("<br>")
response.write(dbrs("content"))&"<br>"
dbrs.movenext
loop
response.write("页码：")
for j=1 to dbrs.pagecount
if j=page_no then
response.write(j&" ")
else
response.write("<a href='untitled.asp?page_no="&j&"'>"&j&"</a> ")
end if
next
else
reponse.write("记录集为空！")
end if
dbrs.close
dbcn.close
set dbcn=nothing
%>
<hr />
<!--#include file="bottom.asp"-->
</body>
</html>
第一个根本就没有回答 展开
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>一天</title>
</head>
<!--#include file="top.asp"-->
<body>
<!--#include file="conn.asp"-->
<%
dim dbrs
set dbrs=server.createobject("adodb.recordset")
dbrs.activeconnection=dbcn
sql="select title,price,content from chara order by code desc"
dbrs.source=sql
dbrs.cursortype=1
dbrs.open
if not dbrs.eof and not dbrs.bof then
dim page_no
if request.querystring("page_no")="" then
page_no=1
else
page_no=cint(request.querystring("page_no"))
end if
dbrs.pagesize=10
dbrs.absolutepage=page_no
dim i
i=dbrs.pagesize
response.write(i)
do while not dbrs.eof and i>0
i=i-1
response.write("物品名称：")
response.write(dbrs("title"))
response.write("<br>")
response.write(dbrs("content"))&"<br>"
dbrs.movenext
loop
response.write("页码：")
for j=1 to dbrs.pagecount
if j=page_no then
response.write(j&" ")
else
response.write("<a href='untitled.asp?page_no="&j&"'>"&j&"</a> ")
end if
next
else
reponse.write("记录集为空！")
end if
dbrs.close
dbcn.close
set dbcn=nothing
%>
<hr />
<!--#include file="bottom.asp"-->
</body>
</html>
第一个根本就没有回答 展开
1个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
