webForumDet fria alternativet

min chat -men fel?

ASP

5 svar · 244 visningar · startad av crisse6

Medlem sedan dec. 20002 526 inlägg
Frågan#1

har tänkt använda en chat... men jag får ett felmeddelande när jag försöker testa det, jag får meddelande om fel i
default.asp

<% Response.Buffer = true %>
<html>

<head>
<title>Cafe Entrance</title>
</head>

<body bgcolor="#FFFFFF">

<% If trim(Request.Form("name")) = "" Then %>

<h1>Welcome to the Cafe</h1>

The Cafe is a casual gathering place to meet new friends and
chat with old ones.<p>
To enter the Cafe, type the name you wish to use below and
click the button.<p>

<form action="default.asp" method="POST">
    <p>Your Name: <input type="text" size="20" name="Name"></p>
    <p><input type="submit" name="Submit"
    value="Take Me To The Cafe"></p>
</form>

<%
Else
   If Not IsObject(Application("users")) Then
      Application.Lock
      Set Application("users") = _
         Server.CreateObject("Scripting.Dictionary")
      Application.Unlock
   End If

   Session("name") = Request.Form("name")

   Application.Lock
   Application("users").Add Session("name"), time
   Application.Unlock

   If not IsEmpty(Application("conversation")) Then 
      Application.Lock
      Application("conversation") = "<b><i>" & Session("name") & _
         " Enters The Room</b></i><br>" & Application("conversation")
      Application.Unlock
   End If

   Response.Redirect "cafe.asp"
End If
%>
</body>
</html>

hoppas ni kan hjälpa mig :)

Medlem sedan dec. 19996 721 inlägg
#2

På vilken rad är felet?

Medlem sedan dec. 20002 526 inlägg
#3

det ligger på "line 29"

Medlem sedan dec. 19996 721 inlägg
#4

Set Application("users") = Server.CreateObject("Scripting.Dictionary")

Felaktig radbrytning

Medlem sedan dec. 20002 526 inlägg
#5

a men det funkar inte ändå... detta blir meddelandet i webbläsaren:

Application object error 'ASP 0197 : 80004005'

Disallowed object use

/chat/default.asp, line 29

Cannot add object with apartment model behavior to the application intrinsic object.

Medlem sedan dec. 19996 721 inlägg
#6

Precis. Man kan inte lägga en scripting.dctionary i application hur som helst. Du bör göra det genom global.asa med

<OBJECT RUNAT=Server SCOPE=Application ID="users" PROGID="Scripting.Dictionary">
</OBJECT>

Det är egentligen inte rekommendabelt, pga av multitrådningsskäl som jag inte kan gå in på här, men om du gör som jag beskrev så funkar det.

250 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
117 ms — deklarationer (db)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)
119 ms — ändringar (db)