Salve a tutti..
vorrei cambiare il nome di un file che un utente invia dandogli come nome un codice random o l' ID di sessione in questo script, come posso fare? Il tutto viene poi trasmesso tramite form per essere inserito in un database. Premetto che ho provato in svariati modi gli script di Baol ma mi davan svariati errori tanto da rinunciarvi e passare a questa più semplice ma efficace.
Ecco il codice:
<% Session.SessionID %>
<% IP = Request.ServerVariables( "REMOTE_ADDR" ) %>
<%Response.Expires=0
Response.Buffer = TRUE
Response.Clear
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")
%>
<%
if len(filename)= false then
response.redirect("errore.asp?err=0&xdesc=Inserisc i l'immagine")
%>
<%
Else
%>
QUA VORREI INSERIRE IL CODICE DI CONTROLLO
<%
'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Re quest.ServerVariables("PATH_INFO")),pathEnd) & filename)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close%>
<%
end if
%><head>
<title></title>
</head>
<body bgcolor="#ffffff">
<center>
</center>
<p align="center"><font face="Verdana" size="2" color="#999999"><font color="#000000">File
"</font><%=filename%><font color="#000000">"
ricevuto con successo..</font></font>
<center>
<table width="240" border="0">
<tr>
<td></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> </font>
<form method="POST" action="../add-name-images.asp">
<div align="center">
<div align="center"></div>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="hidden" name="datainserimento" size="8" value="<%=date()%>">
<input type="hidden" name="ip" size="8" value="<%=IP%>">
<input type="hidden" name="sessione" size="8" value="<%=Session.SessionID%>">
<input type="hidden" name="imagine" size="8" value="<%=filename%>">
<input type="submit" value="Continua" name="B1">
</font></div>
</form>
</td>
</tr>
</table>
</center>
Grazie mille..
Rispondi quotando