say.asp

类似易趣的网上竞拍系统

<%@ language="vbscript" %>
<%
idname=trim(request("id"))
if idname="" then
   response.write "操作错误"
   response.end
else
   id=Cint(idname)
end if

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 where id=" & id)
set ur=conn.execute("select * from onsell where 商品id='" & idname & "' order by 叫价 desc")
%>

<div align="center"><center>

<table border="1" cellpadding="0" cellspacing="0" width="80%" style="font-size: 9pt"
height="85">
  <tr>
    <td width="25%" height="19">拍卖商品名称</td>
    <td width="25%" height="19"><%=rs("商品名称")%></td>
    <td width="25%" height="19">代号</td>
    <td width="25%" height="19"><%=rs("商品代号")%></td>
  </tr>
  <tr>
    <td width="25%" height="19">底价</td>
    <td width="25%" height="19"><%=rs("底价")%></td>
    <td width="25%" height="19">目前最高叫价</td>
    <td width="25%" height="19"><%
      if ur.eof then
      %>目前没有任何叫价<%
      else
      %><%=ur("叫价")%><%
      end if%>
   </td>
  </tr>
  <tr>
    <td width="25%" height="19">叫价单位</td>
    <td width="25%" height="19"><%=rs("叫价单位")%></td>
    <td width="25%" height="19">开始日期</td>
    <td width="25%" height="19"><%=rs("开始日期")%></td>
  </tr>
  <tr>
    <td width="25%" height="20">最后成交日期</td>
    <td width="25%" height="20"><%=rs("成交日期")%></td>
    <td width="25%" height="20">图片</td>
    <td width="25%" height="20"></td>
  </tr>
</table>
</center></div>

<hr>
<%=rs("介绍")%>
<hr><%
if ur.eof then%>
目前没有任何叫价
<%else%>
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="80%" style="font-size: 9pt">
  <tr>
    <td width="17%" align="center">叫价用户</td>
    <td width="13%" align="center">目前叫价</td>
    <td width="18%" align="center">状态</td>
    <td width="52%" align="center">留言</td>
  </tr>
<%
mc=1
do until ur.eof
%>
  <tr>
    <td width="17%" align="center"><%=ur("叫价用户")%></td>
    <td width="13%" align="center"><%=ur("叫价")%></td>
    <td width="18%" align="center"><%
  if mc=1 then%>
     领先<%
  else%>
     出局<%
    end if%></td>
    <td width="52%" align="center"><%=ur("留言")%></td>
  </tr>
<%
  mc=mc+1
  ur.movenext
loop

%>
</table>
</center></div>
<%end if%>

<a href="jj.asp?id=<%=idname%>">我要叫价</a>