Newsgroup: it.comp.www.asp
Titolo: RINOMINARE IL NOME DI FILE MANTENENDO L'ESTENSIONE

Ciao ragà e buon rientro dalle vacanze;
volevo un aiuto per compiere un'operazione.... mi spiego....
Allora voglio rinominare un file di cui faccio l'upload su un server e
mantenere l'estensione.
1) faccio l'upload
____________________________________________________________
<%
function formatta(str)
 str=replace(str,"'","''")
 str=replace(str,vbCRLF,"<br>")
 formatta=str
end function
 %>
<!--#include file="upload.asp"-->
<%
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")
c = UploadRequest.Item("c").Item("Value")
data = formatta(UploadRequest.Item("quando").Item("Value"))
id = UploadRequest.Item("id").Item("Value")
facolta = formatta(UploadRequest.Item("facolta").Item("Value"))
corsi = formatta(UploadRequest.Item("corsi").Item("Value"))
'priorita = formatta(UploadRequest.Item("priorita").Item("Value"))
'response.write(value)
'response.write(filename)
'response.write(filepathname)
'response.write(c)
'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-20
Set MyFile =
ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PAT
H_INFO")),pathEnd) & c &"/"& filename)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
%>
2) Dopo l'upload sul server voglio prendere il nome contenuto nella
variabile "filename" e cambiare il nome ma lasciando l'estensione
io avevo proceduto con javascript e riesco a tirare fuori l'estensione ma
poi non riesco a far passare il nome del file da javascript a asp....
qualcuno mi aiuta...??!!!
<script>
   var a = "<%=filename%>";
   var b = a.length;
   // --var c = a-4;
   // --var gg = a.slice(a, c)
   // --alert(gg);
   var ss = a.lastIndexOf(".")
   var gg = a.substr(ss, b)
   alert("è la lunghezza: " + ss);
   alert("ed ha estensione: " + gg);
   var newname = <%=id%> + gg
   </script>
   <%
    Dim fs
    Set fs = Server.CreateObject("Scripting.FileSystemObject")
    fs.MoveFile response.write(filename), newname
    Set fs = nothing
   %>
<%
  Set cn = Server.CreateObject("ADODB.Connection")
%>
<%cn.Open "driver={Microsoft Access Driver
(*.mdb)};dbq="&Server.MapPath("../../../mdb-database/anagrafeuni.mdb")%>
<%
strSQL = "UPDATE corsi SET fileagganciato = '" & filename & "' where
riffacolta = "& id &" and corsi ='" & corsi &"';"
cn.Execute(strSQL)
response.write(strSQL)
file = "inseriscipianiuni.asp?facolta=" & facolta & "&id=" & id
response.redirect(file)
%>

 javascript a asp.... qualcuno mi aiuta...??!!!
non si puo' fare perché asp e lato server...
se vuoi cambiare il nome lo puoi fare direttamente nella prima fase, ovvero
quando fai l'upload del file...
-- 
Lino Mari
http://www.ebow.it
 - e-business on web!
http://www.ebow.it/blog/
 - Mktg Log
http://www.dev2dev.it
 - La rete ha connesso nuove particelle - d2D004