<%@ Language=VBScript %>
<%
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 " FILE: "
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 & " "
response.write " File Size: " & x.files(i).item(j).size & " "
response.write " Content Type: " & x.files(i).item(j).contenttype & " "
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 " "
response.write "File Name: " & x.file("F1").filename & " "
adtbl.close
cnnl.Close
else
%>
<%
end if
%>
|
