Asp’de Upload uygulaması

'Programlama' forumunda ...... tarafından 13 Eyl 2009 tarihinde açılan konu

Konu etiketleri:
  1. ......

    ...... Misafir



    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.


     

Bu Sayfayı Paylaş