<%
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">

<%
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")
%>

<hr color="#808080" size="1">
<form Enctype="multipart/form-data" language="javascript" name="imageupload" Action="?islem=Yukle&Kac=<%=Kac%>" Method="Post">

Resim : 
<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"> 
 

<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()">

</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>
 

 


 Göndermeye çalıştığınız dosya türü desteklenmiyor. 


 
 
 
 




 

<a style="text-decoration: none" href="JavaScript:onClick=%20window.close()">
[ KAPAT ]</a>
</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

%> 

Resim
yüklendi. Yönetici Onayından sonra yayınlanacaktır.. 

<a href="imagesend.asp" style="text-decoration: none">Tekrar yüklemek için tıklayın.</a><a href="imagesend.asp" style="text-decoration: none">
<%
End IF
Response.Write "--"
Response.End

End Sub
%> </a>



</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>

Yüklendi. en yakın
zamanda yöneticiler tarafından onaylanacaktır.
<%
Response.Redirect "?uye=bitti"
%>
<% else %>
<%
if (Request.QueryString("uye"))="bitti" then
%> 





Kayı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>






<a style="text-decoration: none" href="JavaScript:onClick=%20window.close()">
[
KAPAT ]</a>





<% else %><% end if %><% end if %>

#21.09.2009 12:35 0 0 0

C-PaneL

Arkadaslar bu imagesend.asp deki verdiginiz kodu koydum calismiyor resim yukleyemiyorum pleskdende izin verdim chmod filezilla ftp client programiylada chmod 777 izni verdim calismiyor yardimci olursaniz sevinirim