lo stesso problema in questa pagina:
<%
Dim strdata
miaData = Now
strdata = (formatDateTime(miaData, vbShortDate))
percorso = "/public/banner/"
if session("password")="si" then
ByteRicevuti = Request.TotalBytes
if 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)
' Recupero i campi se sono compilati
if instr(Intestazione,"azienda_nome") > 0 then
azienda_nome = ContenutoFile
end if
if instr(Intestazione,"azienda_url") > 0 then
azienda_url = ContenutoFile
end if
if instr(Intestazione,"azienda_impression") > 0 then
azienda_impression = ContenutoFile
end if
if instr(Intestazione,"data_scadenza") > 0 then
data_azienda = ContenutoFile
end if
if instr(Intestazione,"file1") > 0 then
i = instr(Intestazione,"filename=")
j = instr(i + 10,Intestazione,chr(34))
NomeUpload = mid(Intestazione,i + 10,j-i-10)
i = instrRev(NomeUpload,"\")
if i<>0 then
NomeFile = mid(NomeUpload,i + 1)
else
NomeFile = NomeUpload
end if
if i<>0 then
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
EstensioneFile1 = right(ContenutoFile,3)
NomeFile1 = NomeFile
Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
Set FSO = Nothing
end if
end if
next
If Upload1 = true then
%>
<style type="text/css">
A:link {
COLOR: ffffff; TEXT-DECORATION: none
}
A:visited {
COLOR: ffffff; TEXT-DECORATION: none
}
A:hover {
COLOR: ffffff; TEXT-DECORATION: underline; font-family: Verdana, Arial, Helvetica, sans-serif}
</style>
<table width="560" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#00CC00">
<tr>
<td><table width="560" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20" bgcolor="#00CC00"> <div align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">Upload
file</font></div></td>
</tr>
<tr>
<td height="20" bgcolor="#FFFFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
</tr>
<tr>
<td height="21" bgcolor="#FFFFFF"> <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">La
dimensione del file che hai uploadato è di </font> <font size="2">
<% response.write DimensioneFile1*0.001 %>
<font face="Verdana, Arial, Helvetica, sans-serif">kb</font></font></div></td>
</tr>
<tr>
<td height="21" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td height="21" bgcolor="#FFFFFF"> <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">[img]<% response.write percorso & NomeFile1 %>[/img]</font></div></td>
</tr>
<tr>
<td height="21" bgcolor="#FFFFFF"> <div align="center"></div></td>
</tr>
<tr>
<td height="21" bgcolor="#FFFFFF"> <div align="center">
<table width="100%" border="0">
<tr>
<td width="20%"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Nome
Azienda: </font> </td>
<td width="80%"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% response.write azienda_nome %>
</font></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Url
Azienda:</font></td>
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% response.write azienda_url %>
</font></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Impression</font></td>
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% response.write azienda_impression %>
</font></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Nome
File</font></td>
<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">
<% response.write NomeFile1 %>
</font></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td height="21" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td height="21" bgcolor="#00CC00">
<div align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="admin.asp">Torna
al pannello di amministrazione</a></font></div></td>
</tr>
</table></td>
</tr>
</table>
<%
End If
End if
%>
<% sql = "SELECT * FROM dati"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 3,3
rs.addnew
rs("azienda_nome") = azienda_nome
rs("azienda_url") = azienda_url
rs("data") = strdata
rs("data_scadenza") = data_azienda
rs("azienda_impression") = azienda_impression
rs("percorso_banner") = NomeFile1
rs.update
%>
<%
else
%>
<meta http-equiv="Refresh" content="0; URL= login.asp">
<%
end if
%>
Prima mi dava questo errore:
Server.MapPath() error 'ASP 0175 : 80004005'
Disallowed Path Characters
/banner/conn.asp, line 4
The '..' characters are not allowed in the Path parameter for the MapPath method
Poi ho sostituito:
percorso = "../public/banner/"
con
percorso = "/public/banner/"
e mi spunta la pagina di errore:
Impossibile visualizzare la pagina
Impossibile visualizzare la pagina desiderata. Si è verificato un problema.
--------------------------------------------------------------------------------
Provare a eseguire le operazioni seguenti:
Aprire la pagina iniziale www.95034.it, quindi cercare i collegamenti alle informazioni desiderate.
Scegliere il pulsante Aggiorna o riprovare in un secondo momento.
Fare clic sul pulsante Cerca per ricercare informazioni su Internet.
È anche possibile visualizzare un elenco di siti correlati.
HTTP 500 - Errore interno del server
Internet Explorer
Cos'è?
Rispondi quotando