http://www.eniyisecenek.com/dosya/ak...asp?key=tarkan bu url'den istediğin sayfadaki resim ve video başlığını alabildiğimi görebilirsin.
Sadece deneme amaçlı olduğu için görsellilk ve diğer bilgilerle uğraşmadım. Yazdığım kodu da ekliyorum en azından bir fikir verebilir.
Umarım yardımcı olur. Bu kodları geliştirmek sana kalmış
Benden bu kadar.<%
Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0" )
StrHTTP.Open "GET" , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
Function VeriCoz(Veri, Basla, Bit)
iBaslangic = Instr(Veri, Basla)
iBitis = Instr(Veri, Bit)
VeriCoz = Mid(Veri, iBaslangic+Len(Basla), iBitis-(iBaslangic+Len(Basla)))
End Function
key = Request.QueryString("key")
if key = "" Then
Response.Write"Lütfen bir kriter belirtiniz."
else
strURL = "http://www.akilli.tv/Search.aspx?Search="& key
Veriler = GetHttp(strURL)
VeriBasla = Instr(Veriler,"<table border=""0"">")
VeriBit = InstrRev(Veriler,"<table border=""0"">")
if VeriBasla = 0 OR VeriBit = 0 Then
Response.Write"Kayit Bulunamadi"
else
Bilgilerimiz = Mid(Veriler, VeriBasla, VeriBit-VeriBasla)
arrVideolar = Split(Bilgilerimiz,"<td width=""140px"">")
i = 0
For Each Video in arrVideolar
if i > 0 Then
Resim = VeriCoz(Video,"<img border=""0"" src='","' width=""133px"" height=""100px"" /></a>")
BaslikCozum = VeriCoz(Video," class='FilimBaslik","<td class='Basliklar'>")
Baslik = VeriCoz(BaslikCozum,"'>","</td>")
Response.Write "<img src="""& Resim &""" title="""& Baslik &"""><br>"& Baslik &"<hr>"
end if
i = i+1
Next
end if
end if
%> 