IIS,PWS Application!
Jeg har store problemer med mine application variable. Jeg har en kode, som fungerer fint hos min udbyder, men når jeg aftester den hjemme på såvel IIS5 SP2 eller PWS, giver den mig store problemer.Der er 2 programmer:
Det ene appContents.asp viser applikationens variabler. Det andet er et lille chatroom, som anvender en enkelt App.variabel.
Når jeg i IIS, markeres mappen som en applikation, fungerer appContents.asp perfekt. Men tilskrivning til applikationsvariablerne gennem Chat.asp, fungerer ikke .
Hvis jeg undlader at markere mappen som en applikation. Fungerer chatten, men app-Contents, fungerer ikke.
Programmerne fungerer perfekt hos min udbyder, som stort set bruger de samme indstillinmger som jeg gør, bortset fra, at han anvender en http--header til at difrentire de enkelte sites.
Programmet danner et lille chatroom:
Inholdet af filerne er som følger:
Global.asa........
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub application_OnStart
application(\"CHAT\")=\"hallo\"
application(\"Hits\")=1
end sub
</SCRIPT>
appContents.asp......
<html>
<head>
<title>AppContents</title>
</head>
<body>
<%
for each par in application.contents
response.write par & \" indeholder \" & application.contents(par) & \"<br>\"
next
%>
</body>
</html>
chat.asp.............
<%Response.expires=0%>
<html>
<head>
<title>Chat</title>
</head>
<body>
<Form Action=\"chat.asp\" Method=\"Post\">
Besked <Input type=\"Text\" Name=\"Besked\" Tab-index=\"1\"><br>
Bruger <Input type=\"Text\" Name=\"Bruger\" value=\"<%=Request.form(\"Bruger\")%>\">
<Input type=\"Submit\" Value=\"Send\" tab-index=\"3dd \">
</form>
<%
Dim strBesked
Dim strBruger
Dim strLinie
strBesked=request.Form(\"Besked\")
strBruger=request.Form(\"Bruger\")
Varname=1
If len(strBesked)>0 then
strLinie=strBruger & \"->\" & strBesked & \"<br>\" & Application.Contents.item(varName)
Application.Lock
Application.Contents.item(Varname) = strLinie
Application.Unlock
End If
Response.write Application.Contents.item(VarName) & \"<hr>\"
%>
</body>
</html>
