Asp de Resim album hakkında bilgi istiyorum

07-11-2010, 12:29:34

#1

~~taskoov~~

Üyeliği durduruldu

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>

<%
if not Session("Uyegirisi")="Tamamdir" then
response.Redirect("Giris.asp")
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<title>Yönetim Paneli</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
<link rel="stylesheet" type="text/css" href="../Bilesenler/css/all.css">
</head>
<body>
<div id="main">
<div id="header">
<ul id="top-navigation">
<li class="active"><span><span>Ana Sayfa</span></span></li>
<li><span><span><a href="adminler.asp">Adminler</a></span></span></li>
<li><span><span><a href="duyurular.asp">Duyurular</a></span></span></li>
<li><span><span><a href="haberler.asp">Haberler</a></span></span></li>
<li><span><span><a href="videolar.asp">Videolar</a></span></span></li>
<li><span><span><a href="Resimler.asp">Resimler</a></span></span></li>
<li><span><span><a href="genel.asp">Genel</a></span></span></li>
<li><span><span><a href="Logout.asp">Çıkış</a></span></span></li>
</ul>
</div>
<div id="middle">
<div id="left-column">
<h3>Hoşgeldiniz</h3>
<ul class="nav">
<li><a href="#">Hoşgeldin <%=session("users")%></a></li>
<li><a href="Kategoriler.asp">Kategoriler</a></li>
<li><a href="kategoriekle.asp">Kategori Ekle</a></li>
<li><a href="fotograf_upload.asp">Resim Ekle</a></li>
</ul>
<h3>Istatistikler</h3>
<ul class="nav">
<li><a href="../login.asp">Site</a></li>
</ul>
</div>
<div id="center-column"><style type="text/css">

</style>

<%
gonder=request.QueryString("gonder")
id=Request.QueryString("id")
if gonder="" then
%>
<form action="?gonder=evet&id=<%=Request.QueryString ("id")%>" method="post" enctype="multipart/form-data" name="form1" id="form1">
<table width="100%" border="0" align="center">
<tr>
<td colspan="2"><table width="547" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2" align="center" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="43%"> </td>
<td width="57%" align="center">
<%
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "Select * From tbl_resimler"
Rs.Open Sql,Baglanti,1,3
%><select name="foto" id="select"><option selected="selected">Kotegori Şeçin</option>

<%Do While Not Rs.Eof%>
<option value="<%=rs("id")%>"><%=Rs("Resimler")%></option>

<%
Rs.Movenext
loop

%></select></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
<label><br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
</label></td>
</tr>

<tr>
<td align="center"><input name="FILE" type="file" class="cellover" id="FILE3" size="30" /></td>
<td align="center"><font color="#FFFFFF" size="2"><b><font color="#FF0000">JPEG, GIF, BMP
ve PNG</font></b></font><font size="2"><b> </b><span class="style1"> dosyalarını yükleye bilirsiniz. Yüklediğiniz foroğrafların adlarında, Türkçe karakter bulunmamasına dikkat ediniz. Aksi takdirde yüklediğiniz fotoğraflar sistem tarafından tanınmayacaktırcontrol .</span></font></td>
</tr>
<tr>
<td align="center"><input name="SUBMIT" type="submit" value="Yükle" /></td>
<td align="center"> </td>
</tr>
<tr>
<td align="center"> </td>
<td align="center"> </td>
</tr>
</table></td>
</tr>

<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
</form>
<%
else
' google da persist file uplooad veya resim upload yazdığında çıkıyor.

yol=request.ServerVariables("PATH_TRANSLATED")
yol=replace(yol,"fotograf_upload.asp","")
yol2=replace(yol,"\","/")

Function SifreUret(Boy)
Dim Sifre,KarakterBoyu,KacinciKarakter
Const Karakterler = "ABCDEFGHIJKLMNOPRSTUVYZXW0123456789"
Randomize
KarakterBoyu = Len(Karakterler)
For x = 1 To Boy
KacinciKarakter = Int((KarakterBoyu * Rnd) + 1)
sifre = sifre & Mid(Karakterler,KacinciKarakter,1)
Next
SifreUret = sifre
End Function
Session("KarisikYazi") = SifreUret(7)
'response.Write(yol)
'response.End()
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.Save server.MapPath("files")
Set File = Upload.Files("file")
fn = File.ExtractFileName
fnPath = "galeri/" & fn ' veritabanına kaydedilcek resim yolu

fnFPath = File.Path

Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open File.Path
Jpeg.Width = 120
jpeg.Height = 110
'jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
Jpeg.Sharpen 1, 150

Jpeg.Save yol2&"/files/galeri/_" & fn
FsPath = yol2&"/files/galeri/_" & fn
sPath = "files/galeri/_" & fn 'Küçük resim yolu

'Buraya if Else Vasıtasıyla Katoegori Döngüsü Yapılıcak

%>

<%
Set Rs = Server.CreateObject("Adodb.Recordset")
rsss = "Select * From tbl_albumfoto"
Rs.Open rsss,Baglanti,1,3 %>
<%
Set Rsa = Server.CreateObject("Adodb.Recordset")
Sql = "Select * From tbl_resimler "
Rsa.Open Sql,Baglanti,1,3
a = Request.QueryString("foto")
Response.Write(a)
%>
<%
Rs.addnew

Rs("album") = a
Rs("resim") = fnPath
Rs("kucuk_resim") = sPath
%>

<% Rs.update
Rs.close
%>

<table width="350" height="88" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" align="center" class="style2">Resim Yüklendi</td>
</tr>
<tr>
<td height="25" align="center" class="style1"><a href="<%=request.ServerVariables("HTTP_REFERER")%> ">Yeni Resim Yükle</a></td>
</tr>
<tr>
<td height="25" align="center" class="style1"><a href="#" onclick="window.close()">Pencereyi Kapat</a></td>
</tr>
</table>
<%
'URL = request.ServerVariables("HTTP_HOST") + fnPath
End if
%>
<br />
</div>
</div>
<div id="footer"></div>
</div>

</body>
</html>

kodlar bunlar ben resimler katagorisine select tagından gelen value değerini yazdırmak istiyorum yardım edebilirmisiniz ?