问，如何得到以下网页的网页源代码？

[ykwang]

它是一个框架网页，网址为
http://dffl.bookonline.com.cn/index.aspx

如何能得到 联系我们 下面的 网页源码？解决了另开贴送100分。

[jinesc]

保存下了， 分析里面的文本 找到 <frame 字符 分割

[ykwang]

能否详细一点?

[jinesc]

你用我下面的代码去下载 http://www.bookonline.com.cn/freepage/view_style_19.aspx?id=dffl&job=contactus
到文本文件


Private Sub Download(UrtFile As String, LocalFile As String)
Dim bData() As Byte
Dim intFile As Integer
Dim i As Integer
Dim ttt As String
intFile = FreeFile()
On Error Resume Next
Kill LocalFile
On Error GoTo 0
bData() = Inet1.OpenURL(UrtFile, icByteArray)
Open LocalFile For Binary Access Write As #intFile
Put #intFile, , bData()
Close #intFile
Exit Sub
err1:
MsgBox "error!"
Resume
End Sub


调用示例：
download "http://www.bookonline.com.cn/freepage/view_style_19.aspx?id=dffl&job=contactus
",app.path & "\1.txt"