?? 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")%>">看詳細(xì)情況</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>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -