form bölümü
<%@LANGUAGE="VBSCRIPT"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Resim Yükle</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
<style type="text/css">
<!--
body {
background-color:#fff;
}
-->
</style>
</head>
<body topmargin="0">
<!--#include file="ayarlar.asp"-->
<table width="500" border="0" style=" background-color:#fff; ">
<tr>
<td height="40" style="font-size:14px; font-family:Arial, Helvetica, sans-serif; font-weight:bold; color:#000; text-align:center; background-color:#0CF;">Resim Ekleme Bölümü</td>
</tr>
</table>
<form method="post" enctype="multipart/form-data" action="resim_uploadsafha.asp">
<table width="500" border="0" bgcolor="#FFFFFF" style="border:1px #0CF solid;" >
<tr>
<td height="10"></td>
</tr>
<tr>
<td style="text-align:center; ">
<input type="file" size="40" name="file1"><br />
<input type="file" size="40" name="file2"><br />
<input type="file" size="40" name="file3"><br />
<input type="file" size="40" name="file4"><br />
<input type="file" size="40" name="file5"><br />
<input type="file" size="40" name="file6"><br />
<input type="file" size="40" name="file7"><br />
<input type="file" size="40" name="file8"><br />
</td>
</tr>
<tr>
<td height="10"></td>
</tr>
<tr>
<td style="text-align:center; "><input type="submit" value="Yükle"> </td>
</tr>
<tr>
<td height="10"></td>
</tr>
</table>
</form>
</body>
</html>
Upload bölümü
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
</head>
<body OnLoad="yonlendir()" leftmargin="0" topmargin="30" bgcolor="#ffffff">
<img src="images/yukleniyor.gif" id="yukleniyor" style="position: absolute; left:40%; top:50%;">
<center>
<!--#include file="ayarlar.asp"-->/* dbase bağlantılarının bulunduğu dosya
<table width="90%" border="0" cellspacing="0" cellpadding="0" height="30%">
<tr>
<td align="center" valign="_top">
<%
dim resimlinkler(9)
sonip=session("ilankayitno") / bu resmi eğer bir konu altında kaydetmek istiyorsan kategori belirlemek için kullan
i=1
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Count = Upload.SaveToMemory
If Count > 0 Then
For Each File in Upload.Files
Set File = Upload.Files(i)
adi=File.FileName
duzanti = right(adi,3)
dosya = session("ilankayitno")&"_nolu_safha_resim_"&i&"."& duzanti
resimlinkler(i)="resimler/safha/"&sonip&"_nolu_safha_resim_"&i&"."&duzanti
Path = Server.MapPath("../resimler/safha" )&"\" & dosya
dirname = "../resimler/"
kklasor = "../resimler/safha/" 'resmin kk boy olarak saklanacagi klasr
bklasor = "../resimler/safha/" 'resmin byk boy olarak saklanacagi klasr
if duzanti <> "gif" and duzanti <> "jpg" and duzanti <> "png" then
response.write "<br><br><br><br><center><font class=red><small><b>zgnm ! <br><br>Sadece resim dosyasi ekleyebilirsiniz. Ltfen bir resim dosyasi ile tekrar deneyiniz.<br><br><br>Resim dosyalarinin uzantilari; jpg, gif veya png olmalidir.<br><br><br><br><a href=javascript
:history.back();>Geri Dn</a><br><br>"
response.end
end if
File.SaveAs Path
i=i+1
next
resim1=resimlinkler(1)
resim2=resimlinkler(2)
resim3=resimlinkler(3)
resim4=resimlinkler(4)
resim5=resimlinkler(5)
resim6=resimlinkler(6)
resim7=resimlinkler(7)
resim8=resimlinkler(8)
set kd = server.CreateObject("ADODB.Recordset")
kd.open "Select * From safha where id="&sonip&"",bag,1,3'buraya resmin
'kayitolacagi tabloyu yazmalisin
kd("resim1") = resim1
kd("resim2") = resim2
kd("resim3") = resim3
kd("resim4") = resim4
kd("resim5") = resim5
kd("resim6") = resim6
kd("resim7") = resim7
kd("resim8") = resim8
kd.update
Else
Response.Write "Hata Olustu..."
End If
%>
</BODY>
</HTML>