Bu dersimizde basit bir upload uygulaması hazırlayacağız. Bu örneğimizde VBScript dili kullanılmıştır. Kod: <%@ Language=VBScript %> <% dim totalbytes dim safearray ‘Internet Guest Account (serverismi\IUSR_serverismi)kullanıcısına full yetki verilmeli if request.servervariables(”REQUEST_METHOD”) = “POST” then set cnnl=server.CreateObject(”ADODB.Connection”) cnnl.Open “upload” set adtbl=server.CreateObject(”ADODB.Recordset”) adtbl.Open “files”, cnnl, adOpenDynamic, adLockOptimistic set x = server.createobject(”SCUpload.Upload”) x.upload response.write “<br><br><br>FILE:<br>” for i = 1 to x.files.count for j = 1 to x.files(i).item.count response.write “ Path Name: ” & x.files(i).item(j).pathname & “<br>” response.write “ File Size: ” & x.files(i).item(j).size & “<br>” response.write “ Content Type: ” & x.files(i).item(j).contenttype & “<br><br>” x.files(i).item(j).save “c:\inetpub\wwwroot\upload” adtbl.AddNew adtbl(”adi”) = x.files(i).item(j).filename adtbl(”tarih”) = date() adtbl(”lokasyon”)=”http:/upload/”&x.files(i).item(j).filename adtbl.update next next response.write “<br><br>” response.write “File Name: ” & x.file(”F1″).filename & “<br>” adtbl.close cnnl.Close else %> <html> <body bgColor=lightgrey> <p align=”center”> </p> <p align=”center”> </p> <form method=”post” enctype=”multipart/form-data” action=”upload.asp”> <p align=”center”> <TABLE border=0 cellPadding=1 cellSpacing=1 width=”473″ style=”WIDTH: 473px; HEIGHT: 79px” bgColor=red> <TR> <TD><STRONG><FONT color=white> DOSYA SEÇINIZ </FONT> </STRONG> </TD> <TD> <input type=”file” name=”F1″ style=”WIDTH: 327px; HEIGHT: 22px”></TD> <TD></TD></TR> <TR> <TD></TD> <TD> <input type=”submit” value=”Submit” name=”B1″><input type=”reset” value=”Reset” name=”B2″></TD> <TD></TD></TR></TABLE> <br> </p> <p align=”center”> </p> </form> <p align=”center”> </p> <% end if %> </body> </html> Yukarıdaki asp kodlarını metin dosyasına yapıştırdıktan sonra asp uzantısı ile kaydetiniz.
