网页内容截取组件V1.0

name: 梦小阳email: webmaster#gznets.comtitle: 网页实质截取组件from: http://www.oesun.com/blog/blogview.asp?logid=263载入组件及尝试源码:点击载入本领重心:不妨对恒定的字符串举行截取个中的某一局部,亦不妨对某一网页举行页面截取.安置本领:把上头的文献包载入后,解压后,双击reg.bat即可备案组件.而后把内里的test1.asp,test2.asp,test3.asp正片到你的iis假造目次底下.而后经过欣赏器欣赏(简直的iis摆设等正文略过)底下引见内里的本领挪用:geturl(url)本领该本领是归来某个网页的实质.参数惟有一个.底下看看挪用的例子test1.asp:<%dim test,urlset 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,strset test = server.createobject("gznets.echars")str="这是尝试的<table border=1><tr><td>test</td></tr></table>尝试"test.inputstr=strtest.inputtag1="<table"test.inputtag2="</table>"test.inputtype=0test.manageresponse.write test.outputstr &"<br>"test.inputstr=strtest.inputtag1="<td"test.inputtag2="</td>"test.inputtype=0test.manageresponse.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,urlset 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=1test.inputpos2="+"'表白向前test.inputtag2tag="</table>"test.inputtype=2test.manageresponse.write test.outputstrset test=nothing%>因为自己的空余功夫特殊之少 ,以是正文以及本组件写得特殊急遽,确定有不及或不完备之处,望诸位网友引导.特殊感谢