I have read a lot of outdated posts and found a lot of people talking about thieves' techniques, such as the essence posts - the thief program principles and simple examples:
[url]http://www.im286.com/viewthread.php?tid=407182&extra=page%3D1[/url], etc., there are also collection programs to download, but I haven't seen a complete article for in-store storage, maybe I have read less posts. Although it is not very profound, I'll talk about it. I hope the masters don't laugh. I used to post an original film and television department
The government has not fallen behind. This time I am asking for it to fall behind again. I hope everyone can help me and I hope I can fall behind! !
Entering the warehouse is like a thief. You must first get the part that needs to be entered. I will take [url]http://www.skycn.com/article/77.html[/url] as an example.
<%
dimurl,mydate
url="http://www.skycn.com/article/77.html"' defines the URL address
SetOXML=server.CreateObject("Microsoft.XMLHTTP")
'The following defines two functions to obtain the data
PrivateFunctionBytesToBstr(body)'Use streams for Chinese encoding
SetADOS=Server.CreateObject("ADODB.Stream")
DimBdat
Bdat=Body
ADOS.Type=1
ADOS.Mode=3
ADOS.Open
ADOS.WriteBdat
ADOS.Position=0
ADOS.Type=2
ADOS.Charset="GB2312"
BytesToBstr=ADOS.ReadText
ADOS.Close
EndFunction
PublicFunctionGetData(byrefurl)'Use OXML to obtain data
'onerrorresumenext
SourceCode=OXML.open("GET",url,false)
OXML.send()
ifOXML.readystate<>4thenexitfunction
GetData=BytesToBstr(OXML.responseBody)'
iferr.number<>0thenerr.Clear
EndFunction
mydate=getdata(url)
mydate=Replace(mydate,chr(34),"")'Remove some special characters, such as double quotes, etc., and determine it according to your situation
mydate=Replace(mydate,chr(16),"")
response.writemydate
%>
We get the following data:
'''''''''''''''''''''''''codestart''''''''''''
Disposal of the section.........
href='../article/1034.html'>Seven security things broadband users need to pay attention to</A><br><br></td></tr></table></td><td><td