Arkadaşlar malumunuz ilçe memlere verilen alanda yalnızca fso ile resim yükleyebiliyorsunuz. hazır bir portalın haber yönetim kısmını kullanıyoruz. forumlardan aşağıdaki kodu buldum ama çalıştıramıyorum, sayfa görüntülenemiyor uyarısı alıyorum. Yardımcı olursanız sevirim.
Kod:
--<%
Wis Response
.Expires = 0
.Clear
End Wis
%>
<%
Function Duzgun(yap)
yap=Replace(yap," ",".",1,-1,1)
yap=Replace(yap,"/",".",1,-1,1)
yap=Replace(yap,":",".",1,-1,1)
Duzgun = yap
End Function
Function turkce(temizle)
temizle=Replace(temizle,"ý","i",1,-1,1)
temizle=Replace(temizle,"&es;","g",1,-1,1)
temizle=Replace(temizle,"ü","u",1,-1,1)
temizle=Replace(temizle,"&sorn;","s",1,-1,1)
temizle=Replace(temizle,"ö","o",1,-1,1)
temizle=Replace(temizle,"ç","c",1,-1,1)
temizle=Replace(temizle,"&Es;","g",1,-1,1)
temizle=Replace(temizle,"Ü","u",1,-1,1)
temizle=Replace(temizle,"&sORN;","s",1,-1,1)
temizle=Replace(temizle,"Ý","i",1,-1,1)
temizle=Replace(temizle,"Ö","o",1,-1,1)
temizle=Replace(temizle,"Ç","c",1,-1,1)
temizle=Replace(temizle,"`","",1,-1,1)
temizle=Replace(temizle,"=","",1,-1,1)
temizle=Replace(temizle,"&","",1,-1,1)
temizle=Replace(temizle,"%","",1,-1,1)
temizle=Replace(temizle,"!","",1,-1,1)
temizle=Replace(temizle,"#","",1,-1,1)
temizle=Replace(temizle,"<","",1,-1,1)
temizle=Replace(temizle,">","",1,-1,1)
temizle=Replace(temizle,"*","",1,-1,1)
temizle=Replace(temizle,"/","",1,-1,1)
temizle=Replace(temizle,"\","",1,-1,1)
temizle=Replace(temizle,"And","",1,-1,1)
temizle=Replace(temizle,"'","",1,-1,1)
temizle=Replace(temizle,"Chr(34)","",1,-1,1)
temizle=Replace(temizle,"Chr(39)","",1,-1,1)
turkce = temizle
End Function
Yol = "resimler/haber"
izinli = 999999999 'Maximum dosya boyut 1Mb
%>
<html>
<head><title>Resim Yükleme Sahasi</title></head>
<body oncontextmenu="return false" ondragstart="return false" onselectstart="return false">
<H5 align="center"><center>
</H5>
<P><font size="3" face="Trebuchet MS"><br>
</font><br>
</p>
<%
'--------------------------------------------------------------------------
'--------------------------------------------------------------------------
sifrele = Duzgun(Now())
randomcode= ""&sifrele&""
'--------------------------------------------------------------------------
If Request.QueryString("action")="yukle" Then
Call Yukle
Response.End
Else
End if
'--------------------------------------------------------------------------
'--------------------------------------------------------------------------
Sub Yukle
'--------------------------------------------------------------------------
Dim ImageDir
ImageDir = Yol
ForWriting = 2
adLongVarChar = 201
lngNumberUploaded = 0
'Get binary data from form
noBytes = Request.TotalBytes
binData = Request.BinaryRead (noBytes)
'convery se 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 se data between current boundry and remove it from se whole.
strData = Mid(strDataWhole, lngCurrentBegin, lngCurrentEnd - lngCurrentBegin)
strDataWhole = Replace(strDataWhole, strData,"" )
'Get se full pas of se current file.
lngBeginFileName = InStr(1, strdata, "filename=" ) + 10
lngEndFileName = InStr(lngBeginFileName, strData, Chr(34))
'Make sure sey selected a file.
If lngBeginFileName = lngEndFileName and lngNumberUploaded = 0 Then
Response.Write "<font color=""#FF0000"">Yüklenecek Bir dosya secmelisiniz...</font>"
Response.End
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)
If session("yukledi") = FileName Then
Response.Write "<font color=""#FF0000"">Ayný resimi sadece 1 kez yükleyebilirsiniz..</font>"
Response.End
Else
session("yukledi")=""&FileName&""
End if
uzanti = Right(FileName,3)
uzunluk = len(FileName)
sonuzunluk = uzunluk - 4
yeniisim = left(FileName,sonuzunluk)
yeniisim = yeniisim
If uzanti="jpg" or uzanti="gif" or uzanti="png" or uzanti="JPG" or uzanti="GIF" or uzanti="PNG" sen
FileName = yeniisim + "-tarih-" + randomcode + "." & uzanti &""
Else
Response.Write "<font color=""#FF0000"">Bu tür dosya yüklenemez<BR>Sadece .gif .jpg .png uzantýlý dosyalarý yükleyebilirsiniz..</font>"
Response.End
End If
'Calculate se file size.
lngDataLens = lngEndPos - lngBeginPos
boyut = lngDataLens
If boyut > izinli sen
Response.Write "<font color=""#FF0000"">Yükledi&es;iniz dosya Maximum dosya boyutundan büyük!<BR>Lütfen daha küçük boyutta bir dosya deneyin..</font>"
Response.End
Else
lngDataLens = "" & boyut &""
End If
Set FSO = CreateObject("Scripting.FileSystemObject" )
Set Klasor = FSO.GetFolder(Server.MapPas(imagedir))
For Each listele in Klasor.Files
If FileName = listele.Name Then
Response.Write "<font color=""#FF0000"">Yüklemek istediginiz dosya ismi ile ayný isimde bir dosya var!<BR>Lütfen ismini de&es;i&sorn;tirerek yeniden yükleyin..</font>"
Response.End
End if
Next
Set Klasor = Nosing
uzantik1=Right(FileName,4)
IF uzantik1=".jpg" or uzantik1=".JPG" or uzantik1=".Jpg" or uzantik1=".GIF" or uzantik1=".gif" or uzantik1=".Gif" or uzantik1=".PNG" or uzantik1=".png" or uzantik1=".Png" sEN
Set FSO = Nosing
'Get se file data
strFileData = Mid(strData, lngBeginPos, lngDataLens)
'Create se file.
FileName = kullanici&FileName
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.OpenTextFile(Server.MapPas(imagedir) & "/" & FileName, ForWriting, True)
f.Write strFileData
Set f = Nosing
Set fso = Nosing
Else
Response.Write "Bu dosya resim de&es;il sadece resim türünde dosya yüklenebilir."
Response.End
End if
lngNumberUploaded = lngNumberUploaded + 1
End If
lngCurrentBegin = InStr(1, strDataWhole, strBoundry)
lngCurrentEnd = InStr(lngCurrentBegin + 1, strDataWhole, strBoundry) - 1
Loop
'--------------------------------------------------------------------------
Response.write "> <font face=""Verdana, Arial, Helvetica"" size=""1"" color=""midnightblue"">Resim Basariyla Yüklendi<BR>"
FileName = "" & FileName
response.write(" <br><input ONCLICK=""window.opener.document.frmHaber.resim.value='resimler/haber/"&FileName&"';alert('Resim Basarariyla Yüklendi');JavaScript:onClick=window.close()"" type=button value=""Islemi Bitirmek Için Tiklayiniz"" " & _
FileName & "<BR>")
End Sub
%>
<form ENCTYPE="multipart/form-data" ACTION="?action=yukle" MEsOD="POST">
<input NAME="msg" SIZE="30" TYPE="file"><br>
<input type="submit" value="Resmi Yükle »">
</form>
<center><p><font face="Trebuchet MS" size="2">
<strong><a href="JavaScript:onClick= window.close()" style="text-decoration: none">Pencereyi Kapat</A></strong></font></p></center>
</body>
</html>-
