<!--#include file="ust.asp"-->
<%
Server.ScriptTimeout=2000
if admin("resim_galerisi") = 1 Then
Else
Response.Redirect "izin_yok.asp"
End If
resim_menu = ("1")
%>
<table border="0" width="1024" cellspacing="0" cellpadding="0">
<tr>
<td width="300" valign="top" align="center" bgcolor="#E4F7FA"><!--#include file="menu.asp"--></td>
<td width="3" valign="top" align="left" bgcolor="#5DC9E1"></td>
<td width="721" valign="top" align="left">
<%'############## İÇERİK BASLANGICI ############################# %>
<img src="images/spacer10.png" />
<table border="0" width="720" cellspacing="5" cellpadding="3">
<tr>
<td width="100%" bgcolor="#51A8FF" height="22"><font color="#FFFFFF"
face="Arial" size="2"> Yeni Resim Ekle</font></td>
</tr>
<tr>
<td width="100%">
<form action="resim_ekle.asp?islem=ekle" method="post" ENCTYPE="multipart/form-data">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="30%" height="38" align="right"><b>Resim Açıklaması : </b> </td>
<td width="70%"><input type="text" name="aciklama" size="53"></td>
</tr>
<tr>
<td width="30%" height="38" align="right"><b>Resim Kategorisi: </b> </td>
<td width="70%"><select name="kategori" size="1">
<%
Set kategori_sec = server.CreateObject("ADODB.Recordset")
SQL = "Select * From resim_kategori order by id desc;"
kategori_sec.Open SQL, bag,3,2
If not kategori_sec.eof then
while not kategori_sec.eof
%>
<option value="<%=kategori_sec("kategori_url")%>"> <%=kategori_sec("kat_adi")%> </option>
<%
kategori_sec.movenext
wend
Else
End If
kategori_sec.close
%>
</select></td>
</tr>
<tr>
<td width="30%" height="38" align="right"><b>Resim : </b> </td>
<td width="70%"><input type="file" name="resimadres" size="42"></td>
</tr>
<tr>
<td height="60" colspan="2" align="right">
<input type="submit" name="button" id="button" value=" Resmi Yükle " <% if admin("kullanici") = ("demo") Then
Response.Write("disabled")
Else
End If
%>>
</td>
</tr>
</table>
</form>
<%
if admin("kullanici") = ("demo") Then
Else
Set verial = server.CreateObject("ADODB.Recordset")
dede = "Select * From yonetim where id "
verial.Open dede, bag,3,2
logo=verial("resim_logo")
if request.QueryString("islem")="ekle" then
Set Upload = Server.CreateObject("Persits.Upload")
Path = Server.MapPath("../upload/galeri/")
Count = Upload.Save(Path)
If Count = 0 Then
Response.Write("Resim Seç")
Else
Set File = Upload.Files(1)
tip=File.ImageType
If tip = "JPG" Or tip = "jpg" Or tip = "png" Or tip = "PNG" Or tip = "gif" Or tip = "GIF" Then
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open(File.Path)
Jpeg.Width = 800
Jpeg.Height = (Jpeg.OriginalHeight * Jpeg.Width) / Jpeg.OriginalWidth
Jpeg.Canvas.DrawPNG 10, 10, Server.MapPath("" & logo & "")
Jpeg.Save File.Path
Set Jpeg = Nothing
Set yukle = server.CreateObject("ADODB.Recordset")
sql = "Select * From resim_galeri"
yukle.Open sql, bag,3,2
yukle.addnew
yukle("aciklama") = Upload.form("aciklama" )
yukle("kategori") = Upload.form("kategori" )
yukle("resimadres") = "upload/galeri/" & File.ExtractFileName
yukle.update
Else
file.delete
response.write "Dosya yüklenemez. JPG, GIF, PNG harici dosya yüklemek yasaktır"
End If
End If
End If
End if
%>
</td></tr></table>
<%'############## İÇERİK BASLANGICI ############################# %>
</td>
</tr>
</table>
<!--#include file="alt.asp"-->Yukardaki gibi bir resim yükleme sayfam var ve buna ben "jQuery-File-Upload-jquery-ui" isimli scripti uyarlamak istiyorum bunu nasıl yaparım yardım edebilirmisiniz.?
scriptin download linki: https://github.com/blueimp/jQuery-Fi.../jquery-ui.zip
