Web访问数据库程序的设计.docx

2、数据浏览设计

1）页面布局规划

2）设计数据显示动态页面

3）设计修改数据显示动态页面，添加数据库访问脚本代码

创建Connection对象，连接数据库

创建RecordSet对象，打开相应记录集（Select字段From表Where条件和关联）

循环显示数据

关闭RecordSet对象，RecordSet对象.Close

关闭Connection对象，Connection对象.Close

删除RecordSet、Connection对象，SetRecordSet对象=Nothing

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01Transitional//EN""http:

//www.w3.org/TR/html4/loose.dtd">

<%

setcon=server.CreateObject（"adodb.connection"）

setrd=server.CreateObject（"adodb.recordset"）

'Access数据库

con.open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&server.MapPath（"db1.mdb"）&";PersistSecurityInfo=False"

'SQLServer数据库

'con.open"Provider=SQLOLEDB.1;Password=用户密码;PersistSecurityInfo=False;UserID=用户名;InitialCatalog=数据库;DataSource=SQL服务器"

s="select*from员工信息"

rd.opens,con

%>

员工信息浏览

ID

姓名

性别

职务

<%whilenotrd.eof%>

<%=rd（"id"）%>

<%=rd（"姓名"）%>

<%=rd（"性别"）%>

<%=rd（"职务"）%>

<%

rd.movenext

wend

rd.close

con.close

setrd=nothing

setcon=nothing

%>

3、数据查询设计

1）页面布局规划

2）设计查询条件输入表单页面

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01Transitional//EN""http:

//www.w3.org/TR/html4/loose.dtd">

请输入查询条件

姓名：

部门：

3）设计数据显示动态页面

获取表单提交过来的数据，变量=Request（“表单控件名”）

生成查询命令字符串

创建Connection对象，连接数据库

创建RecordSet对象，打开相应记录集（Select字段From表Where条件和关联）

循环显示数据

关闭RecordSet对象，RecordSet对象.Close

关闭Connection对象，Connection对象.Close

删除RecordSet、Connection对象，SetRecordSet对象=Nothing

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01Transitional//EN""http:

//www.w3.org/TR/html4/loose.dtd">

<%

xm=request.Form（"textfield"）

bm=request.Form（"textfield2"）

setcon=server.CreateObject（"adodb.connection"）

setrd=server.CreateObject（"adodb.recordset"）

'Access数据库

con.open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&server.MapPath（"db1.mdb"）&";PersistSecurityInfo=False"

'SQLServer数据库

'con.open"Provider=SQLOLEDB.1;Password=用户密码;PersistSecurityInfo=False;UserID=用户名;InitialCatalog=数据库;DataSource=SQL服务器"

s="select*from员工信息"

ifxm<>""then

s=s&"where姓名='"&xm&"'"

endif

ifxm=""andbm<>""then

s=s&"where部门='"&bm&"'"

endif

ifxm<>""andbm<>""then

s=s&"and部门='"&bm&"'"

endif

rd.opens,con

%>

员工信息查询结果

<%

ifrd.eofthen

%>

没有查询到你感兴趣的数据！

<%

con.close

setrd=nothing

setcon=nothing

else

%>

ID

姓名

性别

部门

职务

<%whilenotrd.eof%>

<%=rd（"id"）%>

<%=rd（"姓名"）%>

<%=rd（"性别"）%>

<%=rd（"部门"）%>

<%=rd（"职务"）%>

<%

rd.movenext

wend

rd.close

con.close

setrd=nothing

setcon=nothing

%>

<%endif%>

4、数据修改设计

！

）页面布局规划

2）设计数据浏览或查询页面，在记录显示中加入“修改”超连接按钮，调用记录数据显示及修改录入表单动态页面，注意传递记录的主关键字段的值

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01Transitional//EN""http:

//www.w3.org/TR/html4/loose.dtd">

<%

setcon=server.CreateObject（"adodb.connection"）

setrd=server.CreateObject（"adodb.recordset"）

'Access数据库

con.open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&server.MapPath（"db1.mdb"）&";PersistSecurityInfo=False"

'SQLServer数据库

'con.open"Provider=SQLOLEDB.1;Password=用户密码;PersistSecurityInfo=False;UserID=用户名;InitialCatalog=数据库;DataSource=SQL服务器"

s="select*from员工信息"

rd.opens,con

%>

员工信息浏览

ID

姓名

性别

职务

操作

<%whilenotrd.eof%>

<%=rd（"id"）%>

<%=rd（"姓名"）%>

<%=rd（"性别"）%>

<%=rd（"职务"）%>

id=<%=rd（"id"）%>">修改  

id=<%=rd（"id"）%>"onClick="javacript:

returnconfirm（'确定删除该员工吗？

！

'）">删除

<%

rd.movenext

wend

rd.close

con.close

setrd=nothing

setcon=nothing

%>

3）设计数据显示及修改录入表单动态页面

获取表单提交过来的记录的主关键字段的值

创建Connection对象，连接数据库

创建RecordSet对象，打开相应记录集（Select字段From表

文档加载中……请稍候！
如果长时间未打开，您也可以点击刷新试试。

下载文档到电脑，查找使用更方便

下载	加入VIP,免费下载

还剩页未读，继续阅读

举报
版权申诉 word格式文档无特别注明外均可编辑修改；预览文档经过压缩，下载后原文更清晰！ 立即下载

配套讲稿：

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

特殊限制：

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

关 键  词：

Web 访问 数据库 程序 设计

  冰豆网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。