用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＆“"