Resim Upload Scripti

NoDRaC · 02-01-2006, 20:45

Arkdaşlar kendime resim upload yapmak amacıyla bir script arıyorum resim.forumneuro.com scriptide olabilir umarım yardımcı olursunuz

sertay · 05-01-2006, 15:56

Merhabalar,
Not: Aşağıdaki işlemlerin çalışabilmesi için serverda dizine yazma izninin olması gerekir.

İlk olarak resim.asp adlı bir dosya yarat. Aşağıdakilerini içerisine yapıştır.

resim.asp
<html>
<head>
<title> Resim Yükleme </title>

</head>
<body>
<div align="center">
<table border="1" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" align="left">
<form ENCTYPE="multipart/form-data" ACTION="resimyukle.asp" METHOD="POST">
Dosya adı...:<br>
<input NAME="dosya" TYPE="file">
<br>
<br>
<input type="submit" value="** Yükle **">
</form>
</td>
</tr>
</table>

</div>
</body>
</html>

ikinci olarak resimyukle.asp dosyası hazırla ve içerisine aşağıdakilerini yapıştır

resimyukle.asp
<%
Set Yukle = New DosyaYukleme
' buraya istedigin klasoru yaz.
Yol = Server.MapPath("..\dosya" )&"\"
DosyaIsmi = Yukle.FileName("dosya" )
tamyol = "../dosya/"+sifre1
dosyauzantisi = Right(Yukle.FileName("dosya"),3)

If DosyaIsmi = "" Then
Response.Write ("Yüklenecek dosyayı seçmediniz.")
Response.End
End if
If not dosyauzantisi = "jpg" Then
Response.Write (Yukle.FileName("dosya" )) & " Resim dosyası değildir"
Response.End
End if
If dosyauzantisi = "jpg" and Request.TotalBytes > 50000 Then
Response.Write (Yukle.FileName("dosya" )) & " dosyası 50Kb dan büyüktür"
Response.End
End if
If dosyauzantisi = "jpg" and Request.TotalBytes < 50001 Then

Set FSO = Server.CreateObject("Scripting.FileSystemObject" )
Set YeniDosya = FSO.CreateTextFile(Yol & DosyaIsmi)

For i = 1 To LenB(Yukle.Value("dosya"))
YeniDosya.Write Chr(AscB(MidB(Yukle.Value("dosya"), i, 1)))
Next
YeniDosya.Close
Set YeniDosya = Nothing
Set FSO = Nothing
Set Yukle = Nothing
End If
%>
<body>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">YÜKLEME TAMAMLANDI</font>

<%
' burada yuklenen dosyanın adını database e kayıt edebilirsin.
%>

<%
Class DosyaYukleme

Private pvObjUploadRequest

Private Sub Class_Initialize
Dim RequestBin, Boundary, Value
Dim lngPosBegin, lngPosEnd, lngBoundaryPos
Dim lngPos, lngPosFile, lngPosBound
Dim strName, strFileName, strContentType
Dim objUploadControl

Set pvObjUploadRequest = Server.CreateObject("Scripting.Dictionary" )

RequestBin = Request.BinaryRead(Request.TotalBytes)

lngPosBegin = 1
lngPosEnd = InStrB(lngPosBegin, RequestBin, GetByteString(Chr(13)))
Boundary = MidB(RequestBin, lngPosBegin, lngPosEnd - lngPosBegin)
lngBoundaryPos = InstrB(1, RequestBin, Boundary)

Do Until (lngBoundaryPos = InstrB(RequestBin, Boundary & getByteString("--" )))

Set objUploadControl = CreateObject("Scripting.Dictionary" )

lngPos = InstrB(lngBoundaryPos, RequestBin, GetByteString("Content-Disposition" ))
lngPos = InstrB(lngPos, RequestBin, GetByteString("name=" ))
lngPosBegin = lngPos + 6
lngPosEnd = InstrB(lngPosBegin, RequestBin, GetByteString(Chr(34)))
strName = LCase(GetString(MidB(RequestBin, lngPosBegin, lngPosEnd - lngPosBegin)))
lngPosFile = InstrB(lngBoundaryPos, RequestBin, GetByteString("filename=" ))
lngPosBound = InstrB(lngPosEnd, RequestBin, Boundary)

