Php4 Panel Download
Son güncelleme: 11.01.2010 20:21
-
arkadaslar php4 panel sunuyorum size yanlız uzantıları aspye çevirdm zaten scriptin aslı asp panel sorunsuz çalışıyor bu arada esunus paneli arayanlar içinde güsel bi panel esunusla bire bir aynıdır
Sizden Tek İstediğim bir Tskürü Çok Görmeyim Kolay geslin..
bütün şifreler azer nikler azer
DownLoad
http://aszer.qsh.be/lostpanel.rar
aLternatif Link (RS.Com)
DownLoad
Arkadaslar free bir hosta upload ettm ordan indirin link ölümsüzleşsin
- ÇOK TŞK EDERİZ KARDEŞİM DENİYELİM İNŞALLAH SORUN YOKTURDUR KOLAY GELSİN İYİ ÇALIŞMALAR
-
kaRDeS paneL GuzeL aMa ReSım YukLede Hata VeRıyoR BıR baKsaN
Rıca eTSem
- Ben kurdum a dan z ye çalıstırdım.. yazma izni falan verip tekrar dene istersenn
-
Bu hataYı VeRıyor bak KardeS
Microsoft VBScript compilation error '800a03ee'
Expected ')'
/islam3/imagesend.asp, line 116
IF instr(1,FileName,".asp",1) or instr(1,FileName,".mdb",1) or instr(1,FileName,".htm",1) or instr(1,FileName,".txt",1) or instr(1,FileName,".doc",1) or instr(1,FileName,".psd",1) or instr(1,FileName,".exe",1) or instr(1,FileName,".vbs",1) or instr(1,FileName,".dll",1) or instr(1,FileName,".com",1) or instr(1,FileName,".bat",1) or instr(1,FileName,".rar",1) or instr(1,FileName,".zip",1) or instr(1,FileName,".xls",1) or instr(1,FileName,".html",1) or instr(1,FileName,".asp,1) or instr(1,FileName,".cgi",1) or instr(1,FileName,".ocx",1) Then
-
[HTML]<%
Set Baglanti=Server.CreateObject("Adodb.Connection")
Baglanti.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("MGCdb/!Q!.mdb")
Set Rs=Server.CreateObject("ADODB.Recordset")
Sor = "Select * From resim"
Rs.Open sor,Baglanti,1,3
%>
<%
Session.TimeOut = 1400
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<%
islem = Request("islem")
If islem = "Yukle" Then
call ImageUpload
End If
%>
<html>
<head>
<title>Resim Gönder..</title>
<meta content="Microsoft FrontPage 6.0" name="GENERATOR">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Language" content="tr">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
</head>
<body link="#000000" bgcolor="#EBEBEB" vlink="#000000" alink="#000000" topmargin="0" leftmargin="0">
</b>
<%
Function SifreUret(Boy)
Dim Sifre,KarakterBoyu,KacinciKarakter
Const Karakterler = "ABCDEFGHIJKLMNOPRSTUVYZXW0123456789"
Randomize
KarakterBoyu = Len(Karakterler)
For x = 1 To Boy
KacinciKarakter = Int((KarakterBoyu * Rnd) + 1)
sifre = sifre & Mid(Karakterler,KacinciKarakter,1)
Next
SifreUret = sifre
End Function
Session("KarisikYazi") = SifreUret(7)
Kac = request.querystring("Kac")
%>
</font><font size="2" color="#CC0000"></b></font>
<hr color="#808080" size="1">
<form Enctype="multipart/form-data" language="javascript" name="imageupload" Action="?islem=Yukle&Kac=<%=Kac%>" Method="Post">
<p align="center">
<font face="Verdana"><font size="2">Resim : </font>
<input NAME="File2" SIZE="25" TYPE="file" style="padding:2px; color: #000000; font-family: Verdana; font-size: 10px; font-weight: bold; border: 1px solid #CC0000; background-color: #FBFBFB"><font size="2"><br>
<br>
</font>
<input type="submit" value="Yükle" name="Submit" style="padding:2px; color: #FFFFFF; font-family: Verdana; font-size: 10px; font-weight: bold; border: 1px solid #CC0000; background-color: #CC0000" onMouseOver="this.style.cursor='hand';" onClick="imageupload.Submit.disabled=true; imageupload.Submit.value='Yükleniyor...'; imageupload.submit()">
</font></p>
</form>
<%
Sub ImageUpload
GercekKlasor = "resim" ' URL OLRAK VERİLECEK RESİM ADRESİ AŞAĞIDAKİ KLASÖRÜN ADI İLE AYNI OLACAK
ImageDir = "resim" ' RESİMLERİN YÜKLENECEĞİ KLASÖRÜN ADRESİ
ForWriting = 2
adLongVarChar = 201
lngNumberUploaded = 0
'Get binary data from form
noBytes = Request.TotalBytes
binData = Request.BinaryRead (noBytes)
'convery the binary data to a string
Set RST = CreateObject("ADODB.Recordset")
LenBinary = LenB(binData)
if LenBinary > 0 Then
RST.Fields.Append "myBinary", adLongVarChar, LenBinary
RST.Open
RST.AddNew
RST("myBinary").AppendChunk BinData
RST.Update
strDataWhole = RST("myBinary")
End if
strBoundry = Request.ServerVariables ("HTTP_CONTENT_TYPE")
lngBoundryPos = instr(1, strBoundry, "boundary=") + 8
strBoundry = "--" & right(strBoundry, len(strBoundry) - lngBoundryPos)
lngCurrentBegin = instr(1, strDataWhole, strBoundry)
lngCurrentEnd = instr(lngCurrentBegin + 1, strDataWhole, strBoundry) - 1
Do While lngCurrentEnd > 0
'Get the data between current boundry and remove it from the whole.
strData = mid(strDataWhole, lngCurrentBegin, lngCurrentEnd - lngCurrentBegin)
strDataWhole = replace(strDataWhole, strData,"")
'Get the full path of the current file.
lngBeginFileName = instr(1, strdata, "filename=") + 10
lngEndFileName = instr(lngBeginFileName, strData, chr(34))
'Make sure they selected a file.
if lngBeginFileName = lngEndFileName and lngNumberUploaded = 0 Then
Response.Redirect "AnimasyonEkle.asp?"
End if
'There could be an empty file box.
if lngBeginFileName <> lngEndFileName Then
strFilename = mid(strData, lngBeginFileName, lngEndFileName - lngBeginFileName)
tmpLng = instr(1, strFilename, "\")
Do While tmpLng > 0
PrevPos = tmpLng
tmpLng = instr(PrevPos + 1, strFilename,"\")
Loop
FileName = right(strFilename, len(strFileName) - PrevPos)
lngCT = instr(1,strData, "Content-Type:")
if lngCT > 0 Then
lngBeginPos = instr(lngCT, strData, chr(13) & chr(10)) + 4
Else
lngBeginPos = lngEndFileName
End if
lngEndPos = len(strData)
'Calculate the file size.
lngDataLenth = lngEndPos - lngBeginPos
'Get the file data
strFileData = mid(strData, lngBeginPos, lngDataLenth)
IF instr(1,FileName,".asp",1) or instr(1,FileName,".mdb",1) or instr(1,FileName,".htm",1) or instr(1,FileName,".txt",1) or instr(1,FileName,".doc",1) or instr(1,FileName,".psd",1) or instr(1,FileName,".exe",1) or instr(1,FileName,".vbs",1) or instr(1,FileName,".dll",1) or instr(1,FileName,".com",1) or instr(1,FileName,".bat",1) or instr(1,FileName,".rar",1) or instr(1,FileName,".zip",1) or instr(1,FileName,".xls",1) or instr(1,FileName,".html",1) or instr(1,FileName,".php",1) or instr(1,FileName,".cgi",1) or instr(1,FileName,".ocx",1) Then
%>
<html>
<title>Image Upload</title>
<body link="#000000" vlink="#000000" alink="#000000">
<center>
<br><br>
<b><font face="Verdana" size="2" color="#CC0000">
<br>
</font></b></font>
<font face="Verdana" size="1" color="#CC0000"> <b>Göndermeye çalıştığınız dosya türü desteklenmiyor.</b><br>
</font>
<font size="2" color="#4F6321" face="Verdana"><br><br><br>
<br>
<br>
<br>
</font>
<font size="2" color="#FFFFFF" face="Verdana">
<br><br>
<font color="#FFFFFF">
<b><a style="text-decoration: none" href="JavaScript:onClick=%20window.close()">
[ KAPAT ]</a></b></font>
</center>
<%
ELSE
'Create the file.
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(server.mappath(imagedir) & "/"&Session("KarisikYazi")&"" & FileName, ForWriting, True)
f.Write strFileData
Set f = nothing
Set fso = nothing
End IF
lngNumberUploaded = lngNumberUploaded + 1
End if
lngCurrentBegin = instr(1, strDataWhole, strBoundry)
lngCurrentEnd = instr(lngCurrentBegin + 1, strDataWhole, strBoundry) - 1
loop
IF instr(1,FileName,".asp",1) or instr(1,FileName,".mdb",1) or instr(1,FileName,".htm",1) or instr(1,FileName,".txt",1) or instr(1,FileName,".doc",1) or instr(1,FileName,".psd",1) or instr(1,FileName,".exe",1) or instr(1,FileName,".vbs",1) or instr(1,FileName,".dll",1) or instr(1,FileName,".com",1) or instr(1,FileName,".bat",1) or instr(1,FileName,".rar",1) or instr(1,FileName,".zip",1) or instr(1,FileName,".xls",1) or instr(1,FileName,".html",1) or instr(1,FileName,".php",1) or instr(1,FileName,".cgi",1) or instr(1,FileName,".ocx",1) Then
ELSE
%>
<%Kac = request.querystring("Kac")%>
<%
set lar = Server.CreateObject("ADODB.RecordSet")
SQL="select * from resim"
lar.open SQL,Baglanti,1,3
lar.addnew
lar("rumuz")= Session("rumuz")
lar("resim")="resim/"&Session("KarisikYazi")&""&FileName&""
lar("onay")=0
lar("tarih")=now()
lar.update
%> </font>
<font face="verdana" size="2">Resim</font><font size="2" face="Verdana"><font face="verdana" size="2">
yüklendi. Yönetici Onayından sonra yayınlanacaktır.. </font>
<font color="#CC0000" face="verdana" size="2">
<a href="imagesend.asp" style="text-decoration: none"><font color="#CC0000">Tekrar yüklemek için tıklayın.</font></a></font><a href="imagesend.asp" style="text-decoration: none"><font color="#CC0000">
<%
End IF
Response.Write "--"
Response.End
End Sub
%> </font></a></font>
<font size="2" color="#FFFFFF" face="Verdana">
</p>
</body>
</html>
<%
if (Request.QueryString("uye"))="kayit" then
dim resim
resim=Request.Form("resim")
%>
<%
if resim="" then
Response.Write ""
%>
<script>alert("Lütfen Resim Urlsini Giriniz...");history.go(-1)</script>
<%
Response.End
End if
%>
<%=resim%>
<center>
<font color="#CC0000">
Y</font></font><font color="#CC0000" size="2" face="Verdana">üklendi. en yakın
zamanda yöneticiler tarafından onaylanacaktır.
<%
Response.Redirect "?uye=bitti"
%>
<% else %>
<%
if (Request.QueryString("uye"))="bitti" then
%> </font>
<font face="Verdana" size="2" color="#FFFFFF"></p>
<font size="2" color="#CC0000" face="Verdana">
<p align="center">
Kayı</font></font><font face="Verdana" size="2"><font size="2" color="#CC0000" face="Verdana">ta Alımıştır Yönetici Onayladıktanson Kayıta Alınacaktır.
<script language="JavaScript">
alert("Resminiz yönetici tarafından onaylanılacaktır.");
window.close();
</script>
</font>
<font size="2" color="#FFFFFF" face="Verdana">
<b>
<a style="text-decoration: none" href="JavaScript:onClick=%20window.close()">
<font color="#CC0000">[
KAPAT ]</font></a></b></p>
</font>
</font>
<% else %><% end if %><% end if %>[/HTML]
imagesend.asp nin içindeki kodları bunlarla değişdir sanırım düzlir
- Kardeşim Senin Şimdi Bu Yayınladığın Panel Bİrinci si Php Panel Değil İkincisi İse Eski Sürm Bir Paneldi Bu Şimdi NEden Böyle Yazdım Diye Sorucaksın En Azından Diğer Arkadaşları Da Bilgilendirmek Maksadıyla da YAzmış Oldum Hadi Rabbim Kolaylıklar Versin İyi ÇAlışmalar
-
Selamun Aleyküm
Kardeşim emeğine sonsuz saygım var.Fakat çalıştıramadım ben.direkt attım ftp ye.
çalışma prensibi nasıl bunun.tşk.
- Php4 Panel Download Konusuna Benzer Konular
- Mobile Music Polyphonic v1.5 Download 19.04.2004
- opm II v2.2.2 download 19.04.2004
- mobiMB 1.28 download 19.04.2004
- Download Manager [Almanca, Ingilizce ] 16.08.2004
- Tweakmaster Pro v2.02 Build 696 - Download ve Web surf hızınızı artırın... 05.09.2004