Originariamente inviato da michele.santoro
Ci fai vedere lo script dove hai fatto i cambiamenti?
si
codice:
<%@ LANGUAGE="VBSCRIPT" %>
<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") = "e:\users\miosito\miosito.it\documenti\" & srv & "." & est
response.Write("<script language='JavaScript'>window.opener.document.News.test.disable=0; window.opener.document.News.test.checked=1;window.close(); </script> ")
' response.Write("opener.document.getElementById(allegato).innerHTML = Hai caricato il file " & filename & ";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
response.write((DimensioneFile1*0.001))
if (DimensioneFile1*0.001) < 200 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 superiori a 200kb, riprova..
Riprova - Chiudi ")
end if
End If
End if
%>
ho cambiato solo il numero in rosso.
era 100 e ho messo 200