Object doesn't support this property or method: 'JPEG2.PRESERVEASPECTRATIO'
/site/yonetim/resimekle.asp, line 183
HATAYI VEREN KOD SAYFASI :
<%'If Session("Admin") <> TRUE Then Response.Redirect("default.asp")%>
<%
Response.ContentType = "text/html"
Response.Charset = "UTF-8"
%>
<%
Function ChangeTR(ByVal Pic)
Pic = Replace(Pic,"","s")
Pic = Replace(Pic,"","g")
Pic = Replace(Pic,"","i")
Pic = Replace(Pic,"","u")
Pic = Replace(Pic,"","o")
Pic = Replace(Pic,"","c")
Pic = Replace(Pic,"'","")
Pic = Replace(Pic,"&","")
Pic = Replace(Pic,"","G")
Pic = Replace(Pic,"","U")
Pic = Replace(Pic,"","O")
Pic = Replace(Pic,"","C")
Pic = Replace(Pic,"","S")
Pic = Replace(Pic,"","I")
Pic = Replace(Pic," ","")
ChangeTR = Pic
End Function
'******** RasgeleNumara **********
Function CRefNum()
strValue = Empty
strValue = strValue & Year(Date)
If Len(Month(Date)) = 1 Then
strValue = strValue & "0" & Month(Date)
Else
strValue = strValue & Month(Date)
End If
If Len(Day(Date)) = 1 Then
strValue = strValue & "0" & Day(Date)
Else
strValue = strValue & Day(Date)
End If
If Len(Hour(Time)) = 1 Then
strValue = strValue & "_0" & Hour(Time)
Else
strValue = strValue & "_" & Hour(Time)
End If
If Len(Minute(Time)) = 1 Then
strValue = strValue & "0" & Minute(Time)
Else
strValue = strValue & Minute(Time)
End If
If Len(Second(Time)) = 1 Then
strValue = strValue & "0" & Second(Time)
Else
strValue = strValue & Second(Time)
End If
CRefNum = strValue
End Function
'******** RasgeleNumara **********
Tur = Request.QueryString("Tur")
text = Request.QueryString("text")
PathDir = "C:\Inetpub\vhosts\site\httpdocs\Resimler\"
Tip = Left(text,2)
Select Case Tip
Case "HB"
ResYol = PathDir & "Haber\"
Case "HK"
ResYol = PathDir & "Haber\"
Case "HH"
ResYol = PathDir & "Hakkimizda\"
Case "PR"
ResYol = PathDir & "Projeler\"
Case "GL"
ResYol = PathDir & "Projeler\FotoGaleri\"
Case "TH"
ResYol = PathDir & "Projeler\TheProject\"
Case "FP"
ResYol = PathDir & "Projeler\FloorPlans\"
Case "KR"
ResYol = PathDir & "Projeler\Kroki\"
End Select
%>
<%
Set UPLOAD = Server.CreateObject("PERSITS.UPLOAD" )
UPLOAD.OVERWRITEFILES = FALSE
COUNT = UPLOAD.SAVETOMEMORY
For Each FILE IN UPLOAD.FILES
' Kontroller sadace resim trevi dosya formatlar iin eer .zip' e izin vermek istiyorsanz : If FILE.EXT<>".zip" End If bu kudu bu alan yazarsanz .zip harici dosyalar aadaki konttoller tabi olucak FILE.IMAGEtype="UNKNOWN" ile asp ve benzeri kt niyetli dosyalarn yklenmesine ayrca izin verilmez..
'-----------------------------------------
If FILE.IMAGEtype="UNKNOWN" Then
With Response
.Write"<SCRIPT LANGUAGE=""JavaScript"">"
.Write"{"
.Write"window.alert (""resim format haricinde dosya ykleyemezsiniz. JPG,GIf veya PNG olmaldr."");"
.Write"window.location = ""javascript
:history.go(-1)"""
.Write"}"
.Write"</SCRIPT>"
End with
FILE.DELETE
RESPONSE.End
' resim trevi dosya kontrolleri bitti, eer yukardaki gibi .zip iin verdiimiz rnei yapld ise buraya End If koyunuz.
ElseIf FILE.SIZE > 2100000 Then
With Response
.Write"<SCRIPT LANGUAGE=""JavaScript"">"
.Write"{"
.Write"window.alert (""dosyann boyutu ok byk ltfen optimize ediniz."");"
.Write"window.location = ""javascript
:history.go(-1)"""
.Write"}"
.Write"</SCRIPT>"
End with
FILE.DELETE
Response.End
End If
' Dosya ad uzantlar
'-----------------------------------------
DOSYUZANTI=FILE.EXT ' dosyann uzantsna bakyoruz. (.jpg .gIf .asp .zip rnei gibi balarnda nokta bulunur. )
DOSYAADI="" ' Denemek iin Deneme olarak belirttik.. isterseniz form dan gelen bir isim veya id de olabilir : DOSYAADI=Trim(UPLOAD.FORM("ID" ))
If DOSYAADI="" Then ' Eer dosya ad bosa orjinal dosya adn alcak.
DOSYAADI = left(FILE.Filename,(Len(FILE.Filename)-4))
End If
' Ykleme yeri
'-------------------------------------
' Fiziksel yol ile
' DOSYAPATH="c:\dosyalar\xxxxx\" ' sona \ yazmay unutmayn yoksa hata veriri dosyan system32 dizini iine gidebilir.
' PATH = ( DOSYAPATH &DOSYAADI &DOSYUZANTI) ' orjinal dosya ad iin FILE.NAME &FILE.EXT denebilir.
' FILE.SAVEAS PATH
'-------------------------------------
' Dorudan bulunduu dizine
DosyaAd = ChangeTR(DOSYAADI)
DosyaAdi = DosyaAd & "_" & CRefNum() & DOSYUZANTI
PATH = ResYol & DosyaAdi ' hata verirse yklemez ise Server.MapPath( "\" &DOSYAADI &DOSYUZANTI)
'Response.Write PATH
'response.End
FILE.SAVEAS PATH
' ayrca araya dizin ekleyebilirsiniz. PATH = Server.MapPath( "images\" DOSYAADI &DOSYUZANTI)
'-------------------------------------
Next
DosyaAdi_K = DosyaAd & "_" & CRefNum() & "_k" & DOSYUZANTI
text_k = text & "_K"
Select Case Tur
Case "bir"
Call OPTIMIZE
Case "PFotoG"
Call OPTIMIZE2
Case "galeri"
Call OPTIMIZE2
Case "Floor"
Call OPTIMIZE4
End Select
%>
<!--------------------###### Resmi Kltme 150x150 ########-------------->
<%
Sub OPTIMIZE
Set JPEG1 = Server.CreateObject("PERSITS.JPEG" )
Set JPEG2 = Server.CreateObject("PERSITS.JPEG" )
JPEG1.Open PathDir & "150X150.png" ' Hazrladmz bo resim
JPEG2.Open ResYol & DosyaAdi
JPEG2.PRESERVEASPECTRATIO = TRUE ' REsmin Orantl bir ekilde klmesini ya da bymesini salyor.
If JPEG2.OriginalWidth > 150 Then
JPEG2.WIDTH = 150
End IF
JPEG2.SAVE ResYol & DosyaAdi_K
End Sub
Sub OPTIMIZE2
Set JPEG2 = Server.CreateObject("PERSITS.JPEG" )
JPEG2.Open ResYol & DosyaAdi
JPEG2.PRESERVEASPECTRATIO = TRUE ' REsmin Orantl bir ekilde klmesini ya da bymesini salyor.
If JPEG2.OriginalWidth > 120 Then
JPEG2.WIDTH = 120
End IF
JPEG2.SAVE ResYol & DosyaAdi_K
End Sub
Sub OPTIMIZE2
Set JPEG2 = Server.CreateObject("PERSITS.JPEG" )
JPEG2.Open ResYol & DosyaAdi
JPEG2.PRESERVEASPECTRATIO = TRUE ' REsmin Orantl bir ekilde klmesini ya da bymesini salyor.
If JPEG2.OriginalWidth > 100 Then
JPEG2.WIDTH = 100
End IF
JPEG2.SAVE ResYol & DosyaAdi_K
End Sub
Sub OPTIMIZE4
Set JPEG2 = Server.CreateObject("PERSITS.JPEG" )
JPEG2.Open ResYol & DosyaAdi
JPEG2.PRESERVEASPECTRATIO = TRUE ' REsmin Orantl bir ekilde klmesini ya da bymesini salyor.
If JPEG2.OriginalWidth > 300 Then
JPEG2.WIDTH = 300
End IF
JPEG2.SAVE ResYol & DosyaAdi_K
End Sub
%>
<!--------------------###### Resmi Kltme 150x150 ########-------------->
<script language="javascript">
<!--
function kapat()
{
window.opener.document.Form1.<%=text%>.value='<%=D osyaAdi%>';
<%If Tur = "bir" Then%>
window.opener.document.Form1.<%=text_k%>.value='<% =DosyaAdi_K%>';
<%End IF%>
<%If Tur = "PFotoG" Then%>
window.opener.document.Form1.<%=text_k%>.value='<% =DosyaAdi_K%>';
<%End IF%>
<%If Tur = "Kroki" Then%>
window.opener.document.Form1.<%=text_k%>.value='<% =DosyaAdi_K%>';
<%End IF%>
<%If Tur = "SitePlan" Then%>
window.opener.document.Form1.<%=text_k%>.value='<% =DosyaAdi_K%>';
<%End IF%>
window.close();
}
//-->
</script>
<center><br><br><br>
isleminiz gerceklestirilmistir.
<br>
<a href="javascript
:;" onClick="kapat();">KAPAT</a></center>