cf免费改名卡:我想让这个页面显示记录,但却显示没有记录,不知道怎么回事,不清楚是怎么调用的
来源:百度文库 编辑:神马品牌网 时间:2024/08/28 01:43:02
<!--#include file="Inc/conn.asp"-->
<!--#include file="Inc/config.asp" -->
<%
owen1=request("owen1")
owen2=request("owen2")
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
if owen1<>"" and owen2 <>"" then
sql="select * from news where BigClassName='"&owen1&"' and SmallClassName='"&owen2&"' order by id desc"
rs.Open sql,conn,1,1
elseif owen1<>"" then
sql="select * from news where BigClassName='"&owen1&"' order by id desc"
rs.Open sql,conn,1,1
end if
if rs.eof and rs.bof then
response.Write("暂时没有记录")
else
%>
<%
rs.PageSize=20
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
<tr>
<td width="6%" height="24" align="center" >◎</td>
<td height="24" style="BORDER-bottom: #999999 1px dotted">
<% if rs("imagenum")<>"0" then response.write "<img src='images/news.gif' border=0 alt='图片新闻'>" end if %> <a href="shownews.asp?id=<%= RS("id") %>" target="_blank"><%= RS("TITLE") %></a> <font color="#999999">[<%= RS("infotime") %>] (阅读<font color="#ff0000"><%= RS("hits") %></font>次) </font></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
<tr valign="bottom">
<td height="50" colspan="2" align="center" > <form method=Post action="otype.asp?owen1=<%=owen1%>&owen2=<%=owen2%>">
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&page=1>首页</a> "
response.write "<a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&page=" & Page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&page=" & (page+1) & ">"
response.write "下一页</a> <a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&owen2="&owen2&"&page="&rs.pagecount&">尾页</a>"
end if
response.write " 页次:<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
response.write " 转到:<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span></p>"
%>
</form></td>
</tr>
<%
end if
rs.close
set rs=nothing
%>
</table>
最好是帮我解释一下是如何调用记录的 ,谢谢!!
<!--#include file="Inc/config.asp" -->
<%
owen1=request("owen1")
owen2=request("owen2")
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
if owen1<>"" and owen2 <>"" then
sql="select * from news where BigClassName='"&owen1&"' and SmallClassName='"&owen2&"' order by id desc"
rs.Open sql,conn,1,1
elseif owen1<>"" then
sql="select * from news where BigClassName='"&owen1&"' order by id desc"
rs.Open sql,conn,1,1
end if
if rs.eof and rs.bof then
response.Write("暂时没有记录")
else
%>
<%
rs.PageSize=20
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
<tr>
<td width="6%" height="24" align="center" >◎</td>
<td height="24" style="BORDER-bottom: #999999 1px dotted">
<% if rs("imagenum")<>"0" then response.write "<img src='images/news.gif' border=0 alt='图片新闻'>" end if %> <a href="shownews.asp?id=<%= RS("id") %>" target="_blank"><%= RS("TITLE") %></a> <font color="#999999">[<%= RS("infotime") %>] (阅读<font color="#ff0000"><%= RS("hits") %></font>次) </font></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
<tr valign="bottom">
<td height="50" colspan="2" align="center" > <form method=Post action="otype.asp?owen1=<%=owen1%>&owen2=<%=owen2%>">
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&page=1>首页</a> "
response.write "<a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&page=" & Page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&page=" & (page+1) & ">"
response.write "下一页</a> <a href=otype.asp?owen1="&owen1&"&owen2="&owen2&"&owen2="&owen2&"&page="&rs.pagecount&">尾页</a>"
end if
response.write " 页次:<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
response.write " 转到:<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span></p>"
%>
</form></td>
</tr>
<%
end if
rs.close
set rs=nothing
%>
</table>
最好是帮我解释一下是如何调用记录的 ,谢谢!!