A href='../soft/3722.html' target=_blank title='浏览软件[F-Secure Anti-Virus 病毒码省列去部
分.............. ''''''''''''''''''''''''''''code end ''''''''''''''''' 我们所需要的也就定义在mydate里了，但如何来定位呢？大家都知道asp里有left()和right() 函数，我
们就用它们来做。我们先来定个函数， Public Function finddate(byref str,byref start,byref last,byref n) If Instr(lcase(str),lcase(start))>0 then select case n case 0 '左右都截取（都取前面）（去处关键字） finddate=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1) finddate=Left(finddate,Instr(lcase(finddate),lcase(last))-1) case 1 '左右都截取（都取前面）（保留关键字） finddate=Right(str,Len(str)-Instr(lcase(str),lcase(start))+1) finddate=Left(finddate,Instr(lcase(finddate),lcase(last))+Len(last)-1) end select Else finddate="" End if end function 这个就是截取里面内容的函数了 下面我们来得到文章标题：03月10日值得注意病毒列表 dim title,artor,content,wherefrom title=finddate(mydate,"width=540 borderColorDark=#ffffff
个循环来得到数据。完整的代码如下 ''''''''''''''''''''code start''''''''''''''''''' % dim url,mydate url="http://www.skycn.com/article/77.html" Set OXML = server.CreateObject("Microsoft.XMLHTTP") '下面定义两个函数，得到数据 Private Function BytesToBstr(body) '利用流进行中文编码 Set ADOS = Server.CreateObject("ADODB.Stream") Dim Bdat Bdat=Body ADOS.Type = 1 ADOS.Mode =3 ADOS.Open ADOS.Write Bdat ADOS.Position = 0 ADOS.Type = 2 ADOS.Charset = "GB2312" BytesToBstr = ADOS.ReadText ADOS.Close End Function Public Function GetData(byref url) 'on error resume next SourceCode = OXML.open ("GET",url,false) OXML.send() if OXML.readystate>4 then exit function GetData = BytesToBstr(OXML.responseBody)' if err.number>0 then err.Clear End Function mydate=getdata(url) mydate=Replace(mydate,chr(34),"") '去掉一些特殊字符，如双引号等,看自己情况定 mydate=Replace(mydate,chr(16),"") Public Function finddate(byref str,byref start,byref last,byref n) If Instr(lcase(str),lcase(start))>0 then select case n case 0 '左右都截取（都取前面）（去处关键字） finddate=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1) finddate=Left(finddate,Instr(lcase(finddate),lcase(last))-1) case 1 '左右都截取（都取前面）（保留关键字） finddate=Right(str,Len(str)-Instr(lcase(str),lcase(start))+1) finddate=Left(finddate,Instr(lcase(finddate),lcase(last))+Len(last)-1) end select Else finddate="" End if end function dim title,artor,content,wherefrom title=finddate(mydate,"width=540 borderColorDark=#ffffff
function intomdb(title,artor,content,wherefrom) ''''''''''''''''''''''''''''''''''' '''这个是入库的函数，自己定义下就可以了 ''''''''''''''''''''''''''''''''''' end function %> 我这里只是以采集文章为例，其它的采集软件等都是这个道理。 说了怎么多，我也不知道各位能不能看懂，如看不动那可能是我不会表达了，大家见谅。毕竟我没读过文
