<form id="hz9zz"></form>
  • <form id="hz9zz"></form>

      <nobr id="hz9zz"></nobr>

      <form id="hz9zz"></form>

    1. 明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

      Flash與Asp數據庫的結合應用

      [摘要]在看這個例子之前,先講講Flash和Asp結合的原理,其實懂一點ASP的朋友都知道ASP是基于HTML的.   其實Flash和Asp接口的原理和純ASP文件之間交互的原理是一樣的,簡單地說就是頁面之間的數據交換。了解了這一點之后,我們來看看下面這個簡單的例子:  這個例子是把ACCESS內的數據...
      在看這個例子之前,先講講Flash和Asp結合的原理,其實懂一點ASP的朋友都知道ASP是基于HTML的.

        其實Flash和Asp接口的原理和純ASP文件之間交互的原理是一樣的,簡單地說就是頁面之間的數據交換。了解了這一點之后,我們來看看下面這個簡單的例子:

        這個例子是把ACCESS內的數據讀出來,并在Flash內顯示出來。這個例子一共有三個主要文件,一個是ACCESS的數據庫文件employees.mdb,它有一個employees表,有四個字段:ID,Namelast,Lastname,Position。

        現在我們就來看看這個例子的制作過程吧。第一個影幀,ACTION是stop,有一個供用戶輸入查詢字段的文本框:strSearch,一個按鈕:submit,它的ACTION是

        于 (放開)

         跳至并播放 (2)

        退出于

        第二個影幀的ACTION是:載入參數 ("employee.asp", 0, vars=GET)

        這個ACTION的作用是通過ASP文件把ACCESS數據庫內符合用戶查詢條件的數據讀出來。


        第三個影幀的ACTION是:

        如果(NameFirst ne "")

         跳至并停止 (9)

        退出如果

        意思是如果NameFirst不等于空值的話,就跳到第九個影幀;否則將會執行下去(即播放下一個影幀)。

        第4-7個影幀都沒有ACTION哦。

        第八個影幀的ACTION是:

        跳至并播放 (3)

        回過頭來再看看第三個影幀看看,呵呵,懂了吧?

        如果沒有符合的數據的話,就一直讀到有為止;讀到了就跳到第九個影幀哦。

        那么再來看看第九個影幀:

        一共有三個文本框:NameFirst,NameLast,Position

        數據庫內符合查詢條件的數據將會顯示在他們之中哦!

        還有一個按鈕:Do It Again

        它的ACTION是:

        于 (放開)

          跳至并停止 (1)

        退出于

        好了,再來看看employee.asp這個文件吧:

      Dim oRS, oConn 定義兩個變量
      Set oRS = Server.CreateObject("ADODB.Recordset") 定義oRS為RECORDSET對象
      Set oConn = Server.CreateObject("ADODB.Connection") 定義oConn為CONNECTION對象
      oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};
      DBQ=" & Server.MapPath("employees.mdb")
      oRS.Open "SELECT * FROM Employees", oConn, 2, 3
      嘿嘿,這兩句不用說了吧?打開數據庫哦
      oRS.Find "NameLast = " & UCase(Request.QueryString("strSearch")) & ""
      找到符合條件的數據

      If oRS.EOF Then 如果數據指針已到底
       Response.Write "NameLast=Not+Found&NameFirst=Not+Found&Position=Not+Found"
        呵呵,那么NameLast就是沒有找到符合條件的數據咯
       Else
        Response.Write "NameFirst="
        & Server.URLEncode(oRS("NameFirst"))
        & "&NameLast=" & Server.URLEncode(oRS("NameLast"))
        & "&Position=" & Server.URLEncode(oRS("Position"))
        找到的話就是找到咯(廢話嘛。。。)
      End If

      oRS.Close
      Set oRS = Nothing
      oConn.Close
      Set oConn = Nothing 關閉并清空數據庫對象





      日韩精品一区二区三区高清