|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。buyfinish.asp:完成一次买卖!纪录客户信息!
<%
Name=Request("Customer_N")
Tel=Request("Customer_T")
Address=Request("Customer_A")
ProductID=Request("Customer_P")
ProductName=Request("Customer_PN")
Quatity=Request("Customer_Q")
Sum=Request("Customer_S")
Session("ProductList")=""
%>
<HEAD><METAHTTP-EQUIV="REFRESH"CONTENT="30;URL=main.asp"></HEAD>
<bodybackground=B01.jpg>
<%=sql%><br>
<center><h2><fontcolor=blue>主顾购物信息:</h2></font>
<tablewidth=50%border=1><tr><td>
姓名:<%=Name%><br>
德律风:<%=Tel%><br>
住址:<%=Address%><br>
<%Products=Split(ProductID,"/")
ProductNames=Split(ProductName,"/")
Quatities=Split(Quatity,"/")%>
书刊编号__书刊称号(数目)<br>
<%ForI=0ToUBound(Products)%>
<%=Products(i)%>__<%=ProductNames(i)%>(<%=Quatities(i)%>)<br>
<%next%>
书刊总价:<%=Sum%><br>
</td></tr></table>
上述购物清单已提交服务台打点。多谢光顾!
<hrwidth=80%>
<ahref=main.asp>前往</a>
</body>
<%
sql="InsertintoBuyInfomation(Name,Tel,Address,ProductID,Quatity,Sum)"
sql=sql&"Values("+Name+","+Tel+","+Address+","+ProductID+","+Quatity+","+Sum+")"
DbPath=SERVER.MapPath("ShopBag.mdb")
Setconn=Server.CreateObject("ADODB.Connection")
conn.open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&DbPath
Setrs=conn.Execute(sql)
Setconn=nothing
%>
使用filesystemobject,可以对服务器上的文件进行操作,浏览、复制、移动、删除等。有ado的支持,asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样,管理远程主机上的数据库,对表格、记录进行各种操作。 |
|