Errore script chatbox

**Colino** · 02-05-2008, 09:22

Ciao,
per la rete ho trovato questo script asp

codice:

<html>
<head>
<title>ASP Chat Box</title>
<META http-equiv="refresh" content="5">
</head>
<body>


<%
    if request.Form("func") = "Send" then
   
        nickName = trim(request.Form("nickName"))
        nickName = replace(nickName, "'", "''")
        chatBox = trim(request.Form("chatBox"))
        chatBox = replace(chatBox, "'", "''")
        session("nickName") = nickName
       
        Set objFlSys = Server.CreateObject("Scripting.FileSystemObject")
        chatFile = Server.MapPath ("chatlog.txt")  
        Set objStreamOutput= objFlSys.OpenTextFile (chatFile, 8, TRUE)
        ipaddr=Request.ServerVariables("REMOTE_ADDR") & " : "
        objStreamOutput.Write "" & nickName & ":"
        objStreamOutput.WriteLine chatBox & "
" & vbnewline
        Set objStreamOutput = Nothing       
       
        end if

        Set objFlSys = Server.CreateObject("Scripting.FileSystemObject")
        chatFile = Server.MapPath ("chatlog.txt")
        Set objStreamInput = objFlSys.OpenTextFile (chatFile, 1, False, False)
        Response.Write objStreamInput.ReadALL & "
"
        Set objStreamInput=Nothing

%>

<form action="asp_chat_box.asp" method="post" >
Nickname : <input name="nickName" value="<%=session("nickName")%>"/>

Message : 

<textarea cols="60" rows="4" name="chatBox"></textarea>
<input type="submit" name="func" value="Send"/>
</form>

</body>
</html>

ma mi restituisce questo errore

codice:

Microsoft VBScript runtime  error '800a003e'

Input past end of file

/asp_chat_box.asp, line 31

sinceramente non ho capito cosa devo fare per risolvere il problema, mi potreste aiutare?

**Domenix** · 02-05-2008, 09:39

L'errore dice che stai cercando di leggere un file vuoto.
Devi aggiungere un controllo per evitare l'errore.

codice:

        Set objStreamInput = objFlSys.OpenTextFile (chatFile, 1, False, False)
        If Not objStreamInput.AtEndOfFile Then
                Response.Write objStreamInput.ReadALL & "<b r/>"
        Else
                Response.Write "Il file è vuoto
"
        End If
        Set objStreamInput=Nothing

**Colino** · 02-05-2008, 09:52

grazie mille per la risposta rapida

ho risolto quel problema , ora ne ho un altro quando provo a inviare il messaggio al file

codice:

Microsoft VBScript runtime  error '800a0046'

Permission denied

/asp_chat_box.asp, line 20

il file si trova in una cartella dove ha permessi di scrittura e lettura, come può dirmi che il permesso è negato??

**Domenix** · 02-05-2008, 10:01

In base a questo
chatFile = Server.MapPath ("chatlog.txt")
il file si trova nella stessa cartella della pagina asp che tenta di accedervi...

**Colino** · 02-05-2008, 20:20

il percorso è corretto

**Domenix** · 03-05-2008, 00:34

Originariamente inviato da Colino
il percorso è corretto

fai un response.write di server.mapPath("chatlog.txt") e vedi se è corretto...

Discussione: Errore script chatbox

Strumenti discussione

Ricerca discussione

Visualizza

Errore script chatbox

Permessi di invio