ASP网站制作之一个复杂的网上书城的例子（五）！

只看该作者 · 发表于 2015-1-16 23:33:17

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

因为现在数据库都使用标准的SQL语言对数据库进行管理，所以如果是标准SQL语言，两者基本上都可以通用的。SQLServer还有更多的扩展，可以用存储过程，数据库大小无极限限制。check.asp:用户观察所购物品！



<%
Head="以下是您所选购的物品清单"

ProductList=Session("ProductList")
IfLen(ProductList)=0ThenResponse.Redirect"Nothing.asp"

DbPath=SERVER.MapPath("ShopBag.mdb")
Setconn=Server.CreateObject("ADODB.Connection")
conn.open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&DbPath

IfRequest("MySelf")="Yes"Then
ProductList=""
Products=Split(Request("ProductID"),",")
ForI=0ToUBound(Products)
PutToShopBagProducts(I),ProductList
Next
Session("ProductList")=ProductList
Session("First")="no"
EndIf

sql="Select*FromProducts"
sql=sql&"WhereProductIDIn("&ProductList&")"
sql=sql&"OrderByProductID"
Setrs=conn.Execute(sql)
%>

<HTML>
<HEAD><TITLE><%=Head%></TITLE></HEAD>
<BODYBACKGROUND="b01.jpg">
<H2ALIGN=CENTER><%=Head%></H2>
<CENTER>
<FormAction=Check.aspMethod=POST>
<InputType=HiddenName=MySelfValue=Yes>
<TABLEBorder=1>
<TRBGCOLOR=#00FFFF>
<TD>作废</TD><TD>书刊编号</TD><TD>书刊称号</TD><TD>单价</TD><TD>数目</TD><TD>总价</TD><TD>商品简介</TD></TR>
<%
Sum=0
C_ProductID=""
C_Quatity=""
WhileNotrs.EOF
ifSession("First")="yes"then
Quatity=1
else
Quatity=CInt(Request("Q_"&rs("ProductID")))
IfQuatity<=0Then
Quatity=CInt(Session(rs("ProductID")))
IfQuatity<=0ThenQuatity=1
EndIf
endif
Session(rs("ProductID"))=Quatity
Sum=Sum+CDbl(rs("Price"))*Quatity

IfLen(C_ProductID)=0Then
C_ProductID=""&rs("ProductID")&""
C_ProductName=""&rs("ProductName")&""
C_Quatity=""&Quatity&""
Else
C_ProductID=C_ProductID&"/"&rs("ProductID")&""
C_ProductName=C_ProductName&"/"&rs("ProductName")&""
C_Quatity=C_Quatity&"/"&Quatity&""
EndIf

%>
<TR>
<TDAlign=Center>
<InputType=CheckBoxName="ProductID"Value="<%=rs("ProductID")%>"Checked>
</TD>

<TD><%=rs("ProductID")%></TD>
<TD><%=rs("ProductName")%></TD>
<TDAlign=Right><%=rs("Price")%></TD>
<TD><InputType=TextName="<%="Q_"&rs("ProductID")%>"Value=<%=Quatity%>Size=3></TD>
<TDAlign=Right><%=CDbl(rs("Price"))*Quatity%></TD>
<TD><AHREF=<%=rs("Link")%>><%=rs("Description")%></A></TD>
</TR>
<%
rs.MoveNext
Wend
%>
<TR><TDAlign=RightColSpan=7><FontColor=Red>总代价=<%=Sum%></Font></TD></TR>
</TABLE>
<InputType=SubmitValue=&quot</p>ASP在国内异常流行，因为国内大多使用的是盗版的Windows和盗版的SQLServer，而ASP＋COM＋SQLServer实际上也是一种不错的搭配，其性能也不输于PHP+MYSQL，特别是Windows系统和SQLServer都有图形界面，比APACHE和MYSQL易于维护，因此对于不重视知识产权的国家来说也是一种不错的选择。

只看该作者 · 发表于 2015-1-20 09:49:15

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

只看该作者 · 发表于 2015-1-29 06:39:23

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

只看该作者 · 发表于 2015-2-5 22:19:05

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

只看该作者 · 发表于 2015-2-13 22:08:55

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

只看该作者 · 发表于 2015-3-4 02:12:55

不能只是将它停留在纸上谈兵的程度上。

只看该作者 · 发表于 2015-3-11 15:01:48

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

只看该作者 · 发表于 2015-3-18 21:31:06

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

只看该作者 · 发表于 2015-3-26 15:44:51

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP网站制作之一个复杂的网上书城的例子（五）！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子