一小偷类!!有兴趣的可以看看(4)
end sub
end class
%>
引用页(test.asp)
<!--#Include File="cls.asp"-->
<%
dim myThief,value
set myThief = new clsThief '实例化类
myThief.CheckFile "","index.html" '检测是否已经偷过并生成
myThief.url="http://www.sohu.com" '目标URL
myThief.Seize '开始偷取
myThief.Assay "<html>","-7","</html>","7" '剪切标记
myThief.Change "择优","浪人" '进行替换
value = myThief.result '最后得到的内容
myThief.MakeFile "","index.html" '生成文件
set myThief = nothing
'response.write value
%>
内容版权声明：除非注明，否则皆为本站原创文章。