KaraYılan TR

HOŞGELDİNİZ KaRaYıLaN
 
AnasayfaAnasayfa  SSSSSS  AramaArama  Kayıt OlKayıt Ol  Üye ListesiÜye Listesi  Kullanıcı GruplarıKullanıcı Grupları  Giriş yap  

Paylaş | 
 

 UPLOAD KODU

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
MeMaTi
Admin


Erkek
Mesaj Sayısı : 176
Yaş : 26
Location : dfgfdg
Job/hobbies : hgffg
Humor : erwer
Kayıt tarihi : 14/08/07

MesajKonu: UPLOAD KODU   Salı Ağus. 14, 2007 3:14 pm

Kod:

<Language>
<%

   dim totalbytes
   dim safearray
'upload.mdb dosyasi file dsn olarak tanimlanmali
'yada bir connection stringi ile baglanti kurulabilir
'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\raporlar"
                adtbl.AddNew
               adtbl("adi") = x.files(i).item(j).filename
               adtbl("tarih") = date()
               adtbl("lokasyon")="http:/raporlar/"&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>
<p> </p>
<p> </p>
<form>
  <p>                     

<TABLE width="473">
 
  <TR>
    <TD><STRONG><FONT> DOSYA SEÇINIZ </FONT> </STRONG>  </TD>
    <TD>
 
  <input></TD>
    <TD></TD></TR>
  <TR>
    <TD></TD>
    <TD>
  <input><input></TD>
    <TD></TD></TR></TABLE>
  <br> </p>
  <p> </p>
</form>
<p> </p>

<end>
</body>

</html>
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://www.djdenizcom.tr.gg
 
UPLOAD KODU
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Video oynatma Fbml kodu
» Google Site İçi Arama Kodu !
» Şerit Menü
» Vb Üst Menü
» Üst Menülü Css Tasarım Yapımı

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
KaraYılan TR :: KOD MERKEZİ :: HTML KODLAR-
Buraya geçin: