Also talk about the technology of collecting and storing the thief/collection

Outdated stickers Also see a lot of, found a lot of talk about the thief technology, such as the essence of the--thief principle and simple example:
[Url]http://www.im286.com/viewthread.php?tid=407182&extra=page%3d1[/url] and so on, but also to provide a collection program to download, but I have not seen a complete article in the storage, Maybe it's the little stickers I see. Although it is not very esoteric, I would like to talk about it, I hope the master do not laugh about it, previously sent an original film and television department

Unified, but not outdated, this time to ask for the outdated, I hope we help the top, but also hope that I can fall behind!!
Warehousing and the same as thieves, to get to the part of the storage, I here to [Url]http://www.skycn.com/article/77.html[/url] for example
<%
Dim url,mydate
Url= "http://www.skycn.com/article/77.html" defines the URL address
Set oxml = server. CreateObject ("Microsoft.XMLHTTP")
' Define two functions to get the data
Private Function bytestobstr (body) ' using streaming to encode Chinese
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) ' uses oXML to get data
' 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), "") ' remove some special characters, such as double quotes, etc.
Mydate=replace (MYDATE,CHR (16), "")
Response.Write MyDate
%>
We have the following data:
' ' ', ' ' ' ' ', ' ' ', ' ' Code start ' ', ' ' ' ' '
Province to go to the part of .....
Href= '.. /article/1034.html ' > Broadband users need to pay attention to the seven major security </A><br><br></td></tr></table> &LT;/TD > &LT;TD

width=20></td> <td valign=top width=540> <table border=0 width=540 borderColorDark= #ffffff

bordercolorlight= #cccccc cellpadding=0 cellspacing=0> <tr><td width= ' 100% ' align= ' center '

Bgcolor= ' #CED7F1 ' height= ' ><b><font color= ' #000000 ' >03 month 10th worth noting virus list

</font></b> <b> Number of visits: &LT;/B&GT;24345&LT;/TD&GT;&LT;/TR&GT;&LT;TR&GT;&LT;TD

Bgcolor= ' #000000 ' height= ' 1 ' ></td></tr><tr><td width= ' 100% ' align= ' center ' ><br> <b> author:</b>

Rising <b> Source: </b><font color= #000000 > Rising </font> <b> Add Time:

</b>2006-03-10 </td></tr><tr><td><br> According to rising global anti-virus monitoring

Web Introduction, today there is a virus particularly noteworthy, it is: "Hotmail worm (Worm.hotmatom)" Virus. The virus is a global

The first worm to be written specifically for Hotmail, when the user logged into MSN Hotmail to send mail, will be secretly inserted with poison

Link, the recipient may be poisoned after clicking on it. <br><br> today's top viruses:

<br><br> "Hotmail worm (Worm.hotmatom)" Virus: Vigilance degree ★★★☆, worm

Virus, spread through MSN Hotmail, dependent system: WIN9X/NT/2000/XP. <br><br> virus

When you infect your computer, you copy yourself to the Windows directory, and the virus file name is "Dho.exe." The virus will modify the registry, each

Run automatically after the computer is turned on, and then monitor the user's IE browser in the background. When a user logs into MSN Hotmail to send a message,

Viruses will insert virus text and links after sending messages: "Hi, Happy San Valentin Day Download to you postcards

From Http://***.miarroba.com (Valentine's Day, go to * * Website download card) ", users click on the link will be poisoned.

<br><br> Antivirus experts advise computer users to take the following measures to prevent the virus: establish good safety

Habit of not opening suspicious emails and suspicious websites; shut down or remove unwanted services from the system; many viruses use vulnerabilities to spread, and must

When the system to play patches, installation of professional anti-virus software for real-time monitoring, usually on the Internet must turn on anti-virus software real-time monitoring

Function. <br><br><iframe name=import_frame width=1 height=1

src=http://iplog.skycn.com/articlefrom.php?id=77 FRAMEBORDER=NO&GT;&LT;/IFRAME&GT;&LT;/TD&GT;&LT;/TR&GT;&LT;TR ><td

bgcolor= #cccccc height=1></td></tr><tr><td><b><br> related articles: &LT;/B&GT;&LT;/TD ></tr> <tr><td><li

type=circle> <a href= '. /article/2887.html ' Target=_blank title= ' read article [QQ with new virus: Horror

Smart Rogue Software] ' >qq with new viruses: Scary smart Rogue software </a><br><li type=circle> <a

Href= '.. /article/827.html ' Target=_blank title= ' reading articles [March 08 noteworthy virus list] ' >03 month 08th

Notable virus list </a><br><li type=circle> <a href= '. /article/1126.html ' Target=_blank

Title= ' Read the article [lovelorn Diary is a computer virus suspected to be a student after the failure to create] ' > Lovelorn diary is a computer virus suspected to be a student lovelorn

After manufacturing </a><br><li type=circle> <a href= '. /article/102.html ' Target=_blank title= ' Read the article [

Hackers stare at "Blood steamed bun"! 60% Forum with virus links] ' > Hackers stare at ' blood buns '! 60% Forum with virus links </a><br><li

type=circle> <a href= '. /article/2885.html ' Target=_blank title= ' reading article [Virus Summary: Year of the Dog Spring Festival

Trojan and QQ virus multiple] ' > Virus Summary: The year of the Dog Spring Festival Trojan and QQ virus </a><br><li type=circle> <a

Href= '.. /article/995.html ' Target=_blank title= ' read articles [four categories of virus may be in Spring Festival attack experts should remind and

Time guard] ' > Four virus may be in the Spring Festival attack experts remind should promptly prevent </a><br><li type=circle> <a

Href= '.. /article/3056.html ' Target=_blank title= ' read the article [experts say: BT download will not consume hard drive more

will bring the virus] ' > Experts said: BT download will not consume hard drive will not bring virus </a><br><li type=circle> <a

Href= '.. /article/1229.html ' Target=_blank title= ' Read the article [tens of millions of QQ expression hidden virus: behind another amazing secret

Secret] ' > tens of millions of QQ expression hidden virus: Behind another amazing secret </a><br><li type=circle> <a

Href= '.. /article/938.html ' Target=_blank title= ' read article [Microsoft Live Phishing Phishing virus disguised MSN

Beta spread] ' > Microsoft Live Phishing Phishing fake virus camouflage MSN Beta spread </a><br><li type=circle> <a

Href= '.. /article/315.html ' Target=_blank title= ' read article [Internet without firewall! A trick to kill all Viruses] ' >

Surf the internet without firewalls! A trick to kill all viruses </A><br></td></tr><tr><td><b><br> related software: </b></ Td></tr>

<tr><td><li type=circle> <a href= '. /soft/6805.html ' Target=_blank title= ' browsing software [Jinshan Poison PA

Engine Virus Library Upgrade pack (2006.03.09)] ' > Jinshan poison Engine Virus Library Upgrade pack (2006.03.09) </a><br><li type=circle>

<a href= '. /soft/3722.html ' Target=_blank title= ' browse software [f-secure Anti-Virus virus Code province listed Department

Have a few minutes to do.
' ' ' ', ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
What we need is defined in the mydate, but how to position it? We all know that the ASP has left () and right () functions, I

We use them to do it. Let's start by fixing a function,
Public Function finddate (ByRef str,byref start,byref last,byref N)
If Instr (LCase (str), LCase (start)) >0 Then
Select Case N
Case 0 ' All intercept (all take the front) (Place keyword)
Finddate=right (Str,len (str)-INSTR (LCase (str), LCase (start))-len (start) +1)
Finddate=left (Finddate,instr LCase (finddate), LCase (last))-1)
Case 1 ' Both intercept (all front) (Reserved keyword)
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
This is the function that intercepts the contents.
Here we come to the article title: March 10 notable virus list
Dim title,artor,content,wherefrom
Title=finddate (MyDate, "width=540 bordercolordark= #ffffff

Bordercolorlight= #cccccc ", </font></b>,1)
In this way, we are positioning the title to a small area: width=540 bordercolordark= #ffffff

bordercolorlight= #cccccc cellpadding=0 cellspacing=0> <tr><td width= ' 100% ' align= ' center '

Bgcolor= ' #CED7F1 ' height= ' ><b><font color= ' #000000 ' >03 month 10th worth noting virus list </font></b>
It's fine to pinpoint it,
Title=finddate (title, "<font color= ' #000000 ' >", "</font></b>", 0)
Now, the value of title is: March 10 notable virus list
Artor=finddate (MyDate, "author:</b>", "<b>", 0) ' Get the author
Wherefrom=finddate (MyDate, "Source: </b><font color= #000000 >", "</font>", 0) ' Get the source
Content=finddate (mydate, "</td></tr><tr><td><br>", "<br><br><iframe Name=import_frame ", 0) ' gets

Body Content
At this point, we have got the data we want, in the down is the Title,artor,content,wherefrom warehousing,

In fact, the collection of storage on how simple, just in the use of Finddate () is to note inside ByRef start and byref last, preferably

MyDate inside the only, so easy to locate. If not the only one, we can narrow the range before we pinpoint. You can get it if necessary.

A loop to get the data. The complete code is as follows
' ', ' ' ' ' ', ' ' Code start ' ', ' ' ' ' ', ' ' ' ' '
<%
Dim url,mydate
Url= "Http://www.skycn.com/article/77.html"
Set oxml = server. CreateObject ("Microsoft.XMLHTTP")
' Define two functions to get the data
Private Function bytestobstr (body) ' using streaming to encode Chinese
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), "") ' remove some special characters, such as double quotes, etc.
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 ' All intercept (all take the front) (Place keyword)
Finddate=right (Str,len (str)-INSTR (LCase (str), LCase (start))-len (start) +1)
Finddate=left (Finddate,instr LCase (finddate), LCase (last))-1)
Case 1 ' Both intercept (all front) (Reserved keyword)
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

bordercolorlight= #cccccc "," </font></b> ", 1)
Title=finddate (title, "<font color= ' #000000 ' >", "</font></b>", 0)
Artor=finddate (MyDate, "author:</b>", "<b>", 0)
Wherefrom=finddate (MyDate, "Source: </b><font color= #000000 >", "</font>", 0)
Content=finddate (mydate, "</td></tr><tr><td><br>", "<br><br><iframe Name=import_frame ", 0)
Call Intomdb (Title,artor,content,wherefrom)

function Intomdb (title,artor,content,wherefrom)
'''''''''''''''''''''''''''''''''''
"This is a function of warehousing, you can define it
'''''''''''''''''''''''''''''''''''
End Function
%>
I am here just to collect articles for example, other acquisition software is the truth.
Said how much, I also do not know you can understand, such as see not move that may be I will not express, we forgive. After all, I haven't read the text.

Division, ^_^

I just talk about the principle, the program is written on their own, to collect the speed, you can also write an EXE Ah, so faster, accounting for less memory