📄 list.asp
字号:
<style type="text/css">
<!--
body,td,th {
color: #000000;
}
body {
background-color: #F4F4F4;
}
a:link {
color: #003399;
}
a:visited {
color: #003399;
}
a:hover {
color: #003399;
}
a:active {
color: #003399;
}
-->
</style><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>购物清单</title>
</head>
<body>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("shop.mdb")
name=request.Form("name")
mail=request.Form("mail")
addr=request.Form("addr")
tp=request.Form("telephone")
cp=request.Form("cellphone")
customsql="insert into Customer(CustomerName,CustomerMail,CustomerAddr," &_
"CustomerTele,CustomerCell) values('"&name&"','"&mail&"','"&addr&"','"&tp&"','"&cp&"')"
conn.execute customsql
maxsql="select max(CustomerID) as maxid from Customer"
set rs=conn.execute(maxsql)
cid=rs("maxid")
productlist = request.cookies("productlist")
if len(productlist)=0 then
response.Write("<h3 align=center>您什么也没有购买，再见！</h3>")
else
products = split(productlist,", ")
for i=0 to ubound(products)
pro=products(i)
pro=mid(pro,2,len(pro)-2)
'去掉products(i)字符串中的单引号
if request.Cookies(pro)="" then
pnum=1
else pnum=request.cookies(pro)
end if
recordsql="insert into shopRecord(ProductID,CustomerID,ProductNum) values('"&pro&"',"&cid&","&pnum&")"
conn.execute recordsql
next
response.Write("<h3 align=center>感谢您的光临，再见！</h3>")
end if
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -