proxy1.asp

类似易趣的网上竞拍系统

<%@ language="vbscript" %>
<%
idname=trim(request("id"))
if idname="" then
   response.write "操作错误"
   response.end
else
   id=Clng(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")
maxprice=ur("叫价")
maxuser=ur("叫价用户")
set pro=conn.execute("select * from onsell where 商品id='" & idname & "'")
do until pro.eof
    if pro("代理")="是" then
        if pro("代理叫价")-maxprice>=rs("叫价单位") and pro("叫价用户")<>maxuser then
             maxprice=maxprice+rs("叫价单位")
             maxuser=pro("叫价用户")
             p="是"
             pp=pro("代理叫价")
             mess=pro("留言")
             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")=maxuser
             com("t3")=maxprice
             com("t4")=p
             com("t5")=pp
             com("t6")=date()
             com("t7")=mess
             com.execute
         end if
     end if
     pro.movenext
loop

%>

<script>
window.location="say.asp?id=<%=idname%>"
</script>