📄 addtocar.asp.txt

📁 ASP 网页数据库短训教程源码

💻 TXT

字号:

<%
  Book = Request("Book")   '读取书名
  ISBN = Request("ISBN")   '读取书号
  Price = Request("Price") '读取定价
  if not isnumeric(Request("Quantity")) then
%>	
  <script language="vbscript">
    alert ("请正确输入定购的数量")
    history.back
  </script>
<%
  else
    Quantity = Request("Quantity")  '读取数量
    subTotal = Price * Quantity     '计算金额=定价*数量
    '新增记录
    '使用Connection对象打开数据库文件
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                              "Data Source=" & Server.MapPath("store.mdb")
    Conn.Open
       '从数据表中读取记录并存放在Recordset对象中
    Set objRS = Server.CreateObject("ADODB.Recordset")
    objRS.Open "订购单", Conn,1,2
    time0=Session("time0")
    objRS.AddNew Array("客户", "书名","出版社","定价","数量","金额","时间"), _
         Array(Session("Name"),Book,ISBN,Price,Quantity,subTotal,time0) 
    objRS.Update
    '关闭数据库连接并释放对象
    objRS.Close
    Set objRS = Nothing
    Conn.Close
    Set Conn = Nothing
    end if
%>
<HTML>
  <BODY BGCOLOR="LightYellow">
    <!-显示成功信息及返回网上书店的超链接 -->
    <CENTER>您想要的书已成功地放入购书篮！<P>
    <P><A HREF="Catalog.asp">返回网上书店</A></P></CENTER>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -