KaraYılan TR
Would you like to react to this message? Create an account in a few clicks or log in to continue.
KaraYılan TR

HOŞGELDİNİZ KaRaYıLaN
 
AnasayfaAnasayfa  AramaArama  Latest imagesLatest images  Kayıt OlKayıt Ol  Giriş yap  

 

 UPLOAD KODU

Aşağa gitmek 
YazarMesaj
MeMaTi
Admin



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

UPLOAD KODU Empty
MesajKonu: UPLOAD KODU   UPLOAD KODU Icon_minitimeSalı 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
http://www.djdenizcom.tr.gg
 
UPLOAD KODU
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» DOSYA UPLOAD KODU
» FIKRA KODU
» KEYLOGGER KODU

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