ASP系统程序(详细).docVIP

数据库 客户表（未注明字段类型者均为文本型） cid cname ctel caddress ctime日期/时间 cmemo备注 %=trim(rs(cname))% 商品表 pid pname punit pprice数字 pamount数字 ppic ptime日期/时间 pmemo备注 销售表 pid cid stitle sprice数字 scostprice数字 samount数字 stotal数字 sprofit数字 sdate日期/时间 smemo备注  数据连接 % dim db,conn,connstr db=./database/ set conn=() connstr=driver={microsoft access driver (*.mdb)};dbq=(db) connstr % connstr=Provider= Source=(db) db=database/ set conn=() connstr=driver={sql server};server=-1421;database=book;uid=sa;pwd=;(db) !--#include file=-- % %  添加信息页面（） action=?action=addcustomer 添加信息执行页面（） !--#include file=-- % sub addcustomer() dim cid,cname,ctel,caddress,ctime,cmemo cid=trim(request(cid)) cname=trim(request(cname)) ctel=trim(request(ctel)) caddress=trim(request(caddress)) ctime=datevalue(now()) cmemo=trim(request(cmemo)) dim db,conn,connstr db=./database/ set conn=() connstr=driver={microsoft access driver (*.mdb)}; dbq=(db) connstr set rs=() sql=select * from customer where cid=cid sql,conn,1,3 if cid= or cname= then (客户编号和客户姓名不能为空！a href=请返回/a) () else if not and not then (客户编号重复，请重新输入！a href=返回/a) () else rs(cid)=cid rs(cname)=cname rs(ctel)=ctel rs(caddress)=caddress rs(ctime)=ctime rs(cmemo)=cmemo set rs = nothing set conn = nothing (添加客户信息成功a href=点击浏览客户用户/a) end if end if end sub % % if request(action)=addcustomer then call addcustomer() end if %  显示信息页面（） % dim db,conn,connstr db=./database/ set conn=() connstr=driver={microsoft access driver (*.mdb)}; dbq=(db) connstr set rs=() sql=select * from customer order by cid desc sql,conn,1,3 % % if and then (当前没有客户信息) else do while not % tr a href=?id=%=rs(cid)%%=rs(cid)%/a %=rs(cid)% a href=?id=%=rs(cid)%修改/a a href=?action=deletecustomerid=%=rs(cid)%onclick=return confirm(确定删除操作吗？)删除/a /tr % loop end if set rs = nothing set conn = nothing % 显示详细信息页面（） % dim cid cid=(id) dim db,conn,connstr db=./database/ set conn=() connstr=driver={microsoft access driver (*