İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

ADIM ADIM VİDEO SCRİPT

M

marka

0
İyinet Üyesi
Katılım
13 Mayıs 2008
Mesajlar
14
Reaction score
0
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
 
Cevap yazmak için giriş yap yada kayıt ol.

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Üst