用ASP實現Access資料庫查詢

來源:互聯網
上載者:User
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



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。