Ciao a Tutti,
nella mia pagina index.asp ho:
<form method="POST" name="FrontPage_Form2" enctype="multipart/form-data" action="upload.asp">
<input type="file" name="file" size="20">
<input type="image" name="up" id="p" value="upload" onClick="this.form.submit();" src="images/plus2.jpg">
</form>
Mi lancia la pagina upload.asp il cui codice lo riporto qui di seguito:
<HTML>
<HEAD>
<%@ Language= VBScript %>
<%
'
Server.ScriptTimeout = 100000
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'
'
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
'
'
contentType = UploadRequest.Item("file").Item("ContentType")
filepathname = UploadRequest.Item("file").Item("FileName")
tipo = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"."))
'
If tipo <> "zip" AND tipo <> "pdf" then
Response.Write ("Errore. Non è possibile caricare un file diverso da zip o pdf !!" & tipo)
Response.End
else
If byteCount > 3009000 then
'
Response.Write ("<script>alert('Errore. File troppo grande !!');window.history.go(-1);</script>" )
Response.End
else
'
nomefile = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
filename = nomefile
value = UploadRequest.Item("file").Item("Value")
'
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14
'
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("archiv io_deliver\") &"\"& filename)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
End If
End If
%>
</HEAD>
<BODY BACKGROUND="images/sfondo_drago.gif ">
<%
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")
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Conte nt-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("filen ame="))
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),Requ estBin,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
%>
<%
Dim objFSO, objFile, objFolder
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("archivio_deliver" ))
Response.Write "
"
For Each objFile in objFolder.Files
Response.Write Left(objFile.Name, 4) & "
"
Next
Set objFolder = Nothing
Set objFSO = Nothing
%>
</BODY>
</HTML>
tutto funziona bene,
solo che quando provo a caricare un file di dimensioni grandi,
e che giustamente viene fuori l' alert di avviso,
la pagina upload.asp ha uno sfondo bianco,
ho provato a cambiare lo sfondo mettendo un' immagine,
ma al BODY non ci si arriva...
Come si fa a mettere un' immagine di sfondo in questo caso di alert per file di grosse dimensioni ???
Grazie in anticipo !!!
Rispondi quotando
