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
------------------ - Listen, Iam a police officer if you kill me you are an dead man..
- No, you got that wrong, if i kill you you are a dead man
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/")
%>
------------------ - Listen, Iam a police officer if you kill me you are an dead man..
- No, you got that wrong, if i kill you you are a dead man
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.
255 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
