📄 money.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="ADOVBS.INC"-->
<!--#include file="util.asp" -->
<%
ProductList = Session("ProductList")
If Len(ProductList) = 0 Then
Response.Redirect "Nothing.asp"
end if
DbPath = SERVER.MapPath("bookshop.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rs=server.createobject("adodb.recordset")
sql="insert into customer (lxr,sex,zip,phone,email,address,pays,inputtime,staus,dwdz,sentaddr,jiesuan,bank,bankid,company,taxid,SouJi) values('"& request("lxr") &"','"& request("sex") &"','"& request("yb") &"','"& request("phone") &"','"& request("email") &"','"& request("dz") &"', '"& request("pays") &"',now,'0','"& request("dwdz") &"', '"& request("shdz") &"', '"& request("js") &"', '"& request("kfyh") &"', '"& request("zh") &"', '"& request("lxr") &"', '"& request("swh") &"', '"& request("SouJi")&"')"
conn.execute sql
sql="select custid from customer order by inputtime desc"
rs.open sql,conn,adOpenkeyset,adlockoptimistic,adcmdtext
a=rs("custID")
rs.close
%>
<%
set rs=server.createobject("adodb.recordset")
Products=split(session("productlist"),",")
sql = "Select bookbm,bookname,size,dw,price,yhj,Num From book"
sql = sql & " Where bookbm In (" & ProductList & ")"
sql = sql & " Order By bookbm"
Set rs = conn.Execute( sql )
%>
<%
if session(rs("bookbm"))=0 then
session(rs("bookbm"))=1
end if
while not rs.eof
sql1="insert into shiplist values('"&rs("bookbm")&"','"&rs("bookname")&"','"&rs("size")&"','"&rs("dw")&"','"&cint(session(rs("bookbm")))&"','"&ccur(rs("yhj"))&"','"&a&"',now)"
conn.execute sql1
sql1="Update book set Num="&rs("Num")+cint(session(rs("bookbm")))&" where bookbm='"&rs("bookbm")&"'"
conn.execute sql1
rs.movenext
wend
session.abandon
response.redirect"success.asp?custid="&a&" "
rs.close
objrst.close
conn.close
%>
<html>
<head>
<title></title>
</head>
<body>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -