在網(wǎng)頁中顯示其它網(wǎng)頁的內(nèi)容

賈　磊

顯示其它網(wǎng)頁內(nèi)容的方法很多，比如現(xiàn)在比較火的ajax就能很好的實(shí)現(xiàn)。但是ajax不是每個(gè)人都會(huì)，尤其是新手不推薦一上手就向那么高的方向。這里介紹幾種比較簡(jiǎn)單的顯示其它網(wǎng)頁的方法。

方法一：frameset

frameset稱框架標(biāo)記，用以宣告html文件為框架模式，并設(shè)定視窗如何分割。

框架便是網(wǎng)頁畫面分成幾個(gè)框窗，同時(shí)取得多個(gè) URL。只需要 ＜ frameset ＞ ＜frame＞ 即可，頁面內(nèi)所有框架標(biāo)記需要放在一個(gè)總起的html 檔，這個(gè)檔案只記錄了該框架如何分割 ，不會(huì)顯示任何資料，所以不必放入 ＜body＞ 標(biāo)記，瀏覽框架必須讀取這個(gè)檔案面而不是其他框架窗的檔案。＜frameset＞ 是用來劃分框窗，每一窗框由一個(gè) ＜frame＞ 標(biāo) 記所標(biāo)示，＜frame＞必須在 ＜frameset＞ 范圍中使用。

方法二：iframe?標(biāo)記。

這標(biāo)記只適用於 IE(comet:也使用于FireFox)。 它的作用是在一頁網(wǎng)頁中間插入一個(gè)框窗以顯示另一個(gè)文件。這個(gè)標(biāo)記的用法同上面的大同小異。這里不錯(cuò)詳細(xì)介紹。

例子： ＜iframe src="iframe.html" name="test"align="MIDDLE" width=

"300" height="100" marginwidth="1" marginheight="1" frameborder="1" scrolling="Yes"＞ ＜/iframe＞

方法三：

以上兩種方法均只能從上到下，從左到右順序顯示網(wǎng)頁的內(nèi)容。但是如果只想顯示目標(biāo)網(wǎng)頁的部分內(nèi)容該怎么辦呢？這里介紹另一種方法，直接讀入網(wǎng)頁，然后分析顯示想要的部分。這個(gè)程序調(diào)用到了一個(gè)API函數(shù)XMLHTTP。XMLHTTP最初是由微軟公司發(fā)明的，在Internet Explorer 5.0中用作ActiveX對(duì)象，可被JavaScript、JScript、VBScript以及其它web瀏覽器內(nèi)嵌的腳本語言調(diào)用，通過HTTP在瀏覽器和web服務(wù)器之間收發(fā)XML或其它數(shù)據(jù)。XMLHTTP具體的使用方法這里就不闡述了。

具體程序如下：

＜%

function getHTTPPage(url) '調(diào)用XmlHTTP獲得網(wǎng)頁內(nèi)容信息

on error resume next

dim http

set http=Server.createobject("Microsoft.XmlHTTP")

Http.open "GET",url,false

Http.send()

if Http.readystate＜＞4 then

exit function

end if

getHTTPPage=bytes2BSTR(Http.responseBody)

set http=nothing

if err.number＜＞0 then err.Clear

end function

Function bytes2BSTR(vIn)‘編碼轉(zhuǎn)換

dim strReturn

dim i,ThisCharCode,NextCharCode

strReturn = ""

For i = 1 To LenB(vIn)

ThisCharCode = AscB(MidB(vIn,i,1))

If ThisCharCode ＜ &H80 Then

strReturn = strReturn & Chr(ThisCharCode)

Else

NextCharCode = AscB(MidB(vIn,i+1,1))

strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))

i = i + 1

End If

Next

bytes2BSTR = strReturn

End Function

Function Newstring(wstr,strng) '查找指定字符在字串中的位置

Newstring=Instr(lcase(wstr),lcase(strng))

if Newstring＜=0 then Newstring=Len(wstr)

End Function

txt=getHTTPPage("http://help.tianya.cn/about/about.htm") 目標(biāo)網(wǎng)頁的地址

start=Newstring(txt,"產(chǎn)品")

over=Newstring(txt,"版塊")

txt=mid(aa,start,over-start) '標(biāo)記開始和結(jié)束部分并截取，注釋掉以上3句就顯示目標(biāo)網(wǎng)頁的完整內(nèi)容

Response.Write txt

%＞◆