|
|
Aspde include
- Konbuyu başlatan Ekstra
- Başlangıç tarihi
Kernel nickli üyenin daha önce forumda verdiği bir kodu vereyim sana
Ama bilirsin ki asp dosyanın gerçek kodunu değilde derlenmiş halini verir sana bu.
Bunu kendine göre düzenlersin
Ama bilirsin ki asp dosyanın gerçek kodunu değilde derlenmiş halini verir sana bu.
Bunu kendine göre düzenlersin
Kod:
Private Function YouTube(URL)
Const adTypeText = 2
Const adReadAll = -1
Set objYouTubeHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" )
Set objYouTube = Server.CreateObject("ADODB.Stream" )
objYouTubeHTTP.Open "GET" , URL, false
objYouTubeHTTP.sEnd
objYouTube.Open
objYouTube.Type = adTypeText
objYouTube.WriteText(objYouTubeHTTP.ResponseBody)
objYouTube.Position = 0
objYouTube.CharSet = "windows-1254"
YouTube = objYouTube.ReadText(adReadAll)
objYouTube.Close
Set objYouTube = Nothing
Set objYouTubeHTTP = Nothing
End Functiongerçek kodunu vermez biliyorum onu zaten sende 
url yerine http://www.sitem.com/linkler.php bunumu yazacağım.
Yardımın için çok teşekkür ederim.
Ve bu fonksiyonu ekrana nasıl yazdıracağım
Asp bilgim yok.
url yerine http://www.sitem.com/linkler.php bunumu yazacağım.
Yardımın için çok teşekkür ederim.
Ve bu fonksiyonu ekrana nasıl yazdıracağım
Asp bilgim yok.
fonksiyonu bi yerde kullanmak için response.write YouTube("http://www.mynet.com") yazarsın
yada kod=YouTube("http://www.mynet.com")
yada kod=YouTube("http://www.mynet.com")