csgo控制台怎么复活:asp 大家给我这段代码加判断!

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/26 03:46:52
<%
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" height="7"></td>
<td width="168" height="16"> <%=rs("名称")%></td>
<td width="88" height="16">   <%=rs("浏览次数")%></td>
<td width="83" height="16">  <a target="_blank" href="read.asp?leibie=资料&id=<%=rs("id")%>">查看</a></td>
<td width="190" height="16"><font size="2"><%=rs("时间")%></font></td>
</tr>
<%rs.movenext
next
%><tr>
<td colspan=5 align=right>
<font size="2">
<%if page=1 and not page=pagecount then%>
</font>
<div align="right"><font size="2">第<font color="#FF0000"><%=page%></font>页  <%for i=1 to pagecount%>
<a href="pal.asp?page=<%=i%>"><%=i%></a> <%next%><a href="pal.asp?page=<%=page+1%>">下一页</a>  </font></div>
<font size="2">
<%elseif page=pagecount and not page=1 then%>
</font>
<div align="right"><font size="2">第<font color="#FF0000"><%=page%></font>页  <%for i=1 to pagecount%>
<a href="pal.asp?page=<%=i%>"><%=i%></a> <%next%><a href="pal.asp?page=<%=page-1%>">上一页</a>  </font></div>
<font size="2">
<%elseif page<1 then%></font><div class="font" align="right">
<font color=red size="2">没有任何记录!</font></div>
<font size="2">
<%elseif page>pagecount then%></font><div class="font" align="right">
<font color=red size="2">没有任何记录!</font></div>
<font size="2">
<%elseif page=1 and page=pagecount then%>
<%else%>
</font>
<div align="right"><font size="2">第<font color="#FF0000"><%=page%></font>页  <%for i=1 to pagecount%>
<a href="pal.asp?page=<%=i%>"><%=i%></a> <%next%><a href="pal.asp?page=<%=page-1%>">上一页</a>
<a href="pal.asp?page=<%=page+1%>">下一页</a>  </font></div>
<font size="2">
<%end if%>
</font>
</td>
</tr>
</table>
<%

rs.close
set rs=nothing
conn.close
set conn=nothing
%></div>
大家看看在这分页如何加判断,判断一下是否有记录.

<%
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%>
<tr>
<td width="19" height="16"> <img border="0" src="images/inoc_2.gif" width="7" height="7"></td>
<td width="168" height="16"> <%=rs("名称")%></td>
<td width="88" height="16"> <%=rs("浏览次数")%></td>
<td width="83" height="16"> <a target="_blank" href="read.asp?leibie=资料&id=<%=rs("id")%>">查看</a></td>
<td width="190" height="16"><font size="2"><%=rs("时间")%></font></td>
</tr>
<%rs.movenext
next
%><tr>
<td colspan=5 align=right>
<font size="2">
<%if page=1 and not page=pagecount then%>
</font>
<div align="right"><font size="2">第<font color="#FF0000"><%=page%></font>页 <%for i=1 to pagecount%>
<a href="pal.asp?page=<%=i%>"><%=i%></a> <%next%><a href="pal.asp?page=<%=page+1%>">下一页</a> </font></div>
<font size="2">
<%elseif page=pagecount and not page=1 then%>
</font>
<div align="right"><font size="2">第<font color="#FF0000"><%=page%></font>页 <%for i=1 to pagecount%>
<a href="pal.asp?page=<%=i%>"><%=i%></a> <%next%><a href="pal.asp?page=<%=page-1%>">上一页</a> </font></div>
<font size="2">
<%elseif page<1 then%></font><div class="font" align="right">
<font color=red size="2">没有任何记录!</font></div>
<font size="2">
<%elseif page>pagecount then%></font><div class="font" align="right">
<font color=red size="2">没有任何记录!</font></div>
<font size="2">
<%elseif page=1 and page=pagecount then%>
<%else%>
</font>
<div align="right"><font size="2">第<font color="#FF0000"><%=page%></font>页 <%for i=1 to pagecount%>
<a href="pal.asp?page=<%=i%>"><%=i%></a> <%next%><a href="pal.asp?page=<%=page-1%>">上一页</a>
<a href="pal.asp?page=<%=page+1%>">下一页</a> </font></div>
<font size="2">
<%end if%>
</font>
</td>
</tr>
</table>
<%

rs.close
set rs=nothing
conn.close
set conn=nothing
%></div>