Forum
Aktif konular
Üyeler
Kurallar
Arama
Sayfa Mirrorlama ? Sayfa Mirrorlama ?
-
<%
Function OkuURL(strAdres)
Dim oXMLHttp
on error resume Next
Set oXMLHttp = Server.CreateObject("MSXML2.XMLHTTP")
oXMLHttp.Open "GET" , Trim(strAdres), false
oXMLHttp.send
If oXMLHttp.status = 200 Then
OkuURL = oXMLHttp.responseText
ElseIf oXMLHttp.status = 404 Then
OkuURL = "Sayfa Bulunamadi."
ElseIf oXMLHttp.status = 500 Then
OkuURL = "Sayfada ic sunucu hatasi."
Else
OkuURL = "HATA. HATA KODU = " & oXMLHttp.status
End If
Set oXMLHttp = Nothing
End Function
if Len(Request.Form("Submit")) > 0 Then
Response.write OkuURL(Request.form("URL"))
else
%>
<form method="post">
<input type="text" name="URL" id="URL">
<input type="submit" name="submit" id="submit" value="Kaydet">
</form>
<%
end if
%>
Bu fonksion ile sayfa kodlarini almayi yaptim ama sorunum sayfadaki jpg gif css gibi islemleri gosteremiyorum bu mantik ile. yapmak istediğim sey. bir cesit toplist uygulamasi yazdim. ama her ay'n 15'nde sitenin default sayfasinin bir mirror'unu alip arsive koyup sitedeki gelismeleri gostermek istiyorum. ama Css - js ve images lerin gozukmediği icin bir anlami olmuyor sizin onereceğiniz bir mantik varmi acaba ?
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 944 Toplam Mesaj: 1
Cevapla