cambio il nome file che carico

**grandeorco** · 21-10-2005, 15:49

Ciao a tutti, dopo aver effetuato una ricerca non ho trovato l' indicazione giusta e cosi chedo a voi. Nel sito ho un form di immissione dati e alla fine c'è la possibilita di allegare un .doc
, per praticita il doc lo inserisco in una cartella ma per funzionare come mi serve , il file deve avere un nome dato da me ,esempio compilando il form inserisco il mio nome (giorgio) ed il file che carico deve chiamarsi giorgio.doc anche se parte col nome di curriculum.doc. Come facio?

**teorema55** · 22-10-2005, 08:36

Se il form è, per esempio:

codice:

<form method="post" enctype="multipart/form-data" action="upload.asp">
        <p align="center">File: </font>
            <input type="file" name="banana">     
            


	<input type="text" name="nomefile">
            


        <input type="submit" name="Enter" value="Conferma">
</form>

il file upload.asp potrebbe essere:

codice:

<%
'variabili di configurazione
Dim folder
folder = "/la_cartella_dove_vuoi_memorizzare_il_file"  			'directory sul server con accesso in scrittura
'fine variabili di configurazione

Response.Expires=0
Response.Buffer = TRUE
Response.Clear

Sub BuildUploadRequest(RequestBin)
	PosBeg = 1
	PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
	boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
	boundaryPos = InstrB(1,RequestBin,boundary)
		Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
		Dim UploadControl
		Set UploadControl = CreateObject("Scripting.Dictionary")
		'Get an object name
		Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
		Pos = InstrB(Pos,RequestBin,getByteString("name="))
		PosBeg = Pos+6
		PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
		Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
		PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
		PosBound = InstrB(PosEnd,RequestBin,boundary)
			If  PosFile<>0 AND (PosFile<PosBound) Then
			PosBeg = PosFile + 10
			PosEnd =  InstrB(PosBeg,RequestBin,getByteString(chr(34)))
			FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			UploadControl.Add "FileName", FileName
			Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
			PosBeg = Pos+14
			PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
			ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			UploadControl.Add "ContentType",ContentType
			PosBeg = PosEnd+4
			PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
			Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
			Else
			Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
			PosBeg = Pos+4
			PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
			Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
		End If
		UploadControl.Add "Value" , Value	
		UploadRequest.Add name, UploadControl	
		BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
	Loop
End Sub
Function getByteString(StringStr)
 For i = 1 to Len(StringStr)
 	char = Mid(StringStr,i,1)
	getByteString = getByteString & chrB(AscB(char))
 Next
End Function
Function getString(StringBin)
 getString =""
 For intCount = 1 to LenB(StringBin)
	getString = getString & chr(AscB(MidB(StringBin,intCount,1))) 
 Next
End Function

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest  RequestBin

contentType = UploadRequest.Item("banana").Item("ContentType")
filepathname = UploadRequest.Item("banana").Item("FileName")
filename=request.form("nomefile")
value = UploadRequest.Item("banana").Item("Value")


'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
Set MyFile = ScriptObject.CreateTextFile(Server.mappath(folder)&"\"&filename)
 
For i = 1 to LenB(value)
	MyFile.write chr(AscB(MidB(value,i,1)))
Next 

 
MyFile.Close
%>

<html>
<head>
	<title>UPLOAD FILE</title>
	
	<script language="JavaScript">
     function close_reload() {
       window.opener.location.reload();
	   window.close();
  	}
	</script>



</head>
<body>



 <center><div>File caricato correttamente</div>
 

</p>
<div>Chiudi finestra</div></center>
</body>
</html>

Non testato, ma ad occhio e croce dovrebbe andare........

**grandeorco** · 22-10-2005, 15:00

Si grazie , alla fine faro cosi . Ciao

Discussione: cambio il nome file che carico

Strumenti discussione

Ricerca discussione

Visualizza

cambio il nome file che carico

Permessi di invio