數據庫學習:用Access分析網站實例

問題：

  如何用 Access 分析一個網站，或者在網站上提交一個查詢，得到結果後存儲進數據庫哪？
  如何用 Access 下載 DVBBS 論壇上所有的帖子？
  如何用 Access 編寫灌水程序？ 

  方法一：

   答案非常簡單—— DHtml 編程。
  有人可能問了，Access 使用的是 VBA ，而 DHtml 中使用的是 VBS 怎麼可能通用哪？其實 VBS / VBA 都是 VB 的子集。在 Access 中只要引用

  Microsoft Internet Controls
  Microsoft Html Object Library

  即可，然後在窗體上加入 “Microsoft Web 浏覽器”控件

  好了，下面就以我寫的一個讀取某 IP 物理地域查詢網站頁面的數據庫為例說明 DHtml / “Microsoft Web 浏覽器”控件在 Access 的應用吧。

  “Microsoft Web 浏覽器”控件的作用是什麼哪？主要就是為了獲得 DOCUMENT 對象的，DHtml 的操作都是以 DOCUMENT 對象為運行基礎的。

  要完成讀取網頁的功能我們必須了解 DHtml 的幾個簡單的對象以及屬性

  1、DOCUMENT 對象：代表這整個 Html 文檔
  2、BODY 對象：是 DOCUMENT 對象的子對象，裡面存儲著所有顯示給用戶看的 Html 代碼
  3、innerText 屬性：頁面中顯示給客戶看的文本，注意：不是 Html 代碼呦
  4、innerHTML屬性：構成頁面的 Html 代碼
  5、對象.all.length屬性：頁面中所有 element 的個數。（all 用於表示所有對象）

  ok ，接下來就讓我們一邊寫代碼，一邊分析吧：

  Option Compare Database
  Dim blnSwitch As Boolean
  Private Sub Command1_Click()        '用於啟動浏覽功能
    Me.WebBrowser3.Navigate ("http://ip.loveroot.com/index.PHP?job=search")
  End Sub

  Private Sub Command11_Click()   '將需要搜索的IP 寫入全局變量
    splitIP Text1.Value
  End Sub
  Function splitIP(strip) '將需要搜索的IP 寫入全局變量
  Dim a() As String
  strip = strip & "."
  a = Split(strip, ".")

  Dim i As Long
  For i = 0 To UBound(a)
    If a(i) = "" Then a(i) = "0"
    lngSearchIP(4 - i) = CLng(a(i))
  Next i

  End Function

  Sub WriteLog(ip1 As String)         '讀取結果
    Dim dc As MSHTML.HtmlDocument
    Dim Bd As MSHTML.HtmlBody
    Dim El As MSHTML.HtmlElementCollection
    Dim strip As String
    Dim strAdd As String
    Dim strSql
    Dim i As Long
    Set dc = WebBrowser3.Document