If lngPosFile <> 0 And lngPosFile < lngPosBound Then

lngPosBegin = lngPosFile + 10
lngPosEnd = InStrB(lngPosBegin, RequestBin, GetByteString(Chr(34)))
strFileName = GetString(MidB(RequestBin, lngPosBegin, lngPosEnd - lngPosBegin))

objUploadControl.Add "FileName" , strFileName
lngPos = InStrB(lngPosEnd, RequestBin, GetByteString("Content-Type:" ))
lngPosBegin = lngPos + 14
lngPosEnd = InStrB(lngPosBegin, RequestBin, GetByteString(Chr(13)))

strContentType = GetString(MidB(RequestBin, lngPosBegin, lngPosEnd - lngPosBegin))
objUploadControl.Add "ContentType" , strContentType

lngPosBegin = lngPosEnd + 4
lngPosEnd = InstrB(lngPosBegin, RequestBin, Boundary) - 2
Value = MidB(RequestBin, lngPosBegin, lngPosEnd - lngPosBegin)
Else

lngPos = InstrB(lngPos, RequestBin, GetByteString(Chr(13)))
lngPosBegin = lngPos + 4
lngPosEnd = InStrB(lngPosBegin, RequestBin, Boundary) - 2
Value = GetString(MidB(RequestBin, lngPosBegin, lngPosEnd - lngPosBegin))
End If

objUploadControl.Add "Value" , Value

pvObjUploadRequest.Add strName, objUploadControl

lngBoundaryPos = InStrB(lngBoundaryPos + LenB(Boundary), RequestBin, Boundary)
Loop
End Sub

Private Sub Class_Terminate
Dim objDictionary
For Each objDictionary In pvObjUploadRequest.Items
objDictionary.RemoveAll
Set objDictionary = Nothing
Next
pvObjUploadRequest.RemoveAll
Set pvObjUploadRequest = Nothing
End Sub

Private Function GetByteString(strString)
Dim Char
Dim i

For i = 1 To Len(strString)
Char = Mid(strString, i , 1)
GetByteString = GetByteString & ChrB(AscB(Char))
Next
End Function

Private Function GetString(strBin)
Dim intCount

GetString = ""

For intCount = 1 To LenB(strBin)
GetString = GetString & Chr(AscB(MidB(strBin, intCount, 1)))
Next
End Function

Public Function Value(Name)
Name = LCase(Name)
If pvObjUploadRequest.Exists(Name) Then
Value = pvObjUploadRequest.Item(Name).Item("Value" )
Else
Value = Empty
End If
End Function

Public Function ContentType(Name)
Name = LCase(Name)
If pvObjUploadRequest.Exists(Name) Then
If pvObjUploadRequest.Item(Name).Exists("ContentType" ) Then
ContentType = pvObjUploadRequest.Item(Name).Item("ContentType" )
Else
ContentType = Empty
End If
Else
ContentType = Empty
End If

End Function

Public Function FileNamePath(Name)
Name = LCase(Name)
If pvObjUploadRequest.Exists(Name) Then
If pvObjUploadRequest.Item(Name).Exists("FileName" ) Then
FileNamePath = pvObjUploadRequest.Item(Name).Item("FileName" )
Else
FileNamePath = Empty
End If
Else
FileNamePath = Empty
End If
End Function

Public Function FileName(Name)
Dim strFileName

Name = LCase(Name)
If pvObjUploadRequest.Exists(Name) Then
If pvObjUploadRequest.Item(Name).Exists("FileName" ) Then
strFileName = pvObjUploadRequest.Item(Name).Item("FileName" )
FileName = Right(strFileName, Len(strFileName) - InStrRev(strFileName, "\" ))
Else
FileName = Empty
End If
Else
FileName = Empty
End If
End Function

End Class
%>

by_seyfo · 09-11-2007, 16:06

hata veriyo dosyayı yüklerken S:

кє๓คlเภ_ครкєгเ · 10-11-2007, 11:29

Alıntı:

by_seyfo tarafından gönderildi

hata veriyo dosyayı yüklerken S:

kardeş sanırım bu kodlar asp sistemleri için.Seninkide php olduğu için hata veriyor.

02-01-2006, 20:45	#1 (permalink)
NoDRaC Etkisiz Üye Giriş Tarihi: 22-11-2005 Mesajlar: 0 Rep Gücü: 0 Rep Puanı : 47	Resim Upload Scripti Arkdaşlar kendime resim upload yapmak amacıyla bir script arıyorum resim.forumneuro.com scriptide olabilir umarım yardımcı olursunuz

05-01-2006, 15:56	#2 (permalink)
sertay Etkisiz Üye Giriş Tarihi: 20-09-2005 Mesajlar: 2 Rep Gücü: 3 Rep Puanı : 10	Resİm YÜkleme Merhabalar, Not: Aşağıdaki işlemlerin çalışabilmesi için serverda dizine yazma izninin olması gerekir. İlk olarak resim.asp adlı bir dosya yarat. Aşağıdakilerini içerisine yapıştır. resim.asp <html> <head> <title> Resim Yükleme </title> </head> <body> <div align="center"> <table border="1" cellspacing="0" cellpadding="0"> <tr> <td valign="top" align="left"> <form ENCTYPE="multipart/form-data" ACTION="resimyukle.asp" METHOD="POST"> Dosya adı...:<br> <input NAME="dosya" TYPE="file"> <br> <br> <input type="submit" value=" Yükle "> </form> </td> </tr> </table> </div> </body> </html> ikinci olarak resimyukle.asp dosyası hazırla ve içerisine aşağıdakilerini yapıştır resimyukle.asp <% Set Yukle = New DosyaYukleme ' buraya istedigin klasoru yaz. Yol = Server.MapPath("..\dosya" )&"\" DosyaIsmi = Yukle.FileName("dosya" ) tamyol = "../dosya/"+sifre1 dosyauzantisi = Right(Yukle.FileName("dosya"),3) If DosyaIsmi = "" Then Response.Write ("Yüklenecek dosyayı seçmediniz.") Response.End End if If not dosyauzantisi = "jpg" Then Response.Write (Yukle.FileName("dosya" )) & " Resim dosyası değildir" Response.End End if If dosyauzantisi = "jpg" and Request.TotalBytes > 50000 Then Response.Write (Yukle.FileName("dosya" )) & " dosyası 50Kb dan büyüktür" Response.End End if If dosyauzantisi = "jpg" and Request.TotalBytes < 50001 Then Set FSO = Server.CreateObject("Scripting.FileSystemObject" ) Set YeniDosya = FSO.CreateTextFile(Yol & DosyaIsmi) For i = 1 To LenB(Yukle.Value("dosya")) YeniDosya.Write Chr(AscB(MidB(Yukle.Value("dosya"), i, 1))) Next YeniDosya.Close Set YeniDosya = Nothing Set FSO = Nothing Set Yukle = Nothing End If %> <body> <font face="Verdana, Arial, Helvetica, sans-serif" size="1">YÜKLEME TAMAMLANDI</font> <% ' burada yuklenen dosyanın adını database e kayıt edebilirsin. %> <% Class DosyaYukleme Private pvObjUploadRequest Private Sub Class_Initialize Dim RequestBin, Boundary, Value Dim lngPosBegin, lngPosEnd, lngBoundaryPos Dim lngPos, lngPosFile, lngPosBound Dim strName, strFileName, strContentType Dim objUploadControl Set pvObjUploadRequest = Server.CreateObject("Scripting.Dictionary" ) RequestBin = Request.BinaryRead(Request.TotalBytes) lngPosBegin = 1 lngPosEnd = InStrB(lngPosBegin, RequestBin, GetByteString(Chr(13))) Boundary = MidB(RequestBin, lngPosBegin, lngPosEnd - lngPosBegin) lngBoundaryPos = InstrB(1, RequestBin, Boundary) Do Until (lngBoundaryPos = InstrB(RequestBin, Boundary & getByteString("--" ))) Set objUploadControl = CreateObject("Scripting.Dictionary" ) lngPos = InstrB(lngBoundaryPos, RequestBin, GetByteString("Content-Disposition" )) lngPos = InstrB(lngPos, RequestBin, GetByteString("name=" )) lngPosBegin = lngPos + 6 lngPosEnd = InstrB(lngPosBegin, RequestBin, GetByteString(Chr(34))) strName = LCase(GetString(MidB(RequestBin, lngPosBegin, lngPosEnd - lngPosBegin))) lngPosFile = InstrB(lngBoundaryPos, RequestBin, GetByteString("filename=" )) lngPosBound = InstrB(lngPosEnd, RequestBin, Boundary) If lngPosFile <> 0 And lngPosFile < lngPosBound Then lngPosBegin = lngPosFile + 10 lngPosEnd = InStrB(lngPosBegin, RequestBin, GetByteString(Chr(34))) strFileName = GetString(MidB(RequestBin, lngPosBegin, lngPosEnd - lngPosBegin)) objUploadControl.Add "FileName" , strFileName lngPos = InStrB(lngPosEnd, RequestBin, GetByteString("Content-Type:" )) lngPosBegin = lngPos + 14 lngPosEnd = InStrB(lngPosBegin, RequestBin, GetByteString(Chr(13))) strContentType = GetString(MidB(RequestBin, lngPosBegin, lngPosEnd - lngPosBegin)) objUploadControl.Add "ContentType" , strContentType lngPosBegin = lngPosEnd + 4 lngPosEnd = InstrB(lngPosBegin, RequestBin, Boundary) - 2 Value = MidB(RequestBin, lngPosBegin, lngPosEnd - lngPosBegin) Else lngPos = InstrB(lngPos, RequestBin, GetByteString(Chr(13))) lngPosBegin = lngPos + 4 lngPosEnd = InStrB(lngPosBegin, RequestBin, Boundary) - 2 Value = GetString(MidB(RequestBin, lngPosBegin, lngPosEnd - lngPosBegin)) End If objUploadControl.Add "Value" , Value pvObjUploadRequest.Add strName, objUploadControl lngBoundaryPos = InStrB(lngBoundaryPos + LenB(Boundary), RequestBin, Boundary) Loop End Sub Private Sub Class_Terminate Dim objDictionary For Each objDictionary In pvObjUploadRequest.Items objDictionary.RemoveAll Set objDictionary = Nothing Next pvObjUploadRequest.RemoveAll Set pvObjUploadRequest = Nothing End Sub Private Function GetByteString(strString) Dim Char Dim i For i = 1 To Len(strString) Char = Mid(strString, i , 1) GetByteString = GetByteString & ChrB(AscB(Char)) Next End Function Private Function GetString(strBin) Dim intCount GetString = "" For intCount = 1 To LenB(strBin) GetString = GetString & Chr(AscB(MidB(strBin, intCount, 1))) Next End Function Public Function Value(Name) Name = LCase(Name) If pvObjUploadRequest.Exists(Name) Then Value = pvObjUploadRequest.Item(Name).Item("Value" ) Else Value = Empty End If End Function Public Function ContentType(Name) Name = LCase(Name) If pvObjUploadRequest.Exists(Name) Then If pvObjUploadRequest.Item(Name).Exists("ContentType" ) Then ContentType = pvObjUploadRequest.Item(Name).Item("ContentType" ) Else ContentType = Empty End If Else ContentType = Empty End If End Function Public Function FileNamePath(Name) Name = LCase(Name) If pvObjUploadRequest.Exists(Name) Then If pvObjUploadRequest.Item(Name).Exists("FileName" ) Then FileNamePath = pvObjUploadRequest.Item(Name).Item("FileName" ) Else FileNamePath = Empty End If Else FileNamePath = Empty End If End Function Public Function FileName(Name) Dim strFileName Name = LCase(Name) If pvObjUploadRequest.Exists(Name) Then If pvObjUploadRequest.Item(Name).Exists("FileName" ) Then strFileName = pvObjUploadRequest.Item(Name).Item("FileName" ) FileName = Right(strFileName, Len(strFileName) - InStrRev(strFileName, "\" )) Else FileName = Empty End If Else FileName = Empty End If End Function End Class %>

09-11-2007, 16:06	#3 (permalink)
by_seyfo Uzman Çavuş Giriş Tarihi: 08-08-2007 Mesajlar: 63 Rep Gücü: 2 Rep Puanı : 10	hata veriyo dosyayı yüklerken S: __________________ kula bela gelmez hak yazmadıkca hak bela yazmaz kul azmadıkca

Forum Araçları
Yazıcı Çıktısını Göster Sayfayı E-posta ile Yolla
Görüntüleme Biçimleri
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode