ciao a tutti
ho un piccolo problema
quando vado inviare un immagine con il nome giuseppe.gif nella cartella esce giuseppe.gif, qui tutto va bene
quando vado inviare un'altra volta l'immagine con il nome giuseppe.gif , non me la fa inviare ,
come posso fare quando invio immagini con lo stesso nome , nella cartella deve uscire esempio ( giuseppe.gif ,giuseppe1.gif ,giuseppe2.gif ,ecc...)
se possibile quando invo un'immagine non deve uscire il nome , ma deve uscire solo il numero esemio ( 1.gif , 2.gif , 3.gif , 4.gif , 5gif , ecc...)
questo e il codice :
<%Server.ScriptTimeout = 100000%>
<%
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("Foto").Item("ContentType")
filepathname = UploadRequest.Item("Foto").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("Foto").Item("Value")
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Re quest.ServerVariables("PATH_INFO")),pathEnd)&filen ame)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
%><head>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<table border="0" width="100%" height="40">
<tr>
<td width="100%" height="10" bgcolor="#E6E6FF"><font size="2" color="#000080"><font face="Arial">Uploaded file :</font> </font><font color="#000080" size="2" face="Arial"><%=filename%></font></td>
</tr>
<tr>
<td width="100%" height="18">
</td>
</tr>
</table>
ciao a tutti
Rispondi quotando
