Tekil Mesaj gösterimi
  #12 (permalink)   iTrader 
Alt 2007-03-22, 00:43
yehhucom - ait Kullanıcı Resmi (Avatar)
yehhucom yehhucom isimli üyemiz çevrimdışıdır. (Offline)
Senior Member
 
Üyelik tarihi: Mar 2006
Mesajlar: 527
Tecrübe Puanı: 2
iTrader: %96/23
yehhucom is on a distinguished road
Arrow

youtube bir videoyu örneğin http://www.youtube.com/v/pLIWJn2RJQw&autoplay=1 video urlsini url tablosunda ve id 1 olarak bulunduğunu varsayalım.

aşağıdaki kodu ytb.asp olarak kaydedin.

ytb.asp?id=1

yazdığınızda yukardaki youtube video linkini direkt kullanmak ve göstermek yerine sitenizde http://www.adres.com/ytb.asp?id=1 diyerekde video yu
kendi sitenizdeymiş gibi gösterebilirsiniz.

Kod:
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("klasor/db.mdb")
%>
<%deisken=cint(request.querystring("id"))
set id = Request.QueryString("id")
Set conn=server.createobject("adodb.connection")
dsnpath="DRIVER={MICROSOFT ACCESS DRIVER (*.MDB)}; "
dsnpath=dsnpath & "DBQ=" & Server.MapPath("klasor/db.mdb")
conn.open dsnpath
SQL = "select * from youtube where id="
SQL = SQL & id
Set AYDIN=conn.execute(sql)
Session.CodePage = 1254
%>
<%

set rs=server.createobject("adodb.recordset")
sql="select youtube.* from youtube where id="
sql=sql & deisken
rs.open sql,Sur,1,3

 %>
<% Response.Redirect rs("url") %>
Alıntı ile Cevapla