Dictionary-globalt

5 svar · 235 visningar · startad av K++ 23 juli 2002

K++Medlem sedan juli 2002171 inlägg

Frågan23 juli 2002 19:41#1

Går det att tex omvandla följande

<html>
<body>

<%
dim d
Dim a
Dim i
Dim s

set	d =Server.CreateObject("Scripting.Dictionary")
	d.Add "arelupok", "aroh"
	d.Add "allunk", "appip"

a = d.Items
for	i = 0 To d.Count -1
	s = s & a(i) & "<br>"
next
Response.Write(s)

set d=nothing
%>

</body>
</html>

Typ lägga in det i global.asa eller något.. Jag försökte med det gick int.. Så att man enkelt kan visa upp alla värden.. Function crap() eller ngt.. :stud

LarsGMedlem sedan dec. 200012 464 inlägg

23 juli 2002 21:44#2

Jag förstår inte vad du vill åstadkomma. Förklara gärna mer.

Vad var det för problem med att lägga koden i global.asa?

K++Medlem sedan juli 2002171 inlägg

23 juli 2002 21:51#3

Jag har tänkt att göra en liten kodbok med ett eget språk och lite översättningar :birp

Som jag sedan vill infoga som en ordlista lite här och var.. Dessutom skall man kunna lägga till lite nya ord lite då och då.. Så att det ligger i application_OnStart.. Hoppas du förstår :)

mattiasjarnhallMedlem sedan apr. 2001126 inlägg

24 juli 2002 07:01#4

Du vill ha din lilla kodbok global om jag förstår dig rätt!
Lägg då den i en applikationsvariabel:

<%
set Application("d") =Server.CreateObject("Scripting.Dictionary")
Application("d").Add "arelupok", "aroh"
Application("d").Add "allunk", "appip"
%>

Sen kan du lägga funktionen i en inkluderings-fil som du lägger i alla sidor du vill komma åt den i:

<%
a = Application("d").Items
for i = 0 To Application("d").Count -1
s = s & a(i) & "<br>"
next
Response.Write(s)
%>

Var det så du menade?

emissionMedlem sedan dec. 19996 721 inlägg

24 juli 2002 08:32#5

Om det inte är en funktion som ska lista orden på varje sida så föreslår jag att du lägger ordlistan i en databas. Dictionaries bör man inte lägga i Application, eftersom det suger resurser.

K++Medlem sedan juli 2002171 inlägg

24 juli 2002 21:50#6

*host*

Cannot add object with apartment model behavior to the application intrinsic object.
//global.asa, line 5