addjj.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")
if not ur.eof then
   if session("username")=ur("叫价用户") then%>
<script>
   alert("最高价已经是您叫的，您难道还要叫吗？");
   history.go(-1);
</script>
<%
response.end
end if
end if
price=Clng(request("price"))
proxy=trim(request("proxy"))
if proxy="yes" then
 p="是"
 pp=Clng(request("pp"))
else
 p="否"
 pp=0
end if
message=request("mess")
if ur.eof then
   if price<rs("底价") then%>
      <script>
      alert("您的叫价错误，叫价小于底价!");
      history.go(-1);
      </script>
<%
   response.end
   end if
else
   if price-ur("叫价")<rs("叫价单位") then%>
      <script>
      alert("您的叫价错误，没有按照叫价单位叫价!");
      history.go(-1);
      </script>
<%
      respone.end
   end if
end if
if p="是" and pp-price<rs("叫价单位") then%>
<Script>
 alert("您的代理叫价错误！");
 history.go(-1);
</script>
<%
response.end
end if

set com=createobject("adodb.command")
  com.activeconnection=conn
  com.commandtext="INSERT INTO onsell (商品id,叫价用户,叫价,代理,代理叫价,叫价日期,留言) VALUES (?,?,?,?,?,?,?)"
  com.Parameters.Append com.CreateParameter("t1",200, ,255 )
  com.Parameters.Append com.CreateParameter("t2",200, ,255 )
  com.Parameters.Append com.CreateParameter("t3",200, ,255 )
  com.Parameters.Append com.CreateParameter("t4",200, ,255 )
  com.Parameters.Append com.CreateParameter("t5",200, ,255 )
  com.Parameters.Append com.CreateParameter("t6",200, ,255 )
  com.Parameters.Append com.CreateParameter("t7",200, ,255 )
  com("t1")=idname
  com("t2")=session("username")
  com("t3")=price
  com("t4")=p
  com("t5")=pp
  com("t6")=date()
  com("t7")=replace(replace(message,"<","〈"),">","〉")
  com.execute%>
<script>
window.location="proxy.asp?id=<%=idname%>"
</script>