Asp Uzak Veri Alma

Tahribat.com Forumları
line

Asp - Php - Cgi - Perl
line

Asp Uzak Veri Alma

07/Şub/10 20:44 Kısayol Şikayet Özel Mesaj

haluktemel

Kayıt Tarihi: 05/Nisan/2007

Merhaba arkadaşlar bi sorum olacak.
Bir sayfam var diyelim form.asp isminde ve form alanında bir textbox a url girip post ettiğimde , formdan gelen url adresinin örnek : http://hedefsite.com/index.php adresine gidip sitenin belirtlilen sayfasının html çıktısını alıp access veritabanıma kaydetmek istiyorum.

bunu hangi bileşenle ve hangi kodlarla yapabilirim , bilenler yardımcı olursa sevinirim.teşekkürler

Yaşamın amacı "Amacı olan bir yaşammıdır" Hacı ?

Alıntı yap
08/Şub/10 10:42 Kısayol Şikayet Özel Mesaj

renegadealien

Kayıt Tarihi: 23/Mart/2003

xmlhttp ile get komutu kullanarak sayfayı alacaksın,

get komutunu string değişkene atadığında gelen sayfa zaten sring olarak elindedir...

onu accesse kaydet, istediğin zamanda geri cağır ekrana bas...

xmlhttpgetin en güzel örneğii google a merkez bankası döviz kuru asp yazarak alabilirsin :)

10.05.2013 tarihli google arama sonucu : Aradığınız - "herşeyin hayırlısı rampanın bayırlısı" - ile ilgili hiçbir arama sonucu mevcut değil. Kendi özlü sözümdür, kaynak belirterek kullanınız.

Alıntı yap
08/Şub/10 20:33 Kısayol Şikayet Özel Mesaj

haluktemel

Kayıt Tarihi: 05/Nisan/2007

Evet Renegadealien şöyle bi şey buldum , uyarlayıp denedim oldu :)

dim def,ur,sb,co
def=request.form("def")
ur=request.form("ur")
sb=request.form("bildirim")
co=request.form("cod")

if def="" then
Response.write "<meta http-equiv='refresh' content='0; url=kaydet.asp'>"
end if

if ur="" then
Response.write "<meta http-equiv='refresh' content='0; url=kaydet.asp'>"
end if

if co="" then
Response.write "<meta http-equiv='refresh' content='0; url=kaydet.asp'>"
end if

if not Session("kod")=co then
Response.write "<meta http-equiv='refresh' content='0; url=kaydet.asp'>"
end if

dim url,urlt1,urlt2,urlt3,totallen,urlt5,tur,typez,isim,isimg,isimg2
url=ur
isimg=instr(1,url,"//")
isimg2=left(url,isimg+1)
url=Replace(url,"http://","")
url=url&"/"
urlt5=Instr(1,url,".")
tur=left(url,urlt5-1)
urlt1=Instr(1,url,"/")
urlt2=left(url,urlt1-1)
domain=urlt2
totallen=len(url)
urlt3=right(url,totallen-urlt1)
file=urlt3

dim objXMLHTTP

Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", ur, false
objXMLHTTP.Send

If Err.Number <> 0 Then
Response.Write "Yazdýðýnýz adres geçerli deðildir"
Response.write "Bu sayfa 10 saniye içerisinde yönlenecektir"
Response.write ""
Response.End
End If

' Response.Write objXMLHTTP.responseText

%>



<%
dim ks,k
set k=server.createobject("adodb.recordset")
ks="select * from mirror where tem_dom='" & domain & "'"

k.open ks,conn, 1,3

dim ve
function repp(ve)
ve=Replace(ve,"<","")
ve=Replace(ve,">","")
ve=Replace(ve,"script","")
ve=Replace(ve,"meta","")
ve=Replace(ve,"alert","")
ve=Replace(ve,"location","")
repp=ve
end function

if k.eof then
k.addnew
k("defacer")=repp(def)
k("tem_dom")=domain
k("url")=repp(ur)
k("tarih")=date
k("saat")=time
k("durum")="OnHold"
k("typez")="homepage"
k("htmlsource")=objXMLHTTP.responseText

k.update
Set objXMLHTTP = Nothing
else
Response.write("<script>alert('bilgisayarýnýz sitemize baglanamadý !');</script>")
Set objXMLHTTP = Nothing
end if
%>
<script>location.href="onaysiz_arsiv.asp";</script>

Yaşamın amacı "Amacı olan bir yaşammıdır" Hacı ?

Alıntı yap
08/Şub/10 21:44 Kısayol Şikayet Özel Mesaj

renegadealien

Kayıt Tarihi: 23/Mart/2003

Aldığın htmlyi düzgün bir filtreden geçirmezsen hocam

yada bu şekilde kullanırsan hacklenebilirsin...

10.05.2013 tarihli google arama sonucu : Aradığınız - "herşeyin hayırlısı rampanın bayırlısı" - ile ilgili hiçbir arama sonucu mevcut değil. Kendi özlü sözümdür, kaynak belirterek kullanınız.

Alıntı yap
09/Şub/10 17:11 Kısayol Şikayet Özel Mesaj

haluktemel

Kayıt Tarihi: 05/Nisan/2007

Evet haklısın , kapsamlı bi replace lazım db'ye kayıt yapmadan önce. Ben sadece prosedürün işleyişini öğrenmek istediğimden , onun için kodları ham olarak yazıverdim buraya.

Yaşamın amacı "Amacı olan bir yaşammıdır" Hacı ?

Alıntı yap

Toplam Hit: 1149 Toplam Mesaj: 5

Cevapla