📄 list.asp
字号:
<%@ language="vbscript" %>
<%
page=request("page")
if page="" or Cint(page)<1 then page="1"
page=Cint(page)
%>
<title>拍卖</title>
<body bgcolor="#FFFFFF">
<%
set conn = server.createobject("adodb.connection")
conn.open "DBQ=" & server.MapPath("datebase.mdb") & ";DRIVER={Microsoft Access Driver (*.mdb)}"
set rs=conn.execute("SELECT * from goodslist order by 成交日期 desc")
toa=0
do until rs.eof
toa=toa+1
rs.movenext
loop
if page>toa then page=toa-10
set rs=conn.execute("SELECT * from goodslist order by 成交日期 desc")
%>
<table style="font-size:9pt" border=1 bgcolor=ffdddd bordercolor="#D8D8FF" cellspacing="0" width="80%" align="center">
<tr class="f11">
<td width=60 bgcolor=ddddff>
<div align="center">商品代码</div>
</td>
<td width=61 bgcolor=ddddff>
<div align="center">商品名称</div>
</td>
<td width=66 bgcolor=ddddff>
<div align="center">目前最高价</div>
</td>
<td width=277 bgcolor=ddddff>
<div align="center">图片</div>
</td>
<td width=125 bgcolor=ddddff align="center">最后成交日期</td>
<td width=125 bgcolor=ddddff>
<div align="center"></div>
</td>
<%
temp=0
do while not rs.eof
if rs("成交日期")>=date() then
temp=temp+1
if temp>=page and temp<page+10 then
%>
<tr class="f11">
<td width="60">
<div align="center"><a><% =rs("商品代号") %></a></div>
</td>
<td width="61" align="center"><% =rs("商品名称") %></td>
<td width="66">
<div align="center"><%
idname=rs("id")
set price=conn.execute("select * from onsell where 商品id='" & idname & "' order by 叫价 desc")
if price.eof then
%>目前没有任何叫价<%
else
%><%=price("叫价")%><%
end if
%></div>
</td>
<td width="277" align="center"><a href="<% =rs("图片") %>"><img src="<% =rs("图片") %>" width="80" height="54" border="1" alt="点击可放大"></a></td>
<td width="125" align="center"><% =rs("成交日期")%> </td>
<td width="125" align="center">
<a href="say.asp?id=<%=rs("id")%>">看详细情况</a>
</td>
</tr>
<%
end if
end if
rs.movenext
loop
%>
</table>
<hr>
<%if page>1 then %>
<a href="list.asp?page=<%=page-10%>">上一页</a><%
end if
if page+10<=toa then %>
<a href="list.asp?page=<%=page+10%>">下一页</a>
<% end if %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -