首页 >> 读书频道 >> 电脑 >> 一个简单的网上书城的例子(一)
 
· 利用ASP存取各种常用类
· 利用ASP存取各种常用类
· 用ASP实现对Web搜索
· 用Delphi开发ASP
· 用ASP+SQL Ser
· 实现ASP文件在线发邮件
· 使用ASP程序对“HTM
· 用ASP让用户访问指定页
· 利用ASP生成EXECL
· 编写“公平”的ASP图形
· 如何用SAFileUp上
· 用ASP实现号码转换程序
 
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
· 2006高考录取规则
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

一个简单的网上书城的例子(一)


查看有无更新版本

关键字:ASP实例 2006-9-9

 

数据库结构:
第一个库shopbag.mdb,两个表:
buyiformation表存客户信息如下:
Name,Tel,Address,ProductID,Quatity,Sum
第二个表products存商品信息:
CategoryID(商品分类号),productid,productname,descrition,
ischeck(用户是否选这一商品),price(单价)
下面试一个工具文件!util.asp
<%
Sub ListCategory( conn )
   Set rs = conn.Execute( "Category" )
   While Not rs.EOF
%>
 <A HREF=buy.asp?CategoryID=<%=rs("CategoryID")%>&Description=<%=Server.URLEncode(rs("Description"))%>>
<%=rs("Description")%>
</A> 
<%
      rs.MoveNext
   Wend
End Sub
Sub PutToShopBag( ProductID, ProductList )
   If Len(ProductList) = 0 Then
      ProductList = "'" & ProductID & "'"
   ElseIf InStr( ProductList, ProductID ) <= 0 Then
      ProductList = ProductList & ", '" & ProductID & "'"
   End If
End Sub
%>

一个简单的网上书城的例子(一)

[ 1 ]
一个简单的网上书城的例子(一) num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