因为有个朋友急需要这方面的资料,所以我简单点说: 两种方法: 1、正则表达式,先把代码写出来,我再详细解释。 图片都是写在里的,所以只要把这个代码查出来一切就解决了。 <% FunctionRegExpTest(patrn,strng) DimregEx,Match,Matches'建立变量。 SetregEx=NewRegExp'建立正则表达式。 regEx.Pattern=patrn'设置模式。 regEx.IgnoreCase=True'设置是否区分字符大小写。 regEx.Global=True'设置全局可用性。 SetMatches=regEx.Execute(strng)'执行搜索。 ForEachMatchinMatches'遍历匹配集合。 RetStr=RetStr&"Matchfoundatposition" RetStr=RetStr&Match.FirstIndex&".MatchValueis'" RetStr=RetStr&Match.Value&"'."&"<BR>" Next RegExpTest=RetStr EndFunction response.writeRegExpTest"\<img.*?\>",网页代码)
%> (做个广告:特价机票http://www.99jpw.cn) 这段代码运行的结果就是提取所有代码,得到了所有的图片。 2、split解决。 代码: a=网页内容 b=split(a," 这样把网页内容以ubound(b)的值是包含图片的总数。 下面提取详细信息。 用个循环。 for i=1 to ubound(b) c=split(b(i),">") c(0)就是图片相关的信息。 next 详细代码到http://www.99zz.org/99zz/wenzhang/?id=41下载。 |