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 '左右都截?。ǘ既∏懊妫ㄈヌ庩P鍵字） finddate=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1) finddate=Left(finddate,Instr(lcase(finddate),lcase(last))-1) case 1 '左右都截?。ǘ既∏懊妫ūＡ絷P鍵字） 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 '左右都截?。ǘ既∏懊妫ūＡ絷P鍵字） 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 %> 我這里只是以采集文章為例，其它的采集軟件等都是這個道理。 說了怎么多，我也不知道各位能不能看懂，如看不動那可能是我不會表達了，大家見諒。畢竟我沒讀過文
