asp分页 (数据为空时报错 高手帮忙看看)
来源:百度知道 编辑:UC知道 时间:2024/05/23 16:54:08
<%
timestart = timer
%>
<%
set rs1=server.createobject("adodb.recordset")
exec="select * from system "
rs1.open exec,conn,1,1
%>
<%
set rs=server.createobject("adodb.recordset")
sql = "select bianhao,leixing,jine,fkfs,louceng,louceng1,huxing,mianji,xiaoqumingcheng,xiangxidizhi,shangchuanrq,fabuzhe from fyxx fyxx where leixing = '出售' order by bianhao desc"
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 width="616" height="24" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td width="616">
timestart = timer
%>
<%
set rs1=server.createobject("adodb.recordset")
exec="select * from system "
rs1.open exec,conn,1,1
%>
<%
set rs=server.createobject("adodb.recordset")
sql = "select bianhao,leixing,jine,fkfs,louceng,louceng1,huxing,mianji,xiaoqumingcheng,xiangxidizhi,shangchuanrq,fabuzhe from fyxx fyxx where leixing = '出售' order by bianhao desc"
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 width="616" height="24" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td width="616">
在提取数据前加上
If rs.bof And rs.eof Then
Reponse.Write "没有记录"
Else
提取数据的for循环
End If
问题解答同该页面:
http://zhidao.baidu.com/question/61331511.html
数据为空时仍会运行
rs.absolutepage=epage
此时epage就会找不到这个变量东东