order.asp

来自「一个简单的网上购物系统。ASP的源码！ 包括数据库的链接。」· ASP 代码 · 共 32 行

<!--#include file="dbcon.asp"-->
<%
dim sum, detail
sum=0
for each item in Session("basket")
  sum=sum+item(3)
  detail=detail & "<tr>"
  detail=detail & "<td>"
  detail=detail & item(1)
  detail=detail & "</td>"
  detail=detail & "<td>"
  detail=detail & item(3)
  detail=detail & "</td>"
  detail=detail & "</tr>"
next

SQL="insert into orders (uid,otime,detail,amt) values("_
	& Session("uid") _
	& ",'"_
	& formatdatetime(now(),0)_
	& "','"_
	& detail _ 
	& "',"_
	& sum _
	& ")"
CN.Open

CN.Execute SQL,,adCmdText
'清理当前的购物车
Session.Contents.Remove("basket")
Response.Redirect "default.asp"
%>