<%@ LANGUAGE="VBSCRIPT" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<script language="JavaScript">
function allegatoOk() {
window.opener.document.News.test.disable=0;
window.opener.document.News.test.checked=1;
}
</script>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#999999" >
<%
Session("FileUp") = ""
srv = Request("srv")
est = Request("est")
'Se l'immagine è presa dal server allora
if srv <> "" and est <> "" then
Session("imgServer")= "server"
Session("FileUp") = Server.MapPath("imgServer\") & "\" & srv & "." & est
response.Write("<script language='JavaScript'> window.opener.document.News.test.disable=0; window.opener.document.News.test.checked=1; window.close(); </script>")
'Se l'immagine è presa dal Pc utente allora..
Else
Session("imgServer")= "pc"
ByteRicevuti = Request.TotalBytes
If Clng(ByteRicevuti) > 0 Then
DatiRicevuti = Request.BinaryRead(ByteRicevuti)
For i = 1 To lenB(DatiRicevuti)
FileBinario = FileBinario & Chr(ascB(midB(DatiRicevuti, i, 1)))
Next
FirmaFile = Left(FileBinario, Instr(FileBinario, "" & vbCrLf) - 1)
ArrPezzi = Split(FileBinario,FirmaFile)
For Item = 1 to Ubound(ArrPezzi) - 1
Inizio = Instr(ArrPezzi(Item), "" & vbCrLf & "" & vbCrLf)
Intestazione = Left(ArrPezzi(Item), Inizio - 1)
Inizio = Inizio + Len("" & vbCrLf) + Len("" & vbCrLf)
ContenutoFile = Mid(ArrPezzi(Item), Inizio, Len(ArrPezzi(Item)) - Inizio - 1)
DimensioneFile1 = len(ContenutoFile)
Next
Session("FileUp") = ContenutoFile
if (DimensioneFile1*0.001) > 0 then
response.Write("<script language='JavaScript'> window.opener.document.News.test.disable=0; window.opener.document.News.test.checked=1; window.close(); </script>")
else
response.Write("Sembra che le dimensioni del file uploadato siano pari a 0Kb, riprova..
Riprova - Chiudi ")
end if
End If
End if
%>
</body>
</html>
Come faccio a dirgli che non deve uplodare file piu grossi di 300 kb?
Rispondi quotando
