5 svar · 233 visningar · startad av K++
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
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?
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 :)
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?
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.
*host*
Cannot add object with apartment model behavior to the application intrinsic object.
//global.asa, line 5
:/