|
Link Directory
<%
Dim objGrab
Set objGrab = Server.CreateObject("MSXML2.SERVERXMLHTTP.3.0")
'Set objGrab = Server.CreateObject("Microsoft.XMLHTTP")
'If you get errors, replace the line above with this one.
'Inbetween the "", place the URL of the site you are grabbing the text from
strURL = "http://www.paperstreetwebdesign.com/directory.htm"
objGrab.Open "GET" , strURL , False ,"",""
objGrab.Send
If Err.Number = 0 Then
If objGrab.Status = 200 then
strOpen = objGrab.ResponseText
'STARTING AND ENDING POINTS ARE CASE SENSITIVE!!!!
'Starting Point: Inbetween the "", place the text that the script will begin grabbing from (Will be included on the page)
'***IMPORTANT NOTE*** If you must replace a piece of code with a quote ("), you must put two quotes ("")
sPoint= InStr( strOpen, "" )
'If you get an error that has something to do with 'Mid', try changing the starting/ending points above.
strGrab = Mid( strOpen, sPoint, ePoint-sPoint )
Else
Response.Write "Please enter a valid URL"
End if
Else
Response.Write Err.Description
End If
grabtext = strGrab
'This is the difficult part. Sometimes when you grab contents of another page, the URLs to other pages or images may be wrong. It may point to your site. You will nede to replace somethings. I have included an example below:
grabtext = Replace(grabtext, "", "")
'The code above would replace a piece of code that looks like
'You can also use this on img tags as well. You can have as many of these as you want.
'In the first pair of quotes, put the text that you want to replace
'In the second pair, put the text (if any) you want it to be replaced with
'Look below. Inbetween the first "", you put the original text you want to change. Inbetween the second pair of "", type what you want the text in the first "" to be changed to.
'***IMPORTANT NOTE*** If you must replace a piece of code with a quote ("), you must put two quotes ("")
'This displays the text that was grabbed by the script.
response.write grabtext
response.write " |
