📄 sbkdisplay.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="webtop.asp"-->
<html>
<head>
<title><%=webname%>--二手图书浏览</title>
<meta http-equiv="Content-Type" content="text/html; chasbkrset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onMouseOver="window.status='【<%=webname%>】<%=weburl%> 如果您喜欢本站,别忘了把本站介绍给您的好友哦！：）';return true">
<%
dim sbkrs
set sbkrs=server.CreateObject("adodb.recordset")
sbkrs.open "select * from shop_sbooks order by tjdate desc",conn,1,1
if sbkrs.eof and sbkrs.bof then
response.write "目前还没有任何图书"
response.End()
end if
Page = sbkrs.AbsolutePage
sbkrs.PageSize = 5
if not isempty(Request("Page")) then
Page = CInt(Request("Page"))
if Page > sbkrs.PageCount then
sbkrs.AbsolutePage = sbkrs.PageCount
elseif Page <= 0 then
Page = 1
else
sbkrs.AbsolutePage = Page
end if
else
page = 1
end if
%>
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="10%"><a href="sbkadd.asp">我要发布消息</a>
<tr>
<td width="100%" valign="top" align="center" >
<table width="100%" bgcolor="#99ccff" border="0" cellpadding="0" cellspacing="1">
<tr>
<td valign="top" align="center">
<table width="100%" border="1" bordercolor="#ffffff" cellpadding="0" cellspacing="0">
<tr><td width="10%" height="20"><div align="center">交易方式</div></td>
<td width="50%" height="20"><div align="center">图书名称</div></td>
<td width="10%" height="20"><div align="center">地区</div></td>
<td width="10%" height="20"><div align="center">图书价格</div></td>
<td width="10%" height="20"><div align="center">提交时间</div></td>
<td width="10%" height="20"><div align="center">人气</div></td>
</tr>
<%do while not sbkrs.eof%>
<tr><td align="center" bgcolor=#EEF3F9><strong>
<%if sbkrs("jyfs")="卖东西" then%>
<font color=blue><%=sbkrs("jyfs")%></font></strong></td>
<%else%>
<font color=red><%=sbkrs("jyfs")%></font></strong></td>
<%end if%>
<td style="padding-left:10px" bgcolor=#EEF3F9><a href="sbook.asp?id=<%=sbkrs("sbkid")%>"> <%=sbkrs("sbkname")%></a></td>
<td align="center" bgcolor=#EEF3F9><%=sbkrs("szdq")%></td>
<td align="center" bgcolor=#EEF3F9><font color=red><%=sbkrs("sbkprice")&" 元"%></font></td>
<td align="center" bgcolor=#EEF3F9><%=sbkrs("tjdate")%></td>
<td align="center" bgcolor=#EEF3F9><%=sbkrs("djmun")%></td>
</tr>
<tr>
<td align="center" bgcolor=#ffffff>内容简介</td>
<td style="padding-left:10px" colspan=6 bgcolor=#ffffff ><%=sbkrs("sbkcontent")%></td>
</tr>
<%sbkrs.movenext
loop %>
</table>
</tr>
</table>
<table width="776" height="27" border="0" align="center" cellspacing="0">
<tr>
<td><div align="center"><font color=blue size="2">二手图书信息共<font color=red><%=sbkrs.recordcount%></font>条<font color=red><%=sbkrs.pagecount%></font>页</td>
<td><div align="right"><%if request("page")>1 then%><a Href="sbkdisplay.asp?Page=<% = 1%>">首页</a> <a Href="sbkdisplay.asp?Page=<% =page -1 %>">上一页</a><%end if %><%if request("page")<>sbkrs.pagecount and page<sbkrs.pagecount then %><a Href="sbkdisplay.asp?Page=<% =page + 1%>">下一页</a> <a Href="sbkdisplay.asp?Page=<% = sbkrs.PageCount%>">尾页</a> <% end if %>
<%if sbkrs.pagecount>0 then %>
当前第<font color="#FF3300"><%=page%></font> 页
<%end if%></font></div></td>
</tr>
</table>
<!--#include file="service.asp"-->
<!--#include file="copyright.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -