asp 大家给我这段代码加判断!

来源：百度知道 编辑：UC知道 时间：2024/05/25 21:42:31
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("xxxx.mdb")
%>

<%
exec="select * from xx "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
rs.PageSize=5
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page

%><table width="546" border="0" cellspacing="0" cellpadding="0">

<%for i=1 to rs.PageSize%>
<%if rs.EOF then
exit for
end if%>
<tr>
<td width="19" height="16"> <img border="0" src="images/inoc_2.gif" width="7&q

<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("xxxx.mdb")
%>

<%
exec="select * from xx "
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
<!--添加部分-->
If rs.EOF AND rs.BOF Then
Response.Write("<td align='center'>暂时没有</td>")
else
<!--添加部分-->
rs.PageSize=5
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page

%><table width="546" border="0" cellspacing="0" cellpadding="0">

<%for i=1 to rs.PageSize%>
<%if rs.EOF then
exit for
end if%>