PHP- Kodu:
<% @Language="VBScript" CodePage="1254" %>
<!--#INCLUDE FILE="VT_Baglan.asp"-->
<!--#INCLUDE FILE="uye_login_kontrol.asp"-->
<!--#INCLUDE FILE="FIXQUOTES.inc"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Language" content="tr">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254" />
<title>Foto Yükleme</title>
<link rel="stylesheet" type="text/css" href="Stiller.css" />
<style type="text/css">
.newStyle1 {
background-color: #E6E6E6;
border: 1px solid #C0C0C0;
font-family: Arial, Helvetica, sans-serif;
font-size: 11px;
color: #808080;
font-weight: bold;
}
.style1 {
color: #808080;
}
.style2 {
color: #808080;
background-color: #E6E6E6;
}
.basictab{
padding: 3px 0;
margin-left: 0;
font: bold ;
border-bottom: 1px solid black;
list-style-type: none;
text-align: left; /*set to left, center, or right to align the menu as desired*/
}
.basictab li{
display: inline;
margin: 0;
}
.basictab li a{
text-decoration: none;
padding: 3px 7px;
margin-right: 3px;
border: 1px solid black;
border-bottom: none;
background-color: #AFCAE2;
color: #2d2b2b;
}
.basictab li a:visited{
color: #2d2b2b;
}
.basictab li a:hover{
background-color: #ffffff;
color: black;
}
.basictab li a:active{
color: black;
}
.basictab li.selected a{ /*selected tab effect*/
position: relative;
top: 1px;
padding-top: 4px;
background-color: #ffffff;
color: black;
}
</style>
</head>
<%
Server.ScriptTimeOut=1000
id=Request("id")
Session("UPLOAD_ID")=id
'--------------------------------------------------------------------------
'-Üye Kontrol --
SQL_Firma_Foto_Yukle_Kontrol= "SELECT * FROM oto_ilan_kayitlar WHERE id="&FIXQUOTES(Request("id"))&" AND uye_id="&RS_Kontrol("id")&" "
SET Firma_Foto_Yukle_Kontrol=Baglanti.Execute(SQL_Firma_Foto_Yukle_Kontrol)
IF Firma_Foto_Yukle_Kontrol.EOF THEN
Response.Redirect "login_hata.asp?hata=05"
END IF
'--------------------------------------------------------------------------
If REQUEST("do")="fotoyukle" Then
Set UPLOAD = Server.CreateObject( "PERSITS.UPLOAD.1" )
UPLOAD.OVERWRITEFILES = TRUE
COUNT = UPLOAD.SAVETOMEMORY
For Each FILE IN UPLOAD.FILES
If File.ImageType = "UNKNOWN" Then
Response.write "Resim (*.jpg) dosyanızı seçiniz !.<br />"
Response.write "<A HREF=""javascript:history.go(-1)"">Yükleme sayfasına dön !</A>"
FILE.DELETE
RESPONSE.End
ElseIf File.ImageType <> "JPG" AND File.ImageType <> "jpg" Then
Response.write "Resim formatı haricinde dosya yükleyemezsiniz. Sadece *.JPG uzantılı olmalıdır !.<br />"
Response.write "<A HREF=""javascript:history.go(-1)"">Yükleme sayfasına dön !</A>"
FILE.DELETE
RESPONSE.End
ElseIf FILE.SIZE > 262144 Then
Response.write "Dosyanın boyutu maksimum 256 KB olabilir.<br />"
Response.write "<A HREF=""javascript:history.go(-1)"">Yükleme sayfasına dön !.</A>"
FILE.DELETE
Response.End
ElseIf FILE.IMAGEWIDTH > 800 Then
Response.write "Resim eni çok büyük en fazla 800 piksel olmalıdır.<br />"
Response.write "<A HREF=""javascript:history.go(-1)"">Yükleme sayfasına dön !.</A>"
FILE.DELETE
Response.End
ElseIf FILE.IMAGEHEIGHT >600 Then
Response.write "Resim boyu çok büyük en fazla 600 piksel olmalıdır.<br />"
Response.write "<A HREF=""javascript:history.go(-1)"">Yükleme sayfasına dön !.</A>"
FILE.DELETE
Response.End
End If
' Dosya adı:
'-----------------------------------------
DOSYUZANTI=FILE.EXT
DOSYAADI=Session("UPLOAD_ID")
LOGOM=DOSYAADI&DOSYUZANTI
' Yükleme yeri:
'-------------------------------------
PATH = Server.MapPath("foto.logo\"&DOSYAADI&DOSYUZANTI) ' hata verirse: Server.MapPath("\foto.logo\"&DOSYAADI&DOSYUZANTI)
FILE.SAVEAS PATH
Next
' Yeniden Boyutlandırma:
'-------------------------------------
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath("foto.logo/"&DOSYAADI&DOSYUZANTI)
Jpeg.Open Path
' Resize, preserve aspect ratio
L = 85
Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
Jpeg.Save Server.MapPath("foto.logo/th"&DOSYAADI&DOSYUZANTI)
'-------------------------------------
sqlString = " UPDATE oto_ilan_kayitlar SET foto='"&LOGOM&"' Where id="&Session("UPLOAD_ID")&" "
Baglanti.execute sqlString
Session("UPLOAD_ID")=""
Response.redirect ("?x=1&id="&id&"")
End If
%>
<body style="margin-left: 0; margin-right: 0; margin-top: 5px; margin-bottom: 0">
<ul class="basictab">
<li class="selected"><a href="ilan_foto_upload.asp?id=<%=Request("id")%>">Foto Upload 01</a></li>
<li ><a href="ilan_foto_upload2.asp?id=<%=Request("id")%>">Foto Upload 02</a></li>
<li ><a href="ilan_foto_upload3.asp?id=<%=Request("id")%>">Foto Upload 03</a></li>
<li ><a href="ilan_foto_upload4.asp?id=<%=Request("id")%>">Foto Upload 04</a></li>
<li ><a href="ilan_foto_upload5.asp?id=<%=Request("id")%>">Foto Upload 05</a></li>
</ul>
<% If Request("x")="1" Then Response.Write "<br /><center>İşlem Başarıyla Tamamlandı.</center>" End If %>
<form method="post" action="?do=fotoyukle&id=<%=Session("UPLOAD_ID")%>" ENCTYPE="multipart/form-data" name="form">
<table style="width: 500px" cellpadding="2" align="center">
<tr>
<td><strong> Resim Dosyanız</strong></td>
<td style="width: 12px"><strong>:</strong></td>
<td>
<input name="FILE1" type="FILE" class="newStyle1" style="width: 275px"></td>
</tr>
<tr>
<td style="height: 26px"></td>
<td style="width: 12px; height: 26px;"></td>
<td style="height: 26px">
<input type="submit" value="Yükle" name="Submit" class="newStyle1" onClick="form.Submit.disabled=true; form.Submit.value='KONTROL EDİLİYOR...'; form.submit()" <% If Request("x")="1" Then %>Disabled<% End If %> ></td>
</tr>
<tr>
<td class="style2" style="height: 1px"></td>
<td style="width: 12px; height: 1px;" class="style2"></td>
<td class="style2" style="height: 1px"></td>
</tr>
<tr>
<td class="style1" valign="top"><strong> Bilgi</strong></td>
<td style="width: 12px" class="style1" valign="top"><strong>:</strong></td>
<td class="style1">Resim dosyanız: <br>
- *.jpg uzantılı olabilir.<br>
- maksimum genişliği 800, yüksekliği 600 piksel olmalıdır.<br>
- maksimum boyutu 256 KB olabilir.</td>
</tr>
</table>
</form>
</body>
</html>
Resim Upload ettiğimde Persits.Upload.1 error '800a001a'
Access is denied.
/deneme/ilan_foto_upload.asp, line 144
Bu şekilde Hata Veriyor Yukarda Verdiğim Kodlarda Duzeltmem Gerekn Yer Neresi yada Duzenyebilecek Birisi Varsa Rica Ediyorum Çok Acil
28-02-2009, 03:16 AM
Normal
