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
