賈　磊

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

方法一：frameset

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

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

方法二：iframe?標記。

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

例子： ＜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)容。但是如果只想顯示目標網(wǎng)頁的部分內(nèi)容該怎么辦呢？這里介紹另一種方法，直接讀入網(wǎng)頁，然后分析顯示想要的部分。這個程序調(diào)用到了一個API函數(shù)XMLHTTP。XMLHTTP最初是由微軟公司發(fā)明的，在Internet Explorer 5.0中用作ActiveX對象，可被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") 目標網(wǎng)頁的地址

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

over=Newstring(txt,"版塊")

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

Response.Write txt

%＞◆