![]() |
|
|
||||
|
ASP ÖÐRENMEYE ÇALIÞAN ARKADAÞLAR BÝRLÝKTE BASÝT BÝR VÝDEO SCRÝPTÝ HAZIRLIYALIM==============>>>
Öncelikle Video sitesi için elimizde Media Player Doslarý Olmasý Gerekmetedir. BURADAN ÝNDÝRÝN Þimdi Masa üstünde bir video isminde Klasör açalým Onun Ýçine admin klasörü ayarlar.asp default.asp playlist.asp þeklinde FrontPagede Hazýrlanmak üzere 3 Sayfa hazýrlýyalayým ADMÝN KLASÖRÜN ÝÇERÝSÝNE db diye bir klasör açalým HERÞEYDEN ÖNCELÝKLE DATABASEMÝZÝ KURALIM ADMÝN >>db>> klasörün içerisinde player.mdb diye bir dosya hazýrlýyoruz ve bunu microsoft access ile açýp orda Tasarým Görünümünde yeni diyoruz açýlan pencerede (id) biçimi (otomatik sayý) (title) biçimi (metin) (creator) biçimi (metin) (location) biçimi (metin) (info) biçimi (metin) (tarih) biçimi (tarih) durum (biçimi) metin (içine 1 deðerini yazalým) ve X ten kapatýyoruz karþýmýza kaydedilsinmi çýkcak evet diyoruz ve "video" ismini vererek kayýt ediyoruz ve kapatýyoruz DEFAULT.ASP YÝ FRONTPAGE veya Benzer Görevi yapan program ile açalým; KOD BÖLÜMÜNE AYNEN BUNU YAZIN <html> <head> <title>BURAYA SÝTE BAÞLIÐINI YAZIN</title> <meta http-equiv="Content-Type" content="text/html; charset=windows-1254"><meta name="marka" content="markapc"> <style type="text/css"> <!-- .style1 { color: #000000; font-weight: bold; } --> </style> <body bgcolor="white"> <style> { FONT-SIZE: 10px; COLOR: #FFFFFF; FONT-FAMILY: verdana } TABLE { FONT-SIZE: 10px; COLOR: #000000; FONT-FAMILY: verdana } BODY { FONT-SIZE: 10px; COLOR: #FFFFFF; FONT-FAMILY: verdana } a{color: #FFFFFF; text-decoration:underline; } a:visited { color : #FFFFFF;text-decoration:underline; } a:hover {color: #FFFFFF; text-decoration:none; } </style> <script type="text/javascript" src="swfobject.js"></script> <div align="center"><p id="player2"> </p> <script type="text/javascript"> var s2 = new SWFObject("flvplayer.swf","playlist","300","312"," 7"); s2.addParam("allowfullscreen","true"); s2.addVariable("file","playlist.asp"); s2.addVariable("displayheight","200"); s2.addVariable("backcolor","0x000000"); s2.addVariable("frontcolor","0xCCCCCC"); s2.addVariable("lightcolor","0x557722"); s2.write("player2"); </script><br> <br><b><a href="admin/default.asp" ><font color="000000">Yönetici Bölümü</font></a></b><br> <br><font color="#000000">2008 MARKA</font><br> </div></body></head></html> BUNU KAYIT EDÝP KAPATALIM __________________________________________________ ____________ ÞÝMDÝ AYARLAR.ASP YÝ AÇALIM VE ÝÇÝNE <% strVeritabaniYolu = Server.Mappath("admin/db/player.mdb") set baglanti= Server.CreateObject("adodb.connection") baglanti.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source="&strVeritabaniYolu %> aynen yazalým bunun amacý Sstemin bir birini bulmasý için gereken veri tabaný yolu içermektedir. BUNUDA KAYIT EDÝP KAPATALIM __________________________________________________ ____________ PLAYLÝST.ASP YÝ AÇALIM VE <!--#include file="ayarlar.asp" --> <?xml version="1.0" encoding="utf-8"?> <% Response.Buffer = True Response.ContentType = "text/xml" %> <playlist version="1" xmlns="http://xspf.org/ns/0/"> <trackList> <% sql = "SELECT * FROM video Where durum=1 ORDER BY id DESC" Set video = Server.CreateObject("ADODB.Recordset") video.Open sql, baglanti, 1, 3 %> <% Do While Not video.EOF %> <track> <title><%=video("title")%></title> <creator><%=video("creator")%></creator> <location><%=video("location")%></location> <info><%=video("info")%></info> </track> <% video.movenext loop %> </trackList> </playlist> BUNU OLDUÐU GÝBÝ YAZALIM EN ÜSTTEKÝ ÝNCLUDE YAZAN KISIM BAÞKA BÝR SAYFADAN BÖLÜM VE AYAR ÇAÐIRMANIZA YARAR ÖRNEK OLARAK BÝR SÝTE YAPTIÐINIZDA ÜST ALT ORTA KISIM YAPARSINIZ TABLO OLARAK ÜST KISIM YERÝNE Ýnclude denilen olayý yaptýðýnýzda ust.asp þeklinde bir sayfa açýp görüntü ve ayarlamanýzý orada yaparsýnýz tekrar tekrar default (anasayfa) ile uðraþmanýz Gerekmez Evet arkadaþlar kafanýzý fazla karýþtýrmadan ADMÝN ÝSMÝNDE AÇITÐIMIZ KLASÖRE GELÝYORUZ VE ÝÇERÝSÝNE image, db (database)nin geleceði yer ve admin.pass ayarlar.asp default.asp þeklinde 3 Sayfa hazýrlýyoruz _______________________________ DEFAULT.ASP YÝ AÇIYORUZ ÝÇÝNE AYNEN <!--#include file="admin_pass.asp"--> <!--#include file="ayarlar.asp"--> <html> <head> <title>Video kontrol bölümü</title> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1254"> <meta http-equiv="content-type" content="text/html; charset=iso-8859-9"> <meta name="marka" content="markapc"> <style type="text/css"> <!-- .style1 {color: #000000} --> </style> <body bgcolor="white"> <div align="center"> <style> { FONT-SIZE: 10px; COLOR: #FFFFFF; FONT-FAMILY: verdana } TABLE { FONT-SIZE: 10px; COLOR: #000000; FONT-FAMILY: verdana } BODY { FONT-SIZE: 10px; COLOR: #FFFFFF; FONT-FAMILY: verdana } a{color: #FFFFFF; text-decoration:underline; } a:visited { color : #FFFFFF;text-decoration:underline; } a:hover {color: #FFFFFF; text-decoration:none; } </style> <body bgcolor="#FFFFFF"> </div> <div align="center"> <table width="850" border="0" cellpadding="0" cellspacing="0"> <tr> <td background="img/ongolge.jpg" height="27"><font color="#000000">panel</font></td> </tr> <tr> <td><p><%query = Request.Querystring("islem")%><%if query = "sil" then%> <% id = Request.QueryString("id") Set sil = Server.CreateObject("ADODB.RecordSet") SQL_delete = "DELETE from video WHERE id="&id&"" sil.open SQL_delete,baglanti,1,3 Response.Redirect Request.serverVariables("HTTP_REFERER") %><%elseif query = "durdur" then%> <% id = Request.QueryString("id") Set durdurz = Server.CreateObject("ADODB.RecordSet") SQL_durdur = "Select* from video WHERE id="&id&"" durdurz.open SQL_durdur,baglanti,1,3 onay = 0 durdurz("durum") = onay durdurz.Update response.Redirect("default.asp") durdurz.close set durdurz=nothing baglanti.close set baglanti=nothing %><%elseif query = "baslat" then%> <%id = Request.QueryString("id") Set baslatz = Server.CreateObject("ADODB.RecordSet") SQL_baslat = "Select* from video WHERE id="&id&"" baslatz.open SQL_baslat,baglanti,1,3 onay = 1 baslatz("durum") = onay baslatz.Update response.Redirect("default.asp") baslatz.close set baslatz=nothing baglanti.close set baglanti=nothing %> <%elseif query = "duzenle" then%> <br> <br> <%id= Request("id") Set duzenle = Server.CreateObject("ADODB.Recordset") StrSql = "Select * from video where id = " &id& "" duzenle.Open StrSql, baglanti, 1, 3 %> <form method="POST" action="default.asp?islem=video_kaydet"> <div align="left"></div> <div align="center"> <table width="356" border="1" cellpadding="2" cellspacing="3" bordercolor="#FFFFFF"> <tr> <td colspan="2" background="img/ongolge.jpg" height="27"> <font color="#000000">Video Düzenleme </font> </td> </tr><tr> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><div align="left"><strong> <font size="2" face="Tahoma" color="#000000">Video Baþlýðý (title) : </font></strong></div></td> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><font face="Tahoma"> <input name="title" id="title" style="border:1px solid #000000; font-family:Tahoma; font-size:8pt; float:right" value="<%=duzenle("title")%>" size="24"> </font></td> </tr> <tr> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><div align="left"><strong> <font size="2" face="Tahoma" color="#000000">Video Ýsmi :</font></strong></div></td> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><font face="Tahoma"> <input name="creator" id="creator" style="border:1px solid #000000; font-family:Tahoma; font-size:8pt; float:right" value="<%=duzenle("creator")%>" size="24"> </font></td> </tr> <tr> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><div align="left"><strong> <font size="2" face="Tahoma" color="#000000">Dosya Adý (Dosya yolu) : </font></strong></div></td> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><div align="right"> <input name="location" id="location" style="font-family: Tahoma; font-size: 8pt; border: 1px solid #000000; float:right" value="<%=duzenle("location")%>" size="24"> </div></td> </tr> <tr> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><div align="left"><strong> <font size="2" face="Tahoma" color="#000000">Gerekli link (gerekirse) : </font></strong></div></td> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><font face="Tahoma"> <input name="info" id="info" style="border:1px solid #000000; font-family:Tahoma; font-size:8pt; float:right" value="<%=duzenle("info")%>" size="24"><input name="id" type="hidden" id="id" value="<%=duzenle("id")%>"> </font></td> </tr> <tr> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><div align="left"><strong> <font face="Tahoma" size="2" color="#000000">Tarih : </font></strong></div></td> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><font face="Tahoma"> <input name="tarih" id="tarih" style="border:1px solid #000000; font-family:Tahoma; font-size:8pt; background-color:#FFFFFF; float:right" value="<%=formatdatetime(Now,1)%>" size="24" readonly /> </font></td> </tr> <tr> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"> <input type="reset" value="Temizle" name="B12" style="font-family: Tahoma; font-size: 8pt; font-weight: bold; border: 1px solid #000000; "></td> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><div align="center"> <input type="submit" value="Düzenle" name="update" style="font-family: Tahoma; font-size: 8pt; font-weight: bold; border: 1px solid #000000; background-color: #FFFFFF"> </div></td> </tr> </table> <br> <a href="default.asp"><font color="000000">Geri</font></a></div> </form> <%elseif query = "video_kaydet" then%> <% id = request.form("id") title = request.form("title") location = request.form("location") info = request.form("info") creator = request.form("creator") tarih = request.form("tarih") set duzkayit = server.createobject("adodb.recordset") sql = "select * from video where id=" & id duzkayit.open sql, baglanti, 1, 3 duzkayit.update duzkayit("title") = title duzkayit("creator") = creator duzkayit("location") = location duzkayit("info") = info duzkayit("tarih") = tarih duzkayit.update response.redirect("default.asp?islem=duzenle&id="& duzkayit("id")&"") %> <%elseif query = "yeni_video_kaydi" then %><br> <br> <form method="POST" action="default.asp?islem=yeni_video_kaydet"> <div align="left"></div> <div align="center"> <table width="356" border="1" cellpadding="2" cellspacing="3" bordercolor="#FFFFFF"> <tr> <td colspan="2" background="img/ongolge.jpg" height="27"> <font color="#000000">Yeni Video Ekleme </font> </td> </tr><tr> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><div align="left"><strong> <font size="2" face="Tahoma" color="#000000">Video Baþlýðý (title) : </font></strong></div></td> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><font face="Tahoma"> <input name="title" id="title" style="border:1px solid #000000; font-family:Tahoma; font-size:8pt; float:right" size="24"> </font></td> </tr> <tr> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><div align="left"><strong> <font size="2" face="Tahoma" color="#000000">Video Ýsmi :</font></strong></div></td> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><font face="Tahoma"> <input name="creator" id="creator" style="border:1px solid #000000; font-family:Tahoma; font-size:8pt; background-color:#FFFFFF; float:right" size="24"> </font></td> </tr> <tr> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><div align="left"><strong> <font size="2" face="Tahoma" color="#000000">Dosya Adý (Dosya yolu) : </font></strong></div></td> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><div align="right"> <input name="location" id="location" style="font-family: Tahoma; font-size: 8pt; border: 1px solid #000000; background-color: #FFFFFF; float:right" size="24"> </div></td> </tr> <tr> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><div align="left"><strong> <font size="2" face="Tahoma" color="#000000">Gerekli link (gerekirse) : </font></strong></div></td> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><font face="Tahoma"> <input name="info" id="info" style="border:1px solid #000000; font-family:Tahoma; font-size:8pt; float:right" size="24"> </font></td> </tr> <tr> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><div align="left"><strong> <font size="2" face="Tahoma" color="#000000">Yayýnlanma Durumu : </font></strong></div></td> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><div align="right"><font face="Tahoma"> <select name=durum class="fxbutton" id="durum" size="2" style="border:1px solid #000000; font-family:Tahoma; font-size:8pt; float:right; width:90%"> <option class="navi" value="1" selected="selected">Yayýnlansýn</option> <option value="0">Yayýnlanmasýn</option> </select> </font></div></td> </tr> <tr> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><div align="left"><strong> <font face="Tahoma" size="2" color="#000000">Tarih : </font></strong></div></td> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><div align="right"><font face="Tahoma"> <input name="tarih" id="tarih" style="border:1px solid #000000; font-family:Tahoma; font-size:8pt; float:right" value="<%=formatdatetime(Now,1)%>" size="24" readonly /> </font></div></td> </tr> <tr> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"> <input type="reset" value="Temizle" name="B12" style="font-family: Tahoma; font-size: 8pt; font-weight: bold; border: 1px solid #000000; "></td> <td bgcolor="#F7F7F7" style="border: 1px solid #CCCCCC"><div align="center"> <input type="submit" value="Düzenle" name="update" style="font-family: Tahoma; font-size: 8pt; font-weight: bold; border: 1px solid #000000; background-color: #FFFFFF"> </div></td> </tr> </table> <br> <a href="default.asp"><font color="000000">Geri</font></a></div> </form> <%elseif query = "yeni_video_kaydet" then%> <br> <br> <% title = request.form("title") location = request.form("location") creator = request.form("creator") info = request.form("info") durum = request.form("durum") tarih = request.form("tarih") set yeniekle = server.createobject("adodb.recordset") sql = "select * from video" yeniekle.open sql, baglanti, 1, 3 yeniekle.addnew yeniekle("title") = title yeniekle("creator") = creator yeniekle("location") = location yeniekle("info") = info yeniekle("tarih") = tarih yeniekle("durum") = durum yeniekle.update response.redirect("default.asp") yeniekle.close set yeniekle=nothing%> <%else%></p> <br> <div align="right"> </div><br> <br> <div align="center"> <table width="95%" border="0" cellpadding="2" cellspacing="3" bgcolor="#D3DBF8"> <tr> <td width="23%" height="40" bgcolor="#E2E2E2"><div align="left"> <font color="#000000" size="1" face="Arial"> <b>Video Baþlýðý </b></font></div></td> <td width="18%" bgcolor="#E2E2E2"><div align="left"> <font color="#000000" size="1" face="Arial"><b> Video Ýsmi </b></font></div></td> <td width="13%" bgcolor="#E2E2E2"><div align="left"> <font color="#000000" size="1" face="Arial"><b> Dosya Adý </b></font></div></td> <td width="12%" bgcolor="#E2E2E2"><div align="left"> <font color="#000000" size="1" face="Arial"><b>Ýnfo</b></font></div></td> <td width="20%" bgcolor="#E2E2E2"><div align="left"> <font color="#000000" size="1" face="Arial"><b>Eklenme Tarihi </b></font></div></td> <td width="8%" bgcolor="#E2E2E2"><div align="left"> <font color="#000000" size="1" face="Arial"><b>Kontrol </b></font></div></td> </tr> <tr> <td bgcolor="#F0F0F0"><%=video("title")%></td> <td bgcolor="#F0F0F0"><%=video("creator")%></td> <td bgcolor="#F0F0F0"><%=video("location")%></td> <td bgcolor="#F0F0F0"><%=video("info")%></td> <td bgcolor="#F0F0F0"> <%=video("tarih")%></td> <td bgcolor="#F0F0F0"><div align="center"><font color="#000000"> <a href="default.asp?islem=duzenle&id=<%=video("id")% >"> <font color="#000000">BAK</font></a></font> <a href="default.asp?islem=sil&id=<%=video("id")%>">< font color="#000000"> SÝL</font></a></div></td> </tr> </table> </div> <div align="center"><br> Toplam <b><%=kayitsayi%></b> adet video bulunmakta.</div><br> <%end if%><p> </p></td> </tr> </table> <br> 2008 MARKA</div> _________________________________________________ NOT ARKADAÞLAR KODLAMADA ARÝAL TYPE COLOR YAZILMASININ SEBEBÝ TASARIM YANÝ KODLAMA YAPILIRKEN TEXTE VERÝLEN EFEKTLER SONUCU ORTAYA ÇIKAR BÝLGÝNÝZE __________________________________________________ ________ adminpass.asp sayfasýný açýyoruz tekrar Frontpage veya Not Defteri olur <% dim winpass winpass = "BURAYA ADMÝN ÞÝFRESÝ" if session("1v2") <> winpass then if request.form("1v2") <> winpass then call winpassform else session("1v2") = winpass end if end if %> <% sub winpassform aynen = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL") %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> <title>Admin Panel giriþi</title> </head> <body bgcolor="#FFFFFF"> <p align="center"> </p> <form method=post action="<%=aynen%>"> <div align="center"> <table width="264" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="263" height="21"><div align="center"></div></td> </tr> <tr> <td><center> <table width="200" border="0" cellpadding="0" cellspacing="0"> <tr> <td><table width="31" border="0" cellpadding="0" cellspacing="0" bordercolor="#FF9900"> <tr> <td width="31" height="26"> </td> </tr> </table></td> <td><div align="center"> <input type="password" name="1v2" value="þifre" size="20" class="form" style="border: 1px solid #000000; font-family:Tahoma; font-size:8pt; background-color:#FFFFFF"> <input name="submit" type="submit" class="form" style="font-family: Tahoma; font-size: 8pt; font-weight: bold; border: 1px solid #000000; " value="Giriþ"> </div></td> </tr> </table></td> </tr> <tr> <td height="21"> </td> </tr> </table> </form> </font> <% response.end end sub %> RESPONSENÝN DEDÝÐÝ GÝBÝ BUDA BÝTTÝ ![]() ______________________________________ AYARLAR.ASP SAYFASINI AÇIYORUZ (ADMÝN KLASÖRÜNDEKÝ) <% strVeritabaniYolu = Server.Mappath("db/player.mdb") set baglanti= Server.CreateObject("adodb.connection") baglanti.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source="&strVeritabaniYolu %> YAZIYORUZ BU SON ÝÞLEM DÝ VE BUDA AYNEN ÜST KLAÖSRDE OLDUÐU GÝBÝ BÝTÝÞ ÝÞLEMÝNÝN BÝR BÝRÝNE BAÐLANTISI OLARAK ANIMSAYABÝLÝRSÝNÝZ ÝÞLEM BU KADAR FTP BÖLÜMÜNDEN DOSYALARINIZI YAYINA ATINIZ ADRESÝNÝZ WWW.?.COM OLUCAKTIR ADMÝN GÝRÝÞ SAYFASI WWW.?.COM/ADMÝN OLUCAK ÝNÞ. FAYDASI DOKUNUR ARKADAÞLARIMIZA VE SON NOT: BÝLMEK AYIP DEÝLDÝR ÖÐRENMEMEK AYIP ASP KOLAY YAZILIMDIR BÝRAZ MERAK BÝRAZDA ÇAPA ÝÞÝ BÝTÝRÝR |
| Ucuz ürün ihaleleri |
![]() |
LinkBacks (?)
LinkBack to this Thread: http://forum.iyinet.com/asp-net/93284-adim-adim-video-script.html
|
||||
| Konuyu Başlatan | For | Type | Tarih | |
| ADIM ADIM VÝDEO SCRÝPT | This thread | Refback | 2008-10-30 20:51 | |
| ADIM ADIM VÝDEO SCRÝPT - Baðlantý Arar || Türk iþi | This thread | Pingback | 2008-05-13 23:59 | |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | |
| Stil | |
|
|
Benzer Konular
|
||||
| Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
| Sevgilivakti.Com+HOST+SCRÝPT:90 YTL | faruk_line | Site Satýþ - Sipariþ - Takas | 1 | 2008-04-28 15:57 |
| 6 SCRÝPT SATILIKTIR | Forumokulu | Script Satýþ-Sipariþ | 10 | 2006-11-05 19:41 |
| Blog dagýtabýlecegým Scrýpt(acil) | AlwaysFc | Script Satýþ-Sipariþ | 3 | 2006-10-27 20:00 |
| php scrýpt yazdýrýlacak | AlwaysFc | Script Satýþ-Sipariþ | 5 | 2006-09-19 16:50 |
| Php onlýne muzýk dýnlemek ýcýn scrýpt | ahmetekinler | Webmaster Genel Konular | 0 | 2005-09-26 18:11 |