4 svar · 202 visningar · startad av M.Cheraghi
nån vet på ett ungefär hur man gör att t.ex skriva in en URL i ett fält, sedan hämtar den sidan som URLet skickats till upp källkoden för den hemsidan, och skriver ut hela källkoden för hemsidan?
hade planer på att göra som sorts smurfalizer
Du kan hämta in allt till en sträng som du sedan gör förändringar i.
http://cgi.webforum.nu/wf/Forum11/HTML/006414.html
Mvh,
Tackar så mycket
Bara ett prblem, att bilderna visas ej när man kör denna kod, inga java applets eller flashar syns heller 
nån som vet vad man ska göra för att det skall synas?
inte bara det, det kommer även dubletter på varje sida, alltså att sidan visas två gånger efter varandra i samma fönster
<%
Function GetHTML(strURL)
Dim objXMLHTTP, strReturn
Set objXMLHTTP = SErver.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", strURL, False
objXMLHTTP.Send
strReturn = objXMLHTTP.responseText
Set objXMLHTTP = Nothing
GetHTML = strReturn
End Function
' Skriv ut sidan:
Response.Write GetHTML("http://www.aspfaqs.com/")
' Ladda ned:
Response.ContentType = "application/x-msdownload"
Response.AddHeader "Content-Disposition", "filename=Something.asp"
Response.BinaryWrite GetHTML("http://www.aspfaqs.com/")
%>
Bara ett prblem, att bilderna visas ej när man kör denna kod, inga java applets eller flashar syns heller
Det beror på att alla relativa sökvägar i det nedladdade dokumentet ju blir helt fel. Om du laddar ner http://www.aspfaqs.com/ som innehåller <IMG SRC="logotype.gif"> så måste du ju ersätta detta så att det blir <IMG SRC="http://www.aspfaqs.com/logotype.gif">. Ska du ändå göra en smurfalizer så kan du passa på att göra dina ersättningar samtidigt.
det kommer även dubletter på varje sida
Du kan inte ha utskriftsdelen och nedladdningsdelen igång samtidigt.
