ASP系统程序详细Word下载.docx

ASP系统程序详细Word下载.docx

《ASP系统程序详细Word下载.docx》由会员分享，可在线阅读，更多相关《ASP系统程序详细Word下载.docx（11页珍藏版）》请在冰豆网上搜索。

pamount数字

ppic

ptime日期/时间

pmemo备注

销售表

stitle

sprice数字

scostprice数字

samount数字

stotal数字

sprofit数字

sdate日期/时间

smemo备注

数据连接

%

dimdb,conn,connstr

db="

./database/sale.mdb"

setconn=server.createobject（"

adodb.connection"

）

connstr="

driver={microsoftaccessdriver（*.mdb）};

dbq="

&

Server.mappath（"

"

db&

conn.openconnstr

%>

'

Provider=;

DataSource="

database/book_Data.MDF"

driver={sqlserver};

server=-1421;

database=book;

uid=sa;

pwd=;

Server.mappath（db）

!

--#includefile="

conn.asp"

-->

添加信息页面（13addcustomer.asp）

action="

13addcustomer2.asp?

action=addcustomer"

添加信息执行页面（13addcustomer2.asp）

subaddcustomer（）

dimcid,cname,ctel,caddress,ctime,cmemo

cid=trim（request（"

cid"

））

cname=trim（request（"

ctel=trim（request（"

ctel"

caddress=trim（request（"

caddress"

ctime=datevalue（now（））

cmemo=trim（request（"

cmemo"

dbq="

setrs=server.createobject（"

adodb.recordset"

sql="

select*fromcustomerwherecid='

cid&

rs.opensql,conn,1,3

ifcid="

orcname="

then

response.Write（"

客户编号和客户姓名不能为空！

ahref='

13addcustomer.asp'

>

请返回<

/a>

response.End（）

else

ifnotrs.eofandnotrs.bofthen

response.Write（"

客户编号重复，请重新输入！

返回<

response.End（）

else

rs.addnew

rs（"

）=cid

rs（"

）=cname

）=ctel

）=caddress

ctime"

）=ctime

）=cmemo

rs.update

rs.close

conn.close

setrs=nothing

setconn=nothing

添加客户信息成功"

11customer.asp'

点击浏览客户用户<

endif

endif

endsub

ifrequest（"

action"

）="

addcustomer"

calladdcustomer（）

显示信息页面（11customer.asp）

sql="

select*fromcustomerorderbyciddesc"

rs.opensql,conn,1,3

ifrs.eofandrs.bofthen

当前没有客户信息"

dowhilenotrs.eof

tr>

ahref="

12customerdetails.asp?

id=<

%=rs（"

）%>

14modifycustomer.asp?

修改<

15deletecustomer.asp?

action=deletecustomer&

onclick="

returnconfirm（'

确定删除操作吗？

）"

删除<

/tr>

rs.movenext

loop

显示详细信息页面（12customerdetails.asp）

dimcid

cid=request.QueryString（"

id"

%=trim（rs（"

%>

修改信息页面（14modifycustomer.asp）

dimlinkid

linkid=request.QueryString（"

session（"

updateid"

）=linked

linkid&

14modifycustomer2.asp?

action=modifycustomer&

id=<

"

修改信息执行页面（14modifycustomer2.asp）

submodifycustomer（）

ctime=trim（request（"

dimupdateid

updateid=session（"

updateid&

setrs=n