ASP中十大常用程序代码.：第三节〈我的心得〉
在InterDev中实现网上购物推车(1)
本文将介绍在InterDev中实现网上商店购物车功能的方法，具体步骤如下：
一、 数据库结构：
产品数据表(Products): 存放产品信息
产品名 ProductName
产品编号 ProductID
单价 Price
分类编号 CategoryID
Cart：购物车数据表，临时存放客户的订单
产品编号 ProductID
产品名 ProductName
价格 Price
客户Session标号 SessionID
订购数量 Quantity
Orders：订单，当用户确认订单后，订货数据将由Cart表转存入此表
产品编号 ProductID
客户Session编号 SessionID
订购数量 Quantity
Customers：客户，实现客户登录时将使用该表
二、 建立数据库连接：
1、 添加数据源：在控制面板中选择：管理工具/ODBC数据源，单击添加，选择数据库驱动程序为Microsoft Access Driver，单击"完成"，在弹出的对话框中为数据源命名为"Store"，单击选择，找到建立好的.mdb文件，然后单击确定
2、 建立连接：在InterDev中的Project Exlporer中右击选择Add Data Connection，选择数据源，命名为Con，连接建立后的所有数据存取都将基于此连接。
三、 购物车要实现的基本功能和对应的文件：
产品浏览和选购 Products.asp
放入购物车 AddtoCart.asp
浏览购物车 ViewCart.asp
删除一个产品 DeleteItem.asp
更新购物车 UpdateCart.asp
确认订单 SaveOrder.asp
四、 Products.asp
本页以表格显示客户所选的产品分类中的所有商品，每一个商品后都有一个"添加到购物车"按钮，指向AddtoCart.asp。
1、 添加prodRec控件，设定记录源为Products表。
2、 添加Grid控件，设定其数据源为prodRec
3、 添加"选购此产品"链接
在Grid的属性页中单击Add Unbound Column，在Header中输入："选购此产品"，在Field/expression中输入：="＜A href=AddtoCart.asp?ProductID="+[ProductID]+"＞选购"+"＜/A＞"。此语句的作用是，将当前选定的产品的产品编号存放在变量ProductID中传递给AddtoCart.asp，在AddtoCart.asp中将根据此产品编号为购物车添加记录。
五、 AddtoCart.asp
本页提供用户所选商品的详细信息，用户在此页可以修改订购数量。
1、 添加一个记录集，命名为prodRec，设定记录源为SQL statement，输入：SELECT * from Products。在＜Head＞区中输入如下代码：
＜Script Language=J
相关文档：
<%
dim db
set db=Server.CreateObject("Adodb.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("../mdb/count.mdb")
dim strSql,rs,visitNum
strSql="Select visitNum from counter "
SET rs=db.Execute(strSql)
if session("agai ......
机构名称： 日期：2009 - 09 - 14 查看次数：
334 次
ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明� ......
1、首先下载淘特站内搜索引擎，首先要导入CMS中的数据到搜索引擎索引中，这个工作您可以放到本地来做，索引后，直接将淘特搜索引擎文件夹压缩后上传到您的空间上即可。
2、数据索引说明：
3、首先在本地部署一个asp.net环境，然后安装淘特站内搜索引擎，假如访问地址是:http://localhost。
4、下面输入地址：http://lo ......
<%
Function getHTTPPage(url)
On Error Resume Next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=not ......
将以下代码放到一个单独的页面checkcode.asp
<%
Option Explicit
Response.buffer=true
Call Com_CreatValidCode("validateCode")
Sub Com_CreatValidCode(pSN)
' 禁止缓存
Response.Expires = -9999
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.ContentTy ......
