⽤ASP实现Access数据库查询
⽤ASP实现Access数据库查询
---- 本⽂着重介绍通过IIS4.0服务管理中ASP脚本语⾔实现访问Access数据库,⾄于如何创建系统DSN这⾥⼀带⽽过,有兴趣的读者⾃⼰可以去试⼀试。
----⾸先,创建⼀个Access数据库,其中含有姓名、部门名称、部门费⽤的字段名。
----其次,在安装IIS4.0的WWW服务器上,打开ODBC,创建系统DSN,数据源名ABC,选取对应的Access数据库,建⽴好后就可以开始写ASP程序了。
----根据需要我们想对Access数据库中的部门名称按照不同的部门进⾏查询,按照费⽤⾦额的⼤⼩进⾏查询。
----按照部门名称查询创建shujuku5.asp,ASP的程序源代码如下:
< html >
< body >
< %
Set Connect=Server.CreateObject(“ADODB.Connection")
Connect.Open “abc"
s=Request(“menu1")
sql=“select * from sheet1 where
部门名称=”&“‘"&s&“'"
Set rs=Connect.Execute(sql)
%>
< table border=1 cellspacing=1 >
< tr bgcolor=“#00ffff" >
< %For i=0 TO 7% >
< td size=1 > < b >< %=rs(i).Name% >< /b >
< td >< %Next% >
< tr >
< %Do While Not rs.EOF% >
< tr >
< %For i=0 TO 7% >
< td size=1 >< %=rs(i)% >< td >
< %Next% >
< /tr >
< %rs.MoveNext
Loop
% >
< %
rs.Close
Connect.Close
% >
< /table >
< /body >
< /html >
----按照费⽤⾦额创建shujuku4.asp,ASP源代码程序如下:
< html >
< body >
< %
Set Connect=Server.CreateObject(“ADODB.Connection")
Connect.Open “ABC"
r=Request(“textfield")
s=Request(“menu2")
if s=“⼤于" then
sql=“select * from sheet1 where 费⽤⾦额 >"&r&“"
elseif s=“⼩于" then
sql=“select * from sheet1 where 费⽤⾦额< "&r&“"
elseif s=“等于" then
sql=“select * from sheet1 where 费⽤⾦额="&r&“"
elseif s=“⼤于等于" then
sql=“select * from sheet1 where 费⽤⾦额 >="&r&“"
elseif s=“⼩于等于" then
sql=“select * from sheet1 where 费⽤⾦额< ="&r&“"
end if
Set rs=Connect.Execute(sql)
% >
< table border=1 cellspacing=5 >
< tr bgcolor=“#00ffff" >
< %For i=0 TO 7% >
< td >< b >< font size=“2" >< %=rs(i).Name% >
< /font >< /b >
< td >< %Next% >
< tr >
< %Do While Not rs.EOF% >
< tr >
< %For i=0 TO 7% >
< td size=8 >< %=rs(i)% >< td >
< %Next% >
< /tr >
< %rs.MoveNext
Loop
% >
< %
rs.Close
Connect.Closeasp 源代码
% >
< /table >
< /body >
< /html >
----创建好这两个ASP⽂件拷贝到IIS4.0的虚拟⽬录 WWWROOT下,然后再⽤FRONTPAGE、DREAMWEAVER编写⼀个Html程序bumenfeiyong.html,其源代码程序如下:
----通过以上程序的编写,再⽤IE5.0打开bumenfeiyong.htm 后,根据画⾯输⼊您想要得到的查询,每个部门得到不同的查询结果。在费⽤⾦额选取⼤于、⼩于、等于等选择条件,后⾯选取⾦额,就能得
到⼤于、⼩于、等于某⼀数值的查询结果。读者还可以根据⾃⼰的需要添加更多的字段,完成不同字段的查询,其ASP源代码与以上程序⼤同⼩异。
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论