ASP教程之ASP复杂购物车教程

只看该作者 · 发表于 2015-1-16 23:47:15

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

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

x

大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧购物车|教程|购物车数据库字段
表：pro_talbe：
id产物编号
proname产物称号
simages产物小图
表o_rder:
id定单编号
p_roid产物编号
m_um产物数目
d_time订购工夫
表co_table:
id客户编号
nn_ame客户姓名
tt_el接洽德律风
ee_m_ail客户邮箱
+++++++++++++++++++++++
index.ASP源码
+++++++++++++++++++++++

<%@LANGUAGE="VBSCRIPT"%>

<%
setRecordset1=Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection=MM_conn_STRING
Recordset1.Source="SELECT*FROMpro_table"
Recordset1.CursorType=0
Recordset1.CursorLocation=2
Recordset1.LockType=3
Recordset1.Open()
Recordset1_numRows=0
%>
<%
DimRepeat1__numRows
Repeat1__numRows=-1
DimRepeat1__index
Repeat1__index=0
Recordset1_numRows=Recordset1_numRows+Repeat1__numRows
%>
<html>
<head>
<title>UntitledDocument</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
</head>
<bodybgcolor="#FFFFFF"text="#000000">
<tablewidth="583"border="0"cellspacing="0"cellpadding="0">
<%
While((Repeat1__numRows0)AND(NOTRecordset1.EOF))
%>
<tr>
<tdwidth="140"><%=(Recordset1.Fields.Item("id").Value)%></td>
<tdwidth="171"><%=(Recordset1.Fields.Item("proname").Value)%></td>
<tdwidth="272"><%=(Recordset1.Fields.Item("simages").Value)%></td>
<tdwidth="272"><ahref="cart.asp?ProductID=<%=(Recordset1.Fields.Item("id").Value)%>&quantity=1">购置</a></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
Recordset1.Close()
%>
列生产品，这里有一个要点就是：<ahref="cart.asp?ProductID=<%=(Recordset1.Fields.Item("id").Value)%>&quantity=1">购置</a>
这里传送了两个参数：产物ID“ProductID"数目：“quantity"

+++++++++++++++++++++++++
上面是cart.asp的源码:
+++++++++++++++++++++

<%@LANGUAGE="VBScript"%>

<%
ifnotIsObject(session("cart"))then
Setsession("cart")=CreateObject("Scripting.Dictionary")
endif
Setcart=session("cart")
productID=Cstr(request("productID"))
dimdetail(1)
detail(0)=Int(request("quantity"))
ifrequest("productID")""then
ifcart.Exists(productID)then
cart.Remove(productID)
endif
cart.addproductID,detail
endif
keys=cart.keys
items=cart.items
setsession("cart")=cart
%>

<HTML>
<HEAD>
<TITLE>浙江广源印刷包装无限公司</TITLE>
<METAhttp-equiv=Content-Typecontent="text/html;charset=gb2312">
<LINK
href="index/index.CSS"type=text/cssrel=stylesheet>
<METAcontent="MSHTML5.50.4807.2300"name=GENERATOR>
</HEAD>
<BODYtext=#000000bgColor=#ffffffleftMargin=0topMargin=0marginwidth="0"marginheight="0">
<tablewidth="100%"border="0"cellspacing="0"cellpadding="0"bgcolor="#FFFFFF">
<tr>
<tdwidth="100%"valign="top"><br>
<tableborder="2"width="100%"cellspacing="0"cellpadding="0"bordercolorlight="#FFFFFF"bordercolordark="#FFFFFF"bgcolor="#D00000"height="1"align="center">
<trbgcolor="#3399FF">
<tdwidth="25%"align="center"height="19"><fontcolor="#FFFFFF">商品称号</font></td>
&nbs</p>对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了，

只看该作者 · 发表于 2015-1-24 14:07:59

学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

只看该作者 · 发表于 2015-1-27 22:26:53

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

只看该作者 · 发表于 2015-1-29 09:45:30

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

只看该作者 · 发表于 2015-2-6 00:15:51

另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

只看该作者 · 发表于 2015-2-14 13:30:20

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

只看该作者 · 发表于 2015-3-4 06:44:46

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

只看该作者 · 发表于 2015-3-11 17:49:31

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

只看该作者 · 发表于 2015-3-19 04:44:13

学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

只看该作者 · 发表于 2015-3-27 08:09:12

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

只看该作者 · 发表于 2015-3-27 08:09:12

弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

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

[学习教程] ASP教程之ASP复杂购物车教程

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

相关帖子