Upload di zip o rar corrotti

[ffilogamo]

Attverso questo modulo:

<form name="frm" method="post" action="mmodifica.asp" enctype="multipart/form-data">
Documento:
<input type="file" name="blob" size=10 value="">

<input name="invia" type="submit" value="invia">
</form>

collegato al file mmodifica.asp:

<%@ LANGUAGE="VBSCRIPT" %>
<%Response.Expires = 0
Session.LCID = 1040
%>
<%

Set adoCon = Server.CreateObject("ADODB.Connection")

src = Server.MapPath("../../fpdb/db.mdb")
sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src
adoCon.Open sConnStr


%>
<%

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("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" , replace(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
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 filename <> "" then
'Crea FileSytemObject component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Crea il File
'***da modificare***
Set MyFile = ScriptObject.CreateTextFile("e:\users\mioutente\mi osito.it\imgNews\" & filename)

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close

End If
Session("FileDoc") = filename
'******* da modificare****
%>
<script language="JavaScript">
opener.document.News.test2.disable='false';
opener.document.News.test2.checked='true';
opener.document.getElementById('allegato').innerHT ML = 'Hai caricato il file <%=filename%>';
window.close();
</script>
<%



%>

inserisco un allegato ad una news...bene il file viene salvato sul server..lo scarico tutto..ma quando lo apro alcuni file contenuti dentro non me li apre dicendomi che il file è dannaggiato o non si puo aprire.

ho provato con file zip e file rar.

CHE SUCCEDE?
dove sta l'errore?

Grazie

[[trodat]]

Prova con lo script per upload di baol.