Chat problem

4 svar · 201 visningar · startad av webbmannen 23 maj 2000

webbmannenMedlem sedan dec. 1999826 inlägg

23 maj 2000 17:59#1

Glad i hågen har jag börjat bekanta mig med ASP via boken ASP för Dummies :) Otålig är jag också så jag kunde inte låta bli att försöka få igång chatten som finns som exempel i boken. Döm om min förvåning när det inte fungerar (efter ett antal extra felsökningar).

I PWS får jag svaret (då jag försöker logga in mig) "Otillåten användning av objekt" och "Det går inte att lägga till objekt med fristående modellbeteende till objektet som är inkapslat i programmet." och ute på nätet hittas inte sidan alls.

Tycker det verkar knäppt att inte ett exempel från en bok skulle fungera så därför frågar jag - hittar ni något fel i denna kod :q

 <% Response.Buffer = true %>

<html>
<head><title>Cafe entrence</title></head>
<body bgcolor="white">

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

<font face="verdana,arial">
<b><h4>Welcome to Web Killis Café</h4></b>
</font>
<font face="verdana,arial" size="1">
If you want to chat "live" whith one or several persons you can do so in this café. A tip is to set a date and time in the "speakers corner" forum, telling others that a discussion will go on at a specific time.
<br><br>
<font face="verdana,arial" size="2" color="red">
<b>Still under construction! Please DO NOT use the chat untill this red text is gone!</b>
</font>
<br><br>

<form action="default.asp" method="post">
Your Name: <input type="text" size="20" name="Name">
<input type="submit" name="Submit" value="Take me to the Café">
</form>
</font>

<% 
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 café</b></i>" & Application("conversation")
Application.Unlock
End If

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

För dig utrustad med bättre kunskaper än mig eller bara större tålamod ;)

Tack på förhand
/webb

[Redigerat av webbmannen den 23 maj 2000]

jispirMedlem sedan maj 20011 343 inlägg

23 maj 2000 18:48#2

Tyvärr så är det så att du får detta felmeddelande när du kör detta script i PWS men när du kör det på ett webbhotell så fungerar det utmärkt (på ewebcity funkar det inte) har själv läst denna bok stötte på samma fel men när jag provade det på mitt webbhotell så funkade det.

gå in på denna adress och prova det är exakt samma script
http://www.lifestyleshop.nu/chat/

webbmannenMedlem sedan dec. 1999826 inlägg

24 maj 2000 05:33#3

Hej jispir,

Tack för att du svarade. Felet låg i att mitt webbhotell inte är så bra som man kunde önska (netintense). Man hade inte läst manualen och gjort de ändringar som behövdes.

Nu fungerar det dock och mästerverket ;) kan beskådas på http://www.webbmannen.com/webkillis

/webb

VideMedlem sedan dec. 19998 577 inlägg

24 maj 2000 06:07#4

Vad var det som var fel? *nyfiken då jag också har netintense*

------------------
)|(
(o o)
-oo0-(_)-0oo-----
webeye.nu *hem*
vide@4sale.se

webbmannenMedlem sedan dec. 1999826 inlägg

24 maj 2000 10:45#5

Hej Vide,

Om jag nu fattat det hela rätt (bäst att börja så ;) )så hade inte NetIntense gjort alla inställningar som behövdes för att klara chatscripten.

Lösningen (som jag hittade hos författaren till boken) var att skapa en global.asa och i denna skriva:

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

</OBJECT>

I koden (exemplet högst upp) så fick jag ändra:

Set Application("users") = _

till:

Set Application("users") = varDictionary

Med detta så kom jag vidare och kunde slutligen få till det. Jag har inte kommit så långt att jag förstår det hela men det är ju inspirerande att ha fått igång en egen chat :)

Apropå NetIntense: Ett väldigt billigt alternativ för väldigt mycket plats och funktioner, men med kompetens och bemötande som lämnar mycket övrigt att önska.

/webb

[Redigerat av webbmannen den 24 maj 2000]