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

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

核心提示： 1、通过表单提交会员ID和用户密码；2、从DB_Member(会员)表中查询ID等于由表单提交的用户ID的记录；3、如果没有找到相应的记录，则转向登录失败页面，ASP入门基础教程-实例网上图书管理系统(6)，否则，验证密码；4、从图书信息表(DB_bookinf)中查询图书ID(Book

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"%>
<!--#include file="Connections/conn.asp" -->
<!--将session对象的mName变量清空。-->
<% session("mName")=""%>
<!--如果从表单中提取的会员ID和用户密码均不为空-->
<% 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
%>
<script language="javascript">
window.location.href="checkout_fail.htm"
</script>
<%
else
'否则，检查密码是否对，如对，则跳转到用户登录成功页面。
if rs("password")=session("PWD") then
%>
<script language="javascript">
window.location.href="checkout_OK.ASP"
</script>
<%else%>
'否则，提示:您输入的会员密码错误，请重新输入!并返回下一页。
<script language="javascript">
alert("您输入的会员密码错误，请重新输入！");
history.back();
</script>
<%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 )
%>
<!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">
//检验会员ID号和密码
function check()
{
if (form1.userID.value=="")
{ alert("请输入会员ID号！");form1.userID.focus();return;}
if (form1.userPWD.value=="")
{ alert("请输入会员密码！");form1.userPWD.focus();return;}
form1.submit();}
</script>
</head>
<body leftmargin="0" topmargin="0">
<center>
<table width="640" height="133" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td background="images/bg.jpg"><img src=http://tech.ddvip.com/2006-10/"images/checkout.gif" width="640" height="130"></td>
</tr>
</table>
<!--外表格开始-->
<table width="640" height="341" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td valign="top" background="images/bg.jpg">
<div align="center">
<!--表单开始-->
<form name="form1" method="POST" action="checkout.asp">
<!--内表格开始-->
<table width="97%" height="119" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td height="37"> <div align="center"><strong><font color="#C60001">
如果您还不是我们的会员，请点击“注册”按钮注册会员！</font></strong></div></td>
</tr>
<tr>
<td>
<!--嵌套的第三层表格开始，在这个表格中插入表单-->
<table width="81%" height="70" border="0" align="center"
cellpadding="-1" cellspacing="-1">
<tr>
<td width="32%" height="32"> <div align="right">会员ID号：</div></td>
<td width="36%"><input name="userID" type="text" id="userID"></td>
<td width="32%"><a href="register.asp">  注册</a></td>
</tr>
<tr>
<td><div align="right">您的密码：</div></td>
<td><input name="userPWD" type="password" id="userPWD"></td>
<td><input type="button" name="Submit" value="结账" onClick="check()">
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--嵌套的第三层表格开始，在这个表格中插入一条水平线-->
<table width="97%" border="0" align="center" cellpadding="-1" cellspacing="-1">
<tr>
<td> <hr width="97%"></td>
</tr>
</table>
</form>
<!--表单结束-->
<table width="97%" height="27" border="0" align="center" cellpadding="-1" cellspacing="-1">
<tr>
<td><strong>　以下是您选购的图书：</strong></td>
</tr>
</table>
<!--下面这个表格用来显示您所选图书信息-->
<table width="94%" height="52" border="1" align="center" cellpadding="0" cellspacing="0"
bordercolordark="#0000FF" bordercolorlight="#FFFFFF" bordercolor="#FFFFFF">
<tr>
<td width="17%" height="16"><div align="center">书号</div></td>
<td width="39%"><div align="center">书名</div></td>
<td width="16%"><div align="center">单价</div></td>
<td width="11%"><div align="center">数量</div></td>
<td width="17%"><div align="center">金额</div></td>
</tr>
<%
ASL=""
AID=""
ASL=split(session("sl"),",")
AID=split(session("checkBook"),",")
i=0
while not rs_C.eof
%>
<tr>
<td height="16"><div align="center"><%= rs_C("BookID") %></div></td>
<td>  <%=rs_C("BookName")%></td>
<td><div align="right"> <%=rs_C("price")%>（元）</div></td>
<td><div align="center"><%= ASL(i)%></div></td>
<td><div align="right"> <%=rs_C("price")*ASL(i)%>（元）</div></td>
</tr>
<%
i=i+1
rs_C.movenext
wend %>
</table>
</div></td>
</tr>
</table>
</center>
</body>
</html>