Klasik Asp için Basit Resim Upload Scripti

ResimEkleme.htm
<html>
<head>
<title> Resim Yükleme </title>

</head>
<body>
<div align="center"><Form Method="Post" Name="Form" Enctype="multipart/form-data" Action="resimupload.asp">
<table width="250" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
	<td align="center">
<Input Name="Dosya" type="FILE" id="Dosya" />
<input name="button" type="submit" id="button" value="Upload" />
</td>
</tr>
</table>
</Form></div>
</body>
</html>
Ve resimupload.asp

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SetMaxSize 1048576
Upload.Save Server.Mappath("/resimlerinyuklenecegiklasör")
For Each File in Upload.Files
DosyaIsmi = File.FileName
Next
response.write "Basariyla yüklendi."


%>