书签 分享 收藏 举报 版权申诉 / 75

类型数据库技术及应用程序设计实例.docx

  • 文档编号:24597185
  • 上传时间:2023-05-29
  • 格式:DOCX
  • 页数:75
  • 大小:13.84MB

4.showrs.asp

<%

SubShowRS(rs)'显示结果集rs

response.write("

")

response.write("")

fori=0tors.fields.count-1

response.write(""&rs.fields(i).Name&"")

next

response.write("")

whilenotrs.eof

response.write("")

fori=0tors.fields.count-1

response.write(""&rs.fields(i).Value&"")

next

response.write("")

rs.MoveNext

wend

response.write("

")

endSub

%>

5.conn.inc

<%

setconn=server.createobject("adodb.connection")

connstr="Provider=SQLOLEDB;datasource=(local);initialcatalog=cpxs;userid=sa;password=944679;"

conn.openconnstr

%>

Provider=SQLOLEDB:

数据库提供者

Userid=sa:

数据库的帐号

Password=944679:

数据库的帐号密码

InitialCatalog=cpxs:

数据库名字

DataSource=(local):

数据源,SQL服务器名或其IP

七.各功能模块设计

1.产品信息:

浏览产品表的数据以及根据产品编号查询包括产品、销售商、销售三张表中对应产品编号的数据信息。

显示的数据以表格的形式在数据显示区显示所查看的数据,在表格中再以超链接的形式提供数据查询。

例如,对产品数据,提供的是按产品编号进行查询,即将产品编号数据作为超链接,单击产品编号后将查询该产品编号的产品情况及产品销售情况。

cpll.asp:

浏览产品表中产品数据,位于CP文件夹下。

cpno.asp:

按产品编号查询程序,位于CP文件夹下。

(1)cpll.asp

--#includefile="../conn.inc"-->

<%

subShowPage(rs,page)'显示结果集中的指定页

response.write("

")

response.write("")

fori=0tors.fields.count-1

response.write(""&rs.fields(i).Name&"")

next

response.write("")

rs.AbsolutePage=Page

fori=0tors.PageSize

response.write("")

response.write("

id="&rs.fields(0).Value&">"&rs.fields(0).Value&"")

forj=1to2

response.write(""&rs.fields(j).Value&"")

next

response.write(""&rs.fields(3).Value&"")

response.write("")

rs.MoveNext

ifrs.eofthenexitfor

next

response.write("

")

endsub

setrs=server.createobject("adodb.recordset")

sql="selectCPBHas'产品编号',CPMCas'产品名称',JGas'价格',KCLas'库存量'fromCP"

rs.opensql,conn,3

%>

<%

rs.PageSize=10

Page=CInt(request("PageText"))

ifPage<1thenPage=1

ifPage>rs.PageCountthenPage=rs.PageCount

ShowPagers,Page

%>

<%

ifPage<>1then

response.write("

PageText=1target=main>第一页")

response.write("")

response.write("

PageText="&(Page-1)&"target=main>上一页")

endif

ifPage<>rs.PageCountthen

response.write("

PageText="&(Page+1)&"target=main>下一页")

response.write("")

response.write("

PageText="&rs.PageCount&"target=main>最后一页")

endif

%>

输入页号:

总页号:

<%=Page%>/<%=rs.PageCount%>

(2)cpno.asp

--#includefile="../conn.inc"-->

--#includefile="../showrs.asp"-->

<%

id=request("id")

setrs=server.createobject("adodb.recordset")

sql="selecta.CPBHas'产品编号',a.CPMCas'产品名称',JGas'当前价格',KCLas'库存量',XSMCas'销售商名',XSSJas'销售时间',SLas'数量'"

sql=sql&",JEas'金额'fromCPa,XSSb,XSCPcwherea.CPBH=c.CPBHandb.XSBH=c.XSBHanda.CPBH='"&id&"'"

rs.opensql,conn,3

showrsrs

rs.close

conn.close

%>

2.销售商信息

浏览销售商表的数据以及根据销售商编号查询包括产品、销售商、销售三张表中对应销售商编号的数据信息。

显示的数据以表格的形式在数据显示区显示所查看的数据,在表格中再以超链接的形式提供数据查询。

例如,对销售商数据,提供的是按销售商编号进行查询,即将销售商编号数据作为超链接,单击销售商编号后将查询该销售商编号的产品情况及产品销售情况。

xssll.asp:

浏览销售商表中产品数据,位于XSS文件夹下。

xssno.asp:

按销售商编号查询程序,位于XSS文件夹下。

(1)xssll.asp

--#includefile="../conn.inc"-->

<%

subShowPage(rs,page)'显示结果集中的指定页

response.write("

")

response.write("")

fori=0tors.fields.count-1

response.write(""&rs.fields(i).Name&"")

next

response.write("")

rs.AbsolutePage=Page

fori=0tors.PageSize

response.write("")

response.write("

id="&rs.fields(0).Value&">"&rs.fields(0).Value&"")

forj=1to5

response.write(""&rs.fields(j).Value&"")

next

response.write("")

rs.MoveNext

ifrs.eofthenexitfor

next

response.write("

")

endsub

setrs=server.createobject("adodb.recordset")

sql="selectXSBHas'销售商编号',XSMCas'销售商名称',DQas'地区',FZRas'负责人',DHas'电话',BZas'备注'fromXSS"

rs.opensql,conn,3

%>

<%

rs.PageSize=10

Page=CInt(request("PageText"))

ifPage<1thenPage=1

ifPage>rs.PageCountthen

配套讲稿:

如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制:

部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词:
数据库技术 应用 程序设计 实例
提示  冰豆网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:数据库技术及应用程序设计实例.docx
链接地址:https://www.bdocx.com/doc/24597185.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2008-2022 冰点文档网站版权所有

经营许可证编号:鄂ICP备2022015515号-1

收起
展开