Ciao a Tutti,
ho il seguente problema:
Il server ha il seguente path: http: //nome_server/quality/customer/cu_index.asp
Nella pagina cu_index.asp ho una form con 7 input type file:
<html>
<head>
<meta http-equiv="Content-Language" content="it">
<title>Index: Customer</title>
<script type="text/javascript">
function go() {
document.FrontPage_Form_cu.action= "cu_upload.asp?c_file1="+document.getElementById(' file_1').value+
"&c_file2="+document.getElementById('file_2').valu e+
"&c_file3="+document.getElementById('file_3').valu e+
"&c_file4="+document.getElementById('file_4').valu e+
"&c_file5="+document.getElementById('file_5').valu e+
"&c_file6="+document.getElementById('file_6').valu e+
"&c_file7="+document.getElementById('file_7').valu e
document.FrontPage_Form_cu.submit(); }
<form method="POST" name="FrontPage_Form_cu">
...
<input type="file" name="file_1" id="file_1">
<input type="file" name="file_2" id="file_2">
<input type="file" name="file_3" id="file_3">
<input type="file" name="file_4" id="file_4">
<input type="file" name="file_5" id="file_5">
<input type="file" name="file_6" id="file_6">
<input type="file" name="file_7" id="file_7">
<button onClick="go">Save</button>
Quando uno schiaccia il pulsante Save viene eseguita la pagina cu_upload.asp con la quale vorrei fare un upload multiplo dei 7 files in una cartella virtuale del server.
Ora come ora, il tutto funziona solo per il primo file mentre per gli altri 6 files niente.
<--- cu_upload.asp -->
<%
Dim NomeFile, oUpload, objFSO, objFolder, objStartFolder, colFiles, objFile, prefix, str
Dim c_file(7), file(7), i
For i = 1 to 7
c_file(i) = Request("c_file"&i)
Next
'
Set oUpload = new cUpload
oUpload.SetPathFisico "d:\qscan_docs\2013\2013_custom"
oUpload.AutoRename = True
oUpload.Load
NomeFile = oUpload.GetFileName()
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If Not objFSO.FolderExists(Server.MapPath("/quality/schede_progetto/d_qscan/2013/2013_custom/")) Then
objFSO.CreateFolder("D:\qscan_docs\2013\2013_custo m")
End If
objStartFolder = "d:\qscan_docs\2013\2013_custom"
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For i = 1 to 7
If Len(c_file(i))>3 Then oUpload.SaveAs NomeFile&"_"&i
Next
Set colFiles = Nothing : Set objFolder = Nothing : Set objFSO = Nothing
oUpload.close
Set oUpload=Nothing
'
%>
In questo modo riesco a copiare solo il primo file ...
Ho poi provato l' esempio presente in uno dei topics del forum:
test.asp
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="test_save.asp">
File : <INPUT TYPE="file" NAME="Campo1">
File : <INPUT TYPE="file" NAME="Campo2">
File : <INPUT TYPE="file" NAME="Campo3">
File : <INPUT TYPE="file" NAME="Campo4">
File : <INPUT TYPE="file" NAME="Campo5">
<INPUT TYPE="submit" NAME="Enter">
</FORM>
test_save.asp
<%
Dim oUpload
Set oUpload = new cUpload
oUpload.SetPath "test\"
oUpload.UploadAndSave
Set oUpload=Nothing
%>
se creo una cartella test funziona, ma essa e' una cartella appartenente ad un percorso "fisico"
nel mio caso invece devo scaricare i files in un percorso virtuale:
nel mio caso la cartella del pc D:\q_scan_docs e' la cartella del server:
\\nome_server\schede_progetto\d_qscan
pertanto se scrivo il percorso cosi' come mi andrebbe, non funziona !!!
<%
Dim oUpload
Set oUpload = new cUpload
oUpload.SetPath "\\nome_server\schede_progetto\d_qscan\2013\2013_c ustom\test"
oUpload.UploadAndSave
Set oUpload=Nothing
%>
Come fare ???
Grazie mille in anticipo !!!!
Rispondi quotando
