Recently, collection has been very popular, from news thieves, music thieves, news collections, and Flash collections, there are all traces of him. Now many people are interested in collections. In order to serve everyone, I am also writing a collection program, the name is the Xinyi Collection Program. Now I will talk about the relevant technologies used in collection.
What we are talking about below is not very advanced XMLHTTP technology. I will also talk about it briefly, how many pieces of contents need to be used for a collection
If you need to know more questions, please go to www.google.com to search for XMLHTTP technology and you will get more help. If you have any questions, you can post it back on the forum
The following only talks about how to obtain data online, and does not involve data processing
The first XMLHTTP technology
http://www.0579.info/study/exploitation/net/58685.htm
The fundamental principles mentioned in that article are already very detailed, but if we collect them generally, we don’t need to know too much at the beginning. As long as it is practical, it is urgent to find relevant documents when it is not enough in the future.
First, we need to create an XMLHTTP object
There are already many versions of the xmlhttp component released by Microsoft, and I know the following:
"MSXML2.ServerXMLHTTP.4.0"
"MSXML2.ServerXMLHTTP.3.0"
"MSXML2.ServerXMLHTTP"
"MSXML2.XMLHTTP.5.0"
"MSXML2.XMLHTTP.4.0"
"MSXML2.XMLHTTP.3.0"
"MSXML2.XMLHTTP"
"Microsoft.XMLHTTP
There are so many components above, so of course we need to apply for the highest version of the object, so what can I do?
Next I will take out a piece of code. You can see that it applies for XMLHTTP objects according to the highest version.
DimArrProgId,Prog,Flag,XmlHttpCom
ArrProgId=array("MSXML2.ServerXMLHTTP.4.0","MSXML2.ServerXMLHTTP.3.0","MSXML2.ServerXMLHTTP","MSXML2.XMLHTTP.5.0","MSXML2.XMLHTTP.4.0","MSXML2.XMLHTTP.3.0","MSXML2.XMLHTTP","Microsoft.XMLHTTP")
ForEachProgInarrProgId
If(IsObjInstalled(Prog)=true)Then
XmlHttpCom=Prog
ExitFor
EndIf
Next
'//<summary>
'// Rem checks whether the component supports yes, return True, return False
'//</summary>
PublicFunctionIsObjInstalled(strClassString)
OnErrorResumeNext
'//Set the initialization value
IsObjInstalled=False
Err=0
'//Test code
DimxTestObj
SetxTestObj=Server.createObject(strClassString)
If0=ErrThenIsObjInstalled=True
'//Clear the applicant
SetxTestObj=Nothing
Err=0
EndFunction
The above code is to apply for the highest version of XMLHTTP object supported by the current server.
Let's talk about the collection function function below
'GetFileText is the acquisition function function
PublicFunctionGetFileText(url)