• <ruby id="5koa6"></ruby>
    <ruby id="5koa6"><option id="5koa6"><thead id="5koa6"></thead></option></ruby>

    <progress id="5koa6"></progress>

  • <strong id="5koa6"></strong>
    • 軟件測試技術
    • 軟件測試博客
    • 軟件測試視頻
    • 開源軟件測試技術
    • 軟件測試論壇
    • 軟件測試沙龍
    • 軟件測試資料下載
    • 軟件測試雜志
    • 軟件測試人才招聘
      暫時沒有公告

    字號: | 推薦給好友 上一篇 | 下一篇

    Flash和Asp數據庫的結合應用

    發布: 2007-7-14 19:37 | 作者: 佚名    | 來源: 網絡轉載     | 查看: 12次 | 進入軟件測試論壇討論

    領測軟件測試網 在看這個例子之前,先講講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 關閉并清空數據庫對象


    延伸閱讀

    文章來源于領測軟件測試網 http://www.kjueaiud.com/


    關于領測軟件測試網 | 領測軟件測試網合作伙伴 | 廣告服務 | 投稿指南 | 聯系我們 | 網站地圖 | 友情鏈接
    版權所有(C) 2003-2010 TestAge(領測軟件測試網)|領測國際科技(北京)有限公司|軟件測試工程師培訓網 All Rights Reserved
    北京市海淀區中關村南大街9號北京理工科技大廈1402室 京ICP備10010545號-5
    技術支持和業務聯系:info@testage.com.cn 電話:010-51297073

    軟件測試 | 領測國際ISTQBISTQB官網TMMiTMMi認證國際軟件測試工程師認證領測軟件測試網

    老湿亚洲永久精品ww47香蕉图片_日韩欧美中文字幕北美法律_国产AV永久无码天堂影院_久久婷婷综合色丁香五月

  • <ruby id="5koa6"></ruby>
    <ruby id="5koa6"><option id="5koa6"><thead id="5koa6"></thead></option></ruby>

    <progress id="5koa6"></progress>

  • <strong id="5koa6"></strong>