7 svar · 301 visningar · startad av polswed
hehe, är inte så bra på asp, så jag vet inte om det är så lönt att ge sig på detta ;)
Men iaf..
Här är felet:
Application-objekt fel 'ASP 0197 : 80004005'
Otillåten användning av objekt
/asp/chat/login.asp, rad 23
Det går inte att lägga till objekt med fristående modellbeteende till objektet som är inkapslat i programmet.
Rad 23 är
Set Application("users") = _
Och hela koden är
<% Response.Buffer = true %>
<HTML>
<head>
<title>hej</title>
</head>
<body>
<% If trim(Request.Form("name")) = " " Then %>
<form action="test.asp" medthod="POST">
<p>ditt namn: <input type="text" size="20"
name="Name"></p>
<p><input type="submit" name="Submit"
value="Chatta"></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>
Har tagit exemplet ur en bok; Active Server Pages för Dummies
------------------
if(SmC==notHere)
then (SmC==backSoon)
else die;
Jag tror du måste använda dictionaryt utanför application, sedan när du har ändrat färdigt så kan du lägg in det i application...
------------------
Söndagen den 3 juni kommer webForum-servern att tas ner för systemunderhåll.
Avbrottet kommer att ske under dagtid. För uppdaterad information se Serverstatus.
har inte kollat så noga... men tror de saknas ett litet & där.
Set Application("users") = & _
eller så kanske de ska va såhär:
Set Application("users") = "_"
beroende på vilken effekt du vill ha. Men det kan absolut inte stå Set Application("users") = _. :)
mvh.
------------------
void[]
stash/$gu&-public(querystring)/n int{}bind "2" "say i own!" :)
nakoz, jo, det kan det... :)
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>
nakoz: på ditt övre exempel tjatar den om ett syntax fel, och undre tjatar den om Objekt krävs.: 'Application'
Vide: Sorry, inte roligt att vara nybörjare, så alltså, ska jag klippa ut det i lägga in det ovanför eller?
------------------
if(SmC==notHere)
then (SmC==backSoon)
else die;
@nders:
har det nån funktion? :)
eller vill du bara kommentera att det kan stå så, men det gör ingen funktion?
------------------
void[]
stash/$gu&-public(querystring)/n int{}bind "2" "say i own!" :)
nakoz:
Set objRS = _
Server.CreateObject("ADODB.Recordset")
Set objRS = Server.CreateObject("ADODB.Recordset")
prova...
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>