📄 11618821989907_7.html
字号:
<li id="legv2-16"><a href="javascript:if(confirm('http://tech.ddvip.com/program/other/index.html \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/program/other/index.html'" tppabs="http://tech.ddvip.com/program/other/index.html">其它</a></li> </ul> </div> </div> <div id="tech_content_tl" class="tlad"></div><!-- 内容部分 --><div class="content"> <div class="location"> <a href="javascript:if(confirm('http://www.ddvip.com/ \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://www.ddvip.com/'" tppabs="http://www.ddvip.com/" target="_balnk">豆豆网</a> > <a href="javascript:if(confirm('http://tech.ddvip.com/index.html \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/index.html'" tppabs="http://tech.ddvip.com/index.html">技术应用</a> > <a href="javascript:if(confirm('http://tech.ddvip.com/program/index.html \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/program/index.html'" tppabs="http://tech.ddvip.com/program/index.html">程序设计</a> > <a href="javascript:if(confirm('http://tech.ddvip.com/web/asp/index.html \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/web/asp/index.html'" tppabs="http://tech.ddvip.com/web/asp/index.html">asp</a> > 正文 </div> <div class="content_left"> <div class="article"> <div class="article_title"> <h1>ASP入门基础教程-实例 网上图书管理系统</h1> <div class="title_bottom"><script language="javascript" src="../a_dir_d/title_bottom.js" tppabs="http://tech.ddvip.com/a_dir_d/title_bottom.js"></script></div> <p><a href="javascript:if(confirm('http://tech.ddvip.com/ \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/'" tppabs="http://tech.ddvip.com/">http://tech.ddvip.com</a> 2006年10月27日 <a href="javascript:if(confirm('http://bbs.ddvip.com/ \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://bbs.ddvip.com/'" tppabs="http://bbs.ddvip.com/">社区交流</a></p> </div> <div class="article_content"> <div class="title_bottom_cpr"><script src="../a_dir_d/ad_title_bottom.js" tppabs="http://tech.ddvip.com/a_dir_d/ad_title_bottom.js"></script></div> <!--ID="929"--><div class="searchhot">关键字：<a href="javascript:if(confirm('http://tech.ddvip.com/search.php?key=ASP技巧 \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/search.php?key=ASP技巧'" tppabs="http://tech.ddvip.com/search.php?key=ASP技巧" target="_blank">ASP技巧</a> <a href="javascript:if(confirm('http://tech.ddvip.com/search.php?key=ASP脚本 \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/search.php?key=ASP脚本'" tppabs="http://tech.ddvip.com/search.php?key=ASP脚本" target="_blank">ASP脚本</a> <a href="javascript:if(confirm('http://tech.ddvip.com/search.php?key=Server \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/search.php?key=Server'" tppabs="http://tech.ddvip.com/search.php?key=Server" target="_blank">Server</a> <a href="javascript:if(confirm('http://tech.ddvip.com/search.php?key=ODBC \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/search.php?key=ODBC'" tppabs="http://tech.ddvip.com/search.php?key=ODBC" target="_blank">ODBC</a> <a href="javascript:if(confirm('http://tech.ddvip.com/search.php?key=ASP连接数据库 \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/search.php?key=ASP连接数据库'" tppabs="http://tech.ddvip.com/search.php?key=ASP连接数据库" target="_blank">ASP连接数据库</a> <a href="javascript:if(confirm('http://tech.ddvip.com/search.php?key=ASP入门 \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/search.php?key=ASP入门'" tppabs="http://tech.ddvip.com/search.php?key=ASP入门" target="_blank">ASP入门</a> </div> <div class="article_z"><h2> 本文详细介绍ASP入门基础教程-实例 网上图书管理系统 </h2> </div> <div class="article_ad"><script language="javascript" src="../a_dir_d/ads_250x250.js" tppabs="http://tech.ddvip.com/a_dir_d/ads_250x250.js"></script></div> <div id='clickeye_content'> <div class="article_c" id="fontsize"> <p> 1、从会员信息表中查询 ID等于session("UserID")记录中等级的值，并将其值赋给变量session("grade")；</p><p> 2、从等级表中查找等级等于session("grade")变量的折扣率；</p><p> 3、从销售表中查找订单ID的最大值作为 MAXID 字段名输出；</p><p> 4、从图书信息表中查找图书ID在变量session("checkBool")中有与其相匹配的图书记录；</p><p> 5、自动产生订单号，它由四部分组成：年、月、日和先前的最大订单号的后五位加1；</p><p> 6、计算图书应付金额，它等于单价*数量*折扣率；</p><p> 7、往销售表中插入一条记录；</p><p> 8、从“销售量”表中查询图书ID等于bookID变量的图书记录，如果记录指针到了记录的尾部，则向记录集中插入一条记录，否则，更改原有的图书ID相等的图书数量值；</p><p> 9、更改会员信息表中ID等于parID会员的总金额；</p><p> 10、自动更新会员等级；</p><p> 11、提交本次消费金额和应付金额。</p><code><%@LANGUAGE="VBSCRIPT"%><br /><!--#include file="Connections/conn.asp" --><br /><%<br />'创建一个记录集对象。<br />Set rs_grade = Server.CreateObject("ADODB.Recordset")<br />'***从会员信息表中查询 ID等于session("UserID")记录中等级的值。<br />'Replace函数可以用来对给定字符串中的指定部分进行规定次的替换。<br />sql_grade= "SELECT grade FROM DB_Member WHERE ID = '" +_<br />Replace(session("UserID"), "'", "''") + "'"<br />rs_grade=conn.execute(sql_grade)<br />'将用户等级变量清空。<br />session("grade")=""<br />'将会员信息表中的相应会员的等级值赋给变量session("grade")<br />session("grade")=Replace(rs_grade("grade"), "'", "''")<br />Set rs_rebate = Server.CreateObject("ADODB.Recordset")<br />'***从等级表中查找等级等于session("grade")变量的折扣率。<br />sql_rebate= "SELECT rebate FROM DB_rebate WHERE grade = '" +_<br />session("grade") + "'"<br />rs_rebate.open sql_rebate,conn,3<br />%><br /><%<br />set rs_max= Server.CreateObject("ADODB.RecordSet")<br />'***从销售表中查找订单ID的最大值作为 MAXID 字段名输出。<br />sql_max="select MAX(OrderID) AS MAXID from DB_sell"<br />rs_max=conn.execute(sql_max)<br />%><br /><%<br />'***从图书信息表中查找图书ID在变量session("checkBool")中有与其相匹配的图书记录。<br />sql = "Select * From DB_bookinfo Where BookID In (" & session("checkBook") & ")"<br />Set rs_C = conn.Execute( sql )<br />%><br /><!--开始自动产生订单号，它由四部分组成：年、月、日和先前的最大订单号的后五位加1。--><br /><% no=trim(rs_max("MaxID"))<br />if len(month(date()))=1 then<br />cmonth="0"& cstr(month(date()))<br />else<br />cmonth=cstr(month(date()))<br />end if<br />if len(day(date()))=1 then<br />cday="0"& cstr(day(date()))<br />else<br />cday=cstr(day(date()))<br />end if<br />select case len(int(Right(no,5)+1))<br />case 1<br />cno="0000"+Cstr(int(Right(no,5)+1))<br />case 2<br />cno="000"+Cstr(int(Right(no,5)+1))<br />case 3<br />cno="00"+Cstr(int(Right(no,5)+1))<br />case 4<br />cno="0"+Cstr(int(Right(no,5)+1))<br />case 5<br />cno=Cstr(int(Right(no,5)+1))<br />case Else<br />cno="00001"<br />end select<br />intno=cStr(Year(Date()))& cmonth& cday&cno<br />'自动产生订单号结束。<br />%><br /><%<br />ASL=""<br />ASL=split(session("sl"),",") '此数组用来存储所选图书的数量。<br />i=0<br />sum=0<br />shuliang=0<br />'开始计算所购图书总金额、往“销售”表中插入一条记录和往“销售量”表插入一条记录或更改相应的记录。<br />while not rs_C.eof<br />bookID=rs_C("BookID")<br />bookName=rs_C("BookName")<br />price=rs_C("price")<br />paSL=cInt(ASL(i))<br />sum_1=sum_1+rs_C("price")*ASL(i)<br />'图书金额等于单价*数量*折扣率<br />booksum=rs_C("price")*ASL(i)*CSng(left(rs_rebate("rebate"),len(rs_rebate("rebate"))-1))/10<br />sum=sum+booksum<br />'left(rs_rebate("rebate"),len(rs_rebate("rebate"))-1)这一部分是把从记录集取出的折扣率的值（字符串），再从中取出其长度减1的字符串，这时得到的值就去掉了最后的“折”字。<br />oDate=now()<br />parID=Session("UserID")<br />'往销售表中插入一条记录。<br />sql_Ins="insert into DB_sell(OrderID,BookID,BookName,Price,bnumber,sum,HYID,OrderDate)"&_<br />"values('"&intno&"','"&bookID&"','"&bookName&"',"&price&","&paSL&","&booksum&_<br />",'"&parID&"',#"&oDate&"#)"<br />conn.execute sql_Ins<br />'***从“销售量”表中查询图书ID等于bookID变量的图书记录。<br />sql_update="select * from DB_sellsum where BookID='"&bookID&"'"<br />set rs_update=conn.execute (sql_update)<br />if rs_update.eof then<br />'如果记录指针到了记录的尾部，则向记录集中插入一条记录。<br />sql_num="insert into DB_sellsum(BookID,BookName,bnumber) values('"&bookID&_<br />"','"&bookName&"',"&paSL&")"<br />conn.execute sql_num<br />else<br />'否则，更改原有的图书ID相等的图书数量值。<br />sql_num="update DB_sellsum set bnumber=bnumber+"&paSL&" where BookID='"&bookID&"'"<br />conn.execute sql_num<br />end if<br />i=i+1<br />rs_C.movenext<br />wend %><br /><!--********结束**********--><br /><%<br />'***更改会员信息表中ID等于parID会员的总金额。<br />sql="update DB_member set amount=amount+ "&sum&" where ID= '"&parID&"'"<br />conn.execute sql<br />'开始自动更新会员等级<br />'***从会员信息表中查询ID等于parID会员的记录，并且只含等级和累计金额两个字段。<br />autosql="select grade,amount from DB_member where ID= '"&parID&"'"<br />set rs_auto=conn.execute (autosql)<br />samount=rs_auto("amount") '将字段中的累计金额值赋给变量samount。<br />'***从折扣率表中查询所有记录<br />sql_rebate="select* from DB_rebate"<br />set rs_rebateall=conn.execute (sql_rebate)<br />'将记录指针移动到第一帧。<br />rs_rebateall.movefirst<br />bz=0<br />while not rs_rebateall.eof<br />'如果记录指针没有到记录尾部，如果总金额大于记录集中的金额值，则将原等级加1赋给新等级。<br />if samount>rs_rebateall("sum") then<br />newgrade=rs_rebateall("grade")+1<br />bz=1<br />else<br />if bz=0 then newgrade=0<br />end if<br />rs_rebateall.movenext<br />wend<br />'等级最大到4<br />if newgrade>4 then newgrade=4<br />'更改会员信息表中的等级。<br />sql_newgrade="update DB_member set grade='"&newgrade&"' where ID= '"&parID&"'"<br />conn.execute sql_newgrade<br />%><br /><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><br /><html><br /><head><br /><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><br /><title>收银台结账！</title><br /><link href="style.css" rel="stylesheet"><br /><style type="text/css"><br /><!--<br />body {<br />background-image: url(images/bg1.jpg);<br />}<br />--><br /></style></head><br /><body leftmargin="0" topmargin="0"><br /><center><br /><table width="640" height="133" border="0" cellpadding="-1" cellspacing="-1"><br /><tr><br /><td background="images/bg.jpg"><img src="images/checkout.gif" width="640" height="130"></td><br /></tr><br /></table><br /><table width="640" height="341" border="0" cellpadding="-1" cellspacing="-1"><br /><tr><br /><td valign="top" background="images/bg.jpg"> <div align="center"><br /><form name="form1" method="POST"><br /><table width="97%" height="153" border="0" cellpadding="-1" cellspacing="-1"><br /><tr><br /><td height="71"><br /><div align="center"><strong><font color="#C60001" size="3"><br /><!!--从折扣率记录表中取出折扣率作为优惠率--><br />您本次购物享受<%=(rs_rebate.Fields.Item("rebate").Value)%>优惠！<br><br />您本次消费金额为<%= sum_1%>元，实际应付费用<%=sum%>元。</font><br /></strong> <strong><font color="#C60001" size="3"></font></strong></div></td><br /></tr><br /><tr><br /><td><div align="center"><strong><font color="#C60001" size="3"><br />结账已经完成，欢迎下次惠顾！</font></strong></div></td><br /></tr><br /></table><br /></form><br /><a href="http://cms.ddvip.com/index.php#" onClick="JScript:window.close();"><img src="images/home1.gif"<br />width="75" height="34" border="0"></a></div></td><br /></tr><br /></table><br /></center><br /><!--CSng 函数 :返回表达式，该表达式已被转换为 Single 子类型的 Variant。--><br /></body><br /></html><br /><%session.Abandon()%></code><p> Checkout_fail.asp 收银台登录失败提示页面。</p> </div> </div> <!-- 分页 --> <div class="page"><a href="11618821989907_6.html" tppabs="http://tech.ddvip.com/2006-10/11618821989907_6.html">上一页</a><a href="11618821989907.html" tppabs="http://tech.ddvip.com/2006-10/11618821989907.html">1</a><a href="11618821989907_2.html" tppabs="http://tech.ddvip.com/2006-10/11618821989907_2.html">2</a><a href="11618821989907_3.html" tppabs="http://tech.ddvip.com/2006-10/11618821989907_3.html">3</a><a href="11618821989907_4.html" tppabs="http://tech.ddvip.com/2006-10/11618821989907_4.html">4</a><a href="11618821989907_5.html" tppabs="http://tech.ddvip.com/2006-10/11618821989907_5.html">5</a><a href="11618821989907_6.html" tppabs="http://tech.ddvip.com/2006-10/11618821989907_6.html">6</a><span class="current">7</span><a href="11618821989907_8.html" tppabs="http://tech.ddvip.com/2006-10/11618821989907_8.html">8</a><a href="11618821989907_9.html" tppabs="http://tech.ddvip.com/2006-10/11618821989907_9.html">9</a><a href="11618821989907_10.html" tppabs="http://tech.ddvip.com/2006-10/11618821989907_10.html">10</a><a href="11618821989907_8.html" tppabs="http://tech.ddvip.com/2006-10/11618821989907_8.html">下一页</a></div> <!-- 分页end --><p style="color:#000000; font-size:12px; text-align:right; padding-right:4px;">作者：含笑 责编：豆豆技术应用</p> <div id="art_content_end_468x60"><script src="../a_dir_d/ads_468x60.js" tppabs="http://tech.ddvip.com/a_dir_d/ads_468x60.js"></script></div> </div> <div class="related"> <div class="relatedtop">与“ASP入门基础教程-实例 网上图书管理系统”相关的文章</div> <ul> <li>暂无相关文章</li> </ul> </div> <div class="clear"></div> <div class="related"> <div class="relatedtop">本栏目更新</div> <ul> <li><a href="javascript:if(confirm('http://tech.ddvip.com/2008-09/122111675163590.html \n\n该文件无法用 Teleport Pro 下载, 因为 它是一个域或路径外部被设置为它的启始地址的地址。 \n\n你想在服务器上打开它?'))window.location='http://tech.ddvip.com/2008-09/122111675163590.html'" tppabs="http://tech.ddvip.com/2008-09/122111675163590.html">实例讲解Access数据库在线压缩的实现方法</a></li>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -