
Siteye Video Albüm Ekleme – dosya sırası
Bu sefer değişik bir yöntemle siteme videoları entegre ettim. Bu yöntem daha basit ve daha kullanışlı. İhtiyacımız olan bir youtube hesabı ve biraz web sitesi alanı. Kodlar benden.
- Öncelikle youtube’a yüklediğimiz bir videoyu açıyoruz. Videonun hemen altında “Embed” adında bir düğme var.
- Oraya tıklayınca açılan bölümdeki tüm kodları kopyalayıp bir txt dosyasına yapıştırın. Dosyaya güzel bir isim verin ve sitenizdeki videoalbum klasörünün altına kaydedin.
- Bu klasörde bir tane defult.asp dosyası ve bir sürü txt dosyası olması yetiyor.
Kodlar:
Dim f,f2,fso,filelist,fn:Dim parent Set fso=CreateObject("Scripting.FileSystemObject") f1="/VideoAlbum/":f2=Server.MapPath(f1) Set f=fso.GetFolder(f2):Set FileList=f.files f2=replace(f2,"\","/") if Request.QueryString("d")&"">"" then d=Request.QueryString("d")&".txt":d=replace(d,"+"," ") en if if fso.fileexists(f2&"/"&d)=true then Set f3=fso.OpenTextFile(f&"\"&d,1) Response.Write(f3.ReadLine) f3.Close:set f3=nothing end if response.wite("<hr />") For Each fn in FileList if lcase(right(fn,3))="txt" then fsdir_temp=right(fn,len(fn)-len(f)-1) fsdir_temp=left(fsdir_temp,len(fsdir_temp)-4) fsdir_temp2=replace(fsdir_temp," ","+") response.Write("<a href=""/VideoAlbum/"&fsdir_temp2&".html"">") response.Write(fsdir_temp&"</a><br/> ") end if next