microsoft xmlhttp nesnesi ile bir url'nin kaynak kodunu okuyabilirsin.
ama unutmaki asp dosyanın içinde asp kodlar varsa bunlar yorumlanıp da ekrana yansır ve haliyle son halini çekmiş olursun.
eğer dosyanın orjinalini okumak istiyorsan da kod üzerinden ftp bağlantısı yapıp dosya okuyabilirsin.
örnek xmlhtp kullanımı:
Alıntı
Function BinaryToString(Binary)
Dim cl1, cl2, cl3, pl1, pl2, pl3
Dim L
cl1 = 1
cl2 = 1
cl3 = 1
L = LenB(Binary)
Do While cl1<=L
pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1)))
cl1 = cl1 + 1
cl3 = cl3 + 1
If cl3>300 Then
pl2 = pl2 & pl3
pl3 = ""
cl3 = 1
cl2 = cl2 + 1
If cl2>200 Then
pl1 = pl1 & pl2
pl2 = ""
cl2 = 1
End If
End If
Loop
BinaryToString = pl1 & pl2 & pl3
End Function
site = "https://www.r10.net/"
Set HTTP = Server.CreateObject("Microsoft.XMLHTTP" )
HTTP.Open "Get" , site, False
HTTP.SEnd
Sayfa_Al = BinaryToString(HTTP.ResponseBody)
Set HTTP = Nothing
response.write Sayfa_Al