Kod:
<%
strResimKlasor = "Images"
Function sifre_sec( nNoChars, sValidChars )
Const szDefault = "0123456789"
Randomize
If sValidChars = "" Then
sValidChars = szDefault
End If
Dim nLength : nLength = Len( sValidChars )
Dim nCount
Dim nNumber
Dim sRet
For nCount = 1 To nNoChars
nNumber = Int((nLength * Rnd) + 1 )
sRet = sRet & Mid( sValidChars, nNumber, 1 )
Next
sifre_sec = sRet
End Function
If Session("uye_yetki1") <> "" And Session("uye_yetki1") <> 1 Then
Response.Redirect("yasak.asp?T=7")
Response.End
End If
If Session("uye_yetki1") = 1 Then
If Session("uye_yetki9") = 1 Then
Set Upload = Server.CreateObject("Persits.Upload")
Upload.SetMaxSize 1500000, True
Count = Upload.Save
if Count > 0 Then
Upload.CreateDirectory Server.MapPath(""& strResimKlasor), True
Set File1 = Upload.Files("attach1")
If Right(File1.FileName,3) <> "jpg" And Right(File1.FileName,3) <> "gif" And Right(File1.FileName,3) <> "png" And Right(File1.FileName,4) <> "jpeg" Then
Uyari ("Geçersiz Dosya Tipi ( "& Right(File1.FileName,4) &" ) ")
End If
Kategori = Upload.Form("Kategori")
Isim = Upload.Form("Resim_Adi")
Yazi_Rengi = Upload.Form("yazi_rengi")
Resim = "ATM"& sifre_sec(5, "") &"."& Right(File1.FileName,3)
File1.SaveAs Server.MapPath(""& strResimKlasor &"/"& Resim)
ObjConn.Execute("INSERT INTO tbl_resimler (resim_adi, Kategori) VALUES ('"& Resim &"','"& Kategori &"')")
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath(""& strResimKlasor &"/"& Resim)
Jpeg.Open Path
Jpeg.Width = "138"
Jpeg.Height = "163"
jpeg.Canvas.Font.Size = 20
jpeg.Canvas.Font.Color = "&H"& Yazi_Rengi &""
Jpeg.Canvas.Font.Family = "Trebuchet MS"
Jpeg.Canvas.Font.Bold = TRUE
Jpeg.Canvas.Print 1, 140, ""& Isim &""
Jpeg.Canvas.Pen.Color = "&"& Yazi_Rengi &""
Jpeg.Canvas.Pen.Width = 10
Text = ""& Isim &""
jpeg.Canvas.Font.Opacity = 0.4
jpeg.Canvas.PrintTextEx Text, 1, 150, "c:\Windows\Fonts\trebuc.TTF"
Jpeg.Canvas.Brush.Solid = True
Jpeg.Save Server.MapPath(""& strResimKlasor &"/"& Resim)
On Error Resume Next
DisplayError()
ObjConn.Execute(ObjAdd)
If Err.Number <> 0 Then
Call DisplayDBRecordError(Err)
End If
On Error Goto 0
Kayit_Op_Takip = Op_Takip(Session("uye_adi"),StrIp,Session("uye_yet ki"),StrParseDate_Time,"Üye resmi Ekledi")
Uyari("Resim BaÞarýyLa Yüklendi")
set ObjConn = Nothing
%>
<%
Else
goremez
End If
%>
<%
Else
goremez
End If
End if
%>alıntıdır