order.asp

来自「移动商务平台」· ASP 代码 · 共 26 行

<%@ Language=VBScript%>
<!--#Include file="Conn.asp"-->
<%
in_brand=Request.QueryString("brand")
in_quan=Request.QueryString("quan")
in_charge=Request.QueryString("rate")

Set objRS = Server.CreateObject("ADODB.Recordset")  

sql = "select * from stock where brand='" & in_brand & "'"
objRS.Open sql,Conn,2,3
objRS("quantity")=objRS("quantity")-1
objRS.update
objRS.close
 
objRS.Open "orders",Conn,1,3
objRS.addnew
objRS("Brand")=in_brand
objRS("order_date")=now
objRS("quantity")=in_quan
objRs("charge")=in_charge
objRs.update
objRS.close

%>