jj.asp

类似易趣的网上竞拍系统

<%@ language="vbscript" %>
<%
if session("username")="" then
   response.redirect "login.htm"
   response.end
end if
set conn=server.createobject("ADODB.connection")
conn.open "DBQ=" & server.MapPath("datebase.mdb") & ";DRIVER={Microsoft Access Driver (*.mdb)}"
idname=trim(request("id"))
if idname="" then
   response.write "操作错误"
   response.end
else
   id=Cint(idname)
end if
set rs=conn.execute("select * from goodslist where id=" & id)
set ur=conn.execute("select * from onsell where 商品id='" & idname & "' order by 叫价 desc")
if ur.eof then
   jj="本商品还没有任何叫价"
else
   jj=ur("叫价") & "元"
end if
%>
我要叫价
本商品的目前最高叫价是：<%=jj%><Br>
本商品的叫价单位是：<%=rs("叫价单位")%>元
<form method="post" action="addjj.asp?id=<%=id%>">
价格：<input type=text name="price">(建议<%
    if jj="本商品还没有任何叫价" then%>
          <%=rs("底价")%>
    <%else%>
       <%=ur("叫价")+rs("叫价单位")%>
    <%end if%>元)<br>
您是否要代理？<input type="radio" value=yes name="proxy" checked>是<input type="radio" value=no name=proxy>否<br>
代理叫价：<input type=text name="pp"></br>
留言：<textarea cols=30 rows=2 name="mess"></textarea><br>
<input type="submit" value="叫价"><input type="reset" value="重叫">
</form>