Checkout.asp 收银台登录页面。 本页面是收银台登录页面。其主要功能有：

1、通过表单提交会员ID和用户密码；

　　2、从DB_Member(会员)表中查询ID等于由表单提交的用户ID的记录；

　　3、如果没有找到相应的记录，则转向登录失败页面，否则，验证密码；

　　4、从图书信息表(DB_bookinf)中查询图书ID(BookID)在session("checkBook")变量中包含的值的记录。并以列表的形式显示出来；

　　5、通过注册按钮将页面跳转到注册页面"register.asp"；

　　6、通过结帐按钮调用check()函数进行密码验证，若密码输入正确，则跳到登录成功(checkout_OK.ASP)页面。否则，提示: "您输入的会员密码错误，请重新输入！"

<%@LANGUAGE="VBSCRIPT"%>


<% session("mName")=""%>

<% if request.Form("UserID")<>"" and request.Form("userPWD")<>"" then
'则将表单提交的分别赋给变量session("UserID")和session("PWD")。
session("UserID")=request.Form("UserID")
session("PWD")=request.Form("userPWD")
'从DB_Member(会员)表中查询ID等于由表单提交的用户ID的记录。
sql="SELECT ID, PassWord FROM DB_Member WHERE ID='" & session("UserID")&"'"
set rs=conn.execute(sql)
'如果记录到了记录集的尾部，则转向登录失败页面。
if rs.eof then
%>

<%
else
'否则，检查密码是否对，如对，则跳转到用户登录成功页面。
if rs("password")=session("PWD") then
%>

<%else%>
'否则，提示:您输入的会员密码错误，请重新输入!并返回下一页。

<%end if
end if
end if
%>
<%
'从图书信息表(DB_bookinf)中查询图书ID(BookID)在session("checkBook")变量中包含的值的记录
sql = "Select * From DB_bookinfo Where BookID In (" & session("checkBook") & ")"
Set rs_C = conn.Execute( sql )
%>

如果您还不是我们的会员，请点击“注册”按钮注册会员！ cellpadding="-1" cellspacing="-1"> 会员ID号：  注册 您的密码：   以下是您选购的图书： bordercolordark="#0000FF" bordercolorlight="#FFFFFF" bordercolor="#FFFFFF"> <% ASL="" AID="" ASL=split(session("sl"),",") AID=split(session("checkBook"),",") i=0 while not rs_C.eof %> <% i=i+1 rs_C.movenext wend %> 书号 书名 单价 数量 金额 <%= rs_C("BookID") %>   <%=rs_C("BookName")%> <%=rs_C("price")%>（元） <%= ASL(i)%> <%=rs_C("price")*ASL(i)%>（元）