ASP系统程序(详细)

数据库客户表（未注明字段类型者均为文本型）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,connstrdb="./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 dbq="&(""&db&"")connstraccess driver (*.mdb)}; set rs=("")sql="select * from customer where cid='"&cid&"'"sql,conn,1,3if cid="" or cname="" then(" 客户编号和客户姓名不能为空！"&"<a href=''> 请返回</a>")()elseif not and not then(" 客户编号重复，请重新输入！"&"<a href=''> 返回</a>")()elsers("cid")=cid rs("cname")=cname rs("ctel")=ctelrs("caddress")=caddressrs("ctime")=ctime rs("cmemo")=cmemoset rs = nothingset conn = nothing(" 添加客户信息成功"&"<a href=''> 点击浏览客户用户</a>")end ifend ifend sub%><%if request("action")="addcustomer" then call addcustomer() end if %>显示信息页面()<%dim db,conn,connstr db="./database/" set conn=("")connstr="driver={microsoft dbq="&(""&db&"")connstr set rs=("")sql="select * from customeraccess driver (*.mdb)}; order by cid desc" sql,conn,1,3%><%if and then(" 当前没有客户信息") elsedo while not %><tr><a href="?id=<%=rs("cid")%>"><%=rs("cid")%></a><%=rs("cid")%><a href="?id=<%=rs("cid")%>"> 修改</a><a href="?action=deletecustomer&id=<%=rs("cid")%>"onclick="r eturn confirm(' 确定删除操作吗？')"""> 删除</a></tr><%loop end ifset rs = nothing set conn = nothing %>显示详细信息页面（）dim cid cid=("id") dim db,conn,connstrdb="./database/" set conn=("")connstr="driver={microsoft access driver (*.mdb)};dbq="&(""&db&"") connstrset rs=("")sql="select * from customer where cid='"&cid&"'" sql,conn,1,3%><%<%= trim(rs("cid"))%><%=trim(rs("cname"))%><%set rs = nothing set conn = nothing %>修改信息页面()<!--#include file=""--><%dim linkidlinkid=("id")session("updateid")=linkeddim db,conn,connstr db="./database/" set conn=("") connstr="driver={microsoft access driver (*.mdb)};dbq="&(""&db&"") connstrset rs=("")sql="select * from customer where cid='"& linkid &"'"sql,conn,1,3%> action="?action=modifycustomer& id=<%=rs("cid")%> "<%=rs("cid")%><%set rs = nothingset conn = nothing%>修改信息执行页面()<!--#include file=""--><%sub modifycustomer()dim cid,cname,ctel,caddress,ctime,cmemocid=trim(request("cid")) cname=trim(request("cname"))ctel=trim(request("ctel")) caddress=trim(request("caddress")) ctime=trim(request("ctime")) cmemo=trim(request("cmemo"))dim updateid updateid=session("updateid") dim db,conn,connstrdb="./database/" set conn=("")connstr="driver={microsoft access(*.mdb)};dbq="&(""&db&"")connstr set rs=("")sql="select * from customer where cid='"& &"'"sql,conn,1,3 if cid="" or cname="" then(" 客户编号和客户姓名不能为空！ ")()elsers("cid")=cid rs("cname")=cname rs("ctel")=ctelrs("caddress")=caddress rs("ctime")=ctimers("cmemo")=cmemoset rs = nothingset conn = nothing(" 修改客户信息成功 "&"<a href=''> 点击浏览客户信息 </a>")("")end if end sub%> driverupdateid<%if request("action")="modifycustomer" then call modifycustomer()end if %>删除信息(执行)页面()<!--#include file=""--><%sub deletecustomer()dim cidcid=("id")dim db,conn,connstr db="./database/" setconn=("")connstr="driver={microsoftaccess driver (*.mdb)};dbq="&(""&db&"")connstr set rs=("") sql="select * from customer where cid='"&cid&"'"sql,conn,1,3set rs = nothing set conn = nothing ("")end sub%><%if request("action")="deletecustomer" then call deletecustomer() end if%>商品管理（与前面类似）显示信息页面()<%set rs=("") sql="select * from product order by pid desc"sql,conn,1,3%><%if and then(" 当前没有产品信息")elsedo while not%><a href="?id=<%=rs("pid")%>"> <%=rs("pid")%> </a> <%=trim(rs("pname"))%><a href="?id=<%=rs("pid")%>"> 修改</a><a href="?action=deleteproduct&id=<%=rs("pid")%>"onclick="return 吗？confirm（' 确定删除操作')"""> 删除</a><%loopend ifset rs = nothing set conn = nothing %>显示详细信息页面()<% dim pid pid=("id") set rs=("") sql="select * from product where pid='"& pid &"'" sql,conn,1,3%><%set rs = nothingset conn = nothing%><%=trim(rs("pid"))%>添加信息页面()action=" ?action=addproduct " action="?action=addproduct "修改信息页面()<% dim linkid linkid=("id") session("updateid")=linkid set rs=("") sql="select * from product where pid='"& linkid&"'" sql,conn,1,3 %><%set rs = nothing set conn = nothing %>添加、修改、删除信息（执行）页面（）。