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.Close
％ >
< /table >
< /body >
< /html >
----创建好这两个ASP文件拷贝到IIS4.0的虚拟目录 WWWROOT下，然后再用FRONTPAGE、DREAMWEAVER编写一个Html程序 bumenfeiyong.html，其源代码程序如下：
< html >
< head >
< title >Untitled Document< /title >
< meta http－equiv=“Content－
Type" content=“text/html; charset=gb2312" >
< /head >
< body bgcolor=“＃FFFFFF" >
< div align=“center" >
< p >< b >< font color=“＃CC3333" size=“5" >
部门费用查询< /font >< /b >< /p >
< p >< img src=http://www.163design.net/a/s/“trees.gif" width=“600" height=“17" >
< /p >
< table width=“100％" border=“1" cellspacing=“10"
bordercolor=“＃FFFFFF" >
< tr bordercolor=“＃FFCCCC" >
< td height=“9" >
< form method=“post" action=
“http://192.1.168.100/shujuku5.asp" >
< select name=“menu1" >
< option selected >按部门查询< /option >
< option >总经理室< /option >
< option >财务部< /option >
< option >市场部< /option >
< option >物配部< /option >
< option >销售部< /option >
< option >办公室< /option >
< /select >
< input type=“submit" name=“Submit" value=“提交" >
< /form >
< /td >
< /tr >
< tr bordercolor=“＃FFCCCC" >
< td height=“15" >
< form method=“post" action=
“http://192.1.168.100/shujuku4.asp" >
< select name=“menu2" >
< option selected >费用金额< /option >
< option >大于< /option >
< option >大于等于< /option >
< option >等于< /option >
< option >小于等于< /option >
< option >小于< /option >
< /select >
< input type=“text" name=“textfield" size=“12" >
< input type=“submit" name=“Submit2" value=“提交" >
< /form >
< /td >
< /tr >
< tr bordercolor=“＃FFCCCC" >
< td >＆nbsp;< /td >
< /tr >
< tr bordercolor=“＃FFCCCC" >
< td >＆nbsp;< /td >
< /tr >
< tr bordercolor=“＃FFCCCC" >
< td >＆nbsp;< /td >
< /tr >
< tr bordercolor=“＃FFCCCC" >
< td >＆nbsp;< /td >
< /tr >
< tr bo