ASP入门基础教程-实例网上图书管理系统

　2006-10-27 12:01:46　来源：WEB开发网　　　

核心提示： 本页面是一个程序处理页，其主要功能有：1、通过 Session("BookIDList") 变量在打开网页时清空 BookIDList 中的值，ASP入门基础教程-实例网上图书管理系统(3)，因为刚打开网页 Session("BookIDList"

本页面是一个程序处理页。其主要功能有：

1、通过 Session("BookIDList") 变量在打开网页时清空 BookIDList 中的值，因为刚打开网页 Session("BookIDList") 为空；

2、将由Request对象获得的“图书ID”存入变量 BookIDList 中；

3、将变量 BookIDList 中的值赋给 Session 对象中的 BookIDList变量，以便在"buycar_see.asp"页面中使用；

4、将页面'转到"查看购物车"页面 "buycar_see.asp"。

注：InStr 函数返回的是一个位置值，此位置是一个搜索字符串在另一个被搜索字符串中的出现的位置。其格式如下：

InStr([IngStartPos] , strString1 , strString2 [, compare])

参数：IngStartPos ：从strString1 中开始对 strString2 进行搜索的位置；

strString1 ：字符串，在这个字符串中搜索 strString2 ；

strString2 ：所需搜索的字符串；

Compare ：一个数值数据，用来指定所采用的搜索比较方式；如果此参数被忽略，则缺省值为0（即vbBinaryCompare),招待的是二进制比较。

<%@ language="VBScript"%>
<%
BookIDList = Session("BookIDList")　　　　　　　　'此句的功能是打开网页时清空 BookIDList 中的值。
If Len(BookIDList) = 0 Then　　　　　　　　　　　　　 '如果第一次提交购物车中的图书，
BookIDList = "'" & request("bookID") & "'"
'则将由Request对象获得的“图书ID”存入变量 BookIDList 中。
ElseIf InStr( BookIDList, request("bookID")) <= 0 Then
'如果不是第一次提交购物车的图书，而且，当前提交的图书在这之前没有提交过，
BookIDList = BookIDList & ", '" & request("bookID") & "'"
'则将本次提交的”图书ID“存入变量 BookIDList 的尾部，并用逗号与前面的值分开。
End If
Session("BookIDList") = BookIDList
'将变量 BookIDList 中的值赋给 Session 对象中的 BookIDList变量。
Response.Redirect "buycar_see.asp"　　　　　　　　　　　'转到查看购物车页面
'InStr 函数返回的是一个位置值，此位置是一个搜索字符串在另一个被搜索字符串中的出现的位置。
%>
Buycar_see.asp 查看购物车。 本页面以表格的形式将您所选图书显示出来，在此可以由您修改所购图书的数量，然后自动计算金额和合计总金额。并通过四个超连接，分别连接到登录收银台页面（Checkout.asp）、主页面（index.asp)、从购物车中移去所选图书页面（move.asp)和清空购物车页面（Clear.asp)。
注： 函数:返回表达式，此表达式已被转换为 Double 子类型的 Variant。
<!-- #include file="connections/conn.asp" -->
<!--如果点击了“到收银台结帐”按钮，则转向“checkout.asp”页面。-->
<% if request.Form("jiezhang")="到收银台结账" then
response.Redirect("checkout.asp")
end if
If Len(session("BookIDList")) <> 0 Then
'如果 session("BookIDList") 的长度不为零，即其不为空，则执行下面的SQL语句。
sql = "Select * From DB_bookinfo Where BookID In (" &_
session("bookIDList") & ") Order By BookID"
'从 DB_bookinfo 表中查询”图书ID“与在session("bookIDList")变量保存的值中相匹配的记录，并以”图书ID“排序
Set rs = conn.Execute( sql )
'执行上面的 SQL 语句，并返回一个记录集。
else
'如果session("BookIDList") 的长度不为零，即其不为空，则跳转到 ”buycar_empty.asp"页面。
Response.Redirect "buycar_empty.asp"
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查看购物车</title>
<link href="style.css" rel="stylesheet">
<script language="JavaScript">
//自定义一个名为 stand()自定义函数。
function stand(){
//当点击了“"继续选择图书"按时，跳转到index.asp页面。
window.location.href="./index.asp";}
</script>
<style type="text/css">
<!--
.style3 {color: #ECF5FF}
-->
</style>
</head>
<body leftmargin="0" topmargin="10" background="images/bg1.jpg">
<center>
<table width="640" height="134" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td background="images/bg.jpg"><img src=http://tech.ddvip.com/2006-10/"images/buycar_top.gif" width="640" height="130"></td>
</tr>
</table>
<table width="640" height="306" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td valign="top" background="images/bg.jpg">
<div align="center">
<form name="form1" method="post" action="buycar_see.asp">
<table width="97%" height="52" border="1" align="center" cellpadding="0"
cellspacing="0" bordercolordark="#0099FF" bordercolorlight="#FFFFFF"
bordercolor="#FFFFFF">
<!--在内层表格的第一第显示出记录集中所选字段名。-->
<tr>
<td width="14%" height="16"><div align="center">书号</div></td>
<td width="41%"><div align="center">书名</div></td>
<td width="15%"><div align="center">单价</div></td>
<td width="9%"><div align="center">数量</div></td>
<td width="14%"><div align="center">金额</div></td>
<td width="7%"><div align="center">移去</div></td>
</tr>
<% i=0
sum=0
session("sl")=""
session("checkBook")=""
%>
<!--使用while 的循环语句，将购物车中的图书记录一一列出来。-->
<% while not rs.eof%>
<tr>
<td height="16"> <%=rs("BookID")%></td>
<td> <%=rs("BookName")%></td>
<% i=i+1 %>
<% sl = CInt(Request( "sl"&i)) 's1 用来存储所选图书数量。”s1“ & i 表示“数量”输入框名。
If sl <= 0 Then sl = 1 '当跳转到此页面，将数量值赋1.
Sum = Sum + CDbl(rs("Price")) * sl '计算总金额
%>
<td><div align="center">
<!--此单元格显示单价值-->
<input name=<%= "price"&i%> type="text" class="Sytle_auto"
id="price" value=<%=rs("price")%>
size="6" readonly="yes">
(元)</div></td>
<td><div align="center">
<!--此单元格显示数量-->
<input name=<%= "sl"&i%> type="text" class="Sytle_auto_s" id="sl"
onChange="JScript:form1.submit();" value=<%= sl%> size="4">
<!--当改变输入框的内容时，则form1的提交按钮将进行提交。-->
</div></td>
<td><div align="center">
<!--此单元格显示金额-->
<input name=<%= "je"&i%> type="text" class="Sytle_auto"
id="je" value=<%=rs("price")*sl%> size="6" readonly="yes">
(元)</div></td>
<!--此单元格在图片上做一个超连接，将页面转到move.asp指定参数的页面。-->
<td><div align="center"><a href="move.asp?clickBookID=<%=rs("BookID")%>">
<img src=http://tech.ddvip.com/2006-10/"images/move.gif" width="18" height="17" border="0"></a></div></td>
</tr>
<%
if len(session("sl"))=0 then '如果只提交一种图书，则将该图书的数量赋给变量session("s1")
session("sl")=sl
else
session("sl")=session("sl")&", "&sl '如果提交了两种或两种以上的图书。则将各种图书的数量赋给变量session("s1")
end if
if len(session("checkBook"))=0 then '如果只提交一种图书，则将该图书ID赋给变量session("checkBook")
session("checkBook")="'"& rs("BookID")& "'"
else '如果提交了两种或两种以上的图书。则将各种图书ID赋给变量session("checkBook")
session("checkBook")=session("CheckBook")&", '"& rs("BookID")& "'"
end if
rs.movenext '移动到下一条记录。
wend %>
</table>
<table width="97%" height="40" border="0" cellpadding="-1"
cellspacing="-1" class="Sytle_auto">
<tr>
<td><div align="right">合计金额：
<!--此单元格用来合计金额，只读输入框-->
<input name="sum" type="text" class="Sytle_auto" id="sum2"
value=<%= sum %> size="10" readonly="yes">
（元）</div></td>
</tr>
</table>
<table width="97%" height="39" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td width="79%"><div align="center">
<input type="submit" name="jiezhang" value="到收银台结账"> <!--当点击此提交按钮时，转到checkout.asp页面。-->
<input type="button" name="goon" value="继续选择图书" onClick="stand()">
<!--当单击此按钮时，调用stand()函数。转向index.asp页面-->
<a href="clear.asp">  </a></div></td>
<td width="5%"><div align="center"><a href="clear.asp"> <!--当点击此提交按钮时，转到buycar_see.asp页面。-->
<img src=http://tech.ddvip.com/2006-10/"images/emptybuycar.gif" width="20" height="20" border="0"></a></div></td>
<td width="16%"><a href="clear.asp">清空购物车 </a></td>
</tr>
</table>
</form>
</div></td>
</tr>
</table>
</center>
</body>
</html>