MeMaTi Admin
Mesaj Sayısı : 176 Yaş : 33 Location : dfgfdg Job/hobbies : hgffg Humor : erwer Kayıt tarihi : 14/08/07
| Konu: 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> | |
|