網頁內容截取組件

來源:互聯網
上載者:User
網頁 技術要點:可以對固定的字串進行截取其中的某一部分,亦可以對某一網頁進行頁面截取.
安裝方法:把上面的檔案包下載後,解壓後,雙擊reg.bat即可註冊組件.然後把裡面的test1.asp,test2.asp,test3.asp拷貝到你的IIS虛擬目錄下面.然後通過瀏覽器瀏覽(具體的IIS配置等本文略過)

下面介紹裡面的方法調用:
getUrl(url)方法
該方法是返回某個網頁的內容.參數只有一個.下面看看調用的例子test1.asp:

<%
Dim test,url
Set test = Server.CreateObject("gzNets.echars")
url="http://www.gzNets.com/error.html"
Response.Write test.getUrl(url)
Set test=nothing
%>

上面的例子將返回http://www.gzNets.com/error.html的頁面內容

manage方法
manage方法有三種方式,在調用manage方法之前要先對一系列的參數進行傳值.

方式一
功能:返回標誌1與標誌2之間的內容,並且包括標誌1與標誌2本身.
例如,返回<table與</table>之間的內容,並且包括了標誌<table和</table>

參數:

inputStr 傳入被截取的字串(該字串可以用剛才的getUrl()方法返回的網頁內容)

inputTag1 傳入標誌1
inputTag2 傳入標誌2
inputType 傳入方式0
outPutStr 輸出最後截取到的字串


例子test2.asp:
<%
Dim test,str
Set test = Server.CreateObject("gzNets.echars")
str="這是測試的<table border=1><tr><td>test</td></tr></table>測試"
test.inputStr=str
test.inputTag1="<table"
test.inputTag2="</table>"
test.inputType=0
test.manage
Response.Write test.outPutStr &"<br>"
test.inputStr=str
test.inputTag1="<td"
test.inputTag2="</td>"
test.inputType=0
test.manage
Response.Write test.outPutStr &"<br>"
Set test=nothing
%>


方式二
功能:返回標誌1與標誌2之間的內容,但不包括標誌1與標誌2本身.
例如,返回<table與</table>之間的內容,但不包括了標誌<table和</table>

參數:

inputStr 傳入被截取的字串(該字串可以用剛才的getUrl()方法返回的網頁內容)
inputTag1 傳入標誌1
inputTag2 傳入標誌2
inputType 傳入方式1(注意這裡的傳入方式必須改成1)
outPutStr 輸出最後截取到的字串

例子可以自己修改一下test2.asp,把裡面的inputType改成1看看效果~~~:

方式三
功能:要理解這個功能比較困難.我們通過一些例子來說明吧.
例如,字串str="這是測試的<table border=1><tr><td>test</td></tr></table>測試",我們可以通過尋找"<tr>",因為"<tr>"只有一個(當然其它也有唯一的標誌),然後再尋找"<tr>"前面的"<".然後設定尾部標誌.我們可以通過尋找"</tr>",然後尋找"</tr>"後面的">".這樣首位置和尾位置都確定了.

參數:

inputStr 傳入被截取的字串(該字串可以用剛才的getUrl()方法返回的網頁內容)
inputTag1 傳入標誌1 例如上面說的"<tr>"
inputPos1 傳入向右搜尋,還是向左搜尋.有兩個值:+表示向右 -表示向左
inputTag1Tag 傳向標誌1的參考標誌.就是要向右向左搜尋的標誌.例如上面說的"<"
inputNum1 傳入搜尋標誌1的右或左邊的第幾個inputTag1Tag
inputTag2 傳入標誌2 例如上面說的"</tr>"
inputPos2 傳入向右搜尋,還是向左搜尋.有兩個值:+表示向右 -表示向左
inputTag2Tag 傳向標誌1的參考標誌.就是要向右向左搜尋的標誌.例如上面說的">"
inputNum2 傳入搜尋標誌2的右或左邊的第幾個inputTag2Tag
inputType 傳入方式2(注意這裡的傳入方式必須改成21)
outPutStr 輸出最後截取到的字串

例子test3.asp:
目的:我們將取出藍色理想(www.blueidea.com)首頁底部的"關於網站 | 廣告服務 | 聯絡站長 | 著作權隱私 | 友情連結 | 投稿熱線 | 網站地圖"內容
<%
Dim test,url
Set test = Server.CreateObject("gzNets.echars")
url="http://www.blueidea.com/index.asp"
test.inputStr=test.getUrl(url)
test.inputTag1="關於網站"
test.inputNum1=1'表示是只有一個
test.inputPos1="-"'表示是向左搜尋
test.inputTag1Tag="<table"'標誌1的參考標誌
test.inputTag2="著作權"
test.inputNum2=1
test.inputPos2="+"'表示向前
test.inputTag2Tag="</table>"
test.inputType=2
test.manage
Response.Write test.outPutStr
Set test=nothing
%>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。