Script virker dræbende langsomt

Hvad sker der hvis du gør sådan her:


<select size="1" name="yearofbirth" class="input1">

<%
Dim vOption
vOption = Year(Date)

For option_new = vOption To 1900 Step - 1

    Response.Write "<option value=""" & option_new & """ value=""" & option_new & """>" & option_new & "</option>"

If option_new = 1900 Then

End If

Next
%>

</select>


Er det meningen at den sidste IF skal gøre noget eller...? Hvis ikke, så prøv at fjerne den.

Måske.. Skriv hele outputtet til en fil, og inkluder filen. Så behøver du kun køre din loop én gang om året. Jeg har ikke lige testet hvor meget hurtigere det er..

<%
Dim vOption
Dim filename

vOption = Year(Date)
filename = vOption & ".txt"

Sub MakeYearOfBirthFile()
    Dim fso
    Dim file

    Set fso = Server.CreateObject("Scripting.FileSystemObject")

    If Not fso.FileExists(Server.MapPath(filename)) Then
   
        s = "<select size=""1"" name=""yearofbirth"" class=""input1"">"
       
        For option_new = vOption To 1900 Step - 1
            s = s & "<option value=""" & option_new & """>" & option_new & "</option>"
   
            If option_new = 1900 Then
            End If
        Next
   
        s = s & "</select>"   
       
        Set file = fso.CreateTextFile(Server.MapPath(filename), true)
        file.Write s
        file.Close
   
        Set file = Nothing   

    End If
   
    Set fso = Nothing
End Sub


Call MakeYearOfBirthFile 'opret år.txt fil

Server.Execute(filename) 'inkluder fil
%>

Caching - fed idé! :D

softspot: Ja, når scriptet når år 1900, skal loopen stoppe.

Jeg er på vej i seng, prøver Jeres forslag af i morgen :)

Loopet stopper automatisk da det er et for...next loop med tæller, så den kan du godt fjerne...

Det har du ret i, og der var en dobbelt value="<%=option_new%>

Prøver Jeres forslag af i morgen :)

Jeg har forresten og tilrettet din <option>

du har 'value' stående to gange

okay, den opdatede du selv :)

I øvrigt stopper loopet ikke af at der laves en forgrening uden noget indhold. Hvis loopet skulle stoppes "utidigt" skulle du bruge Exit For... men det er der som sagt ikke nogen grund til her. :)

Godnat og sov godt :)

Ja, jeg fik kopieret det ind 2 gange, men det er fjernet. Kan dårligt holde øjnene åbne, snakkes :)

softspot, dit script er bare en lille omskrivning fra HTML til ASP, det vil ikke ændre noget. NU er jeg den, der er smuttet, snakkes :)

Ja, det ved jeg, men skiftet mellem script og HTML kunne være en faktor... men det kan jeg forstå at du har testet dig ud af så... :)

og du skifter jo ikke bare een gang, men flere 100 gange... giv det en chance ;)

Uanset hvordan og hvorledes, så er det jo en løkke, der skal gennemløbes hver gang man kommer ind på siden:

<select size="1" name="yearofbirth" class="input1">

<%
Dim vOption
vOption = Year(Date)

For option_new = vOption To 1920 Step - 1
%>

    <option value="<%=option_new%>"><%=option_new%></option>

<% Next %>

</select>


Så jeg tror jeg copy/paster hver enkelt linie og retter det til manuelt:

<option value="2005">2005</option>
<option value="2004">2004</option>
<option value="2003">2003</option>
.........

- for resultatet skal være, at alle år fra dette og tilbage til 1900 eller måske 1920 skal listes ud i boksen. Så skal jeg bare huske at føje et nyt år til ved hvert nytår :)

Lægger I ikke et svar, begge to? :)

Jeg skal ikke have nogle point - ellers tak :)

Jeg har lige testet det med skift fra script til HTML og tilbage og det giver ikke nogen nævneværdig forskel. Faktisk kan IIS slet ikke registrere noget tid på forspørgslen så hurtigt går det (3GHz Pentium). Når jeg skruer op for antallet af gennemløb (2000 i stedet for 100) registrerer den lidt, men tiderne er stort set ens for begge løsninger - så du havde ret i at det ikke gør den store forskel... i det mindste ikke med denne mængde af data.

Ok, softspot, så får du et klap på skulderen, et fast håndtryk og mange tak for indsatsen :)

Jeg HAR indsat alle årstal, og nu skal siden bare læses ind: http://www.include.dk/newuser/ - det funker fint-fint, selvom det ikke bliver automatiseret :)

<select size="1" name="yearofbirth" class="input1">

<%
Dim vOption
vOption = Year(Date)
while voption > 1900

%>

    <option value="<%=voption%>"><%=voption%></option>

<% voption = voption - 1
wend %>

</select>

cpufan, jeg har selv forsøgt den, men løkken køres stadig igennem, og tager ca. lige så lang tid. Men ellers et godt forslag :)

Hvad er det egentlig for en maskine du sidder ved (CPU hastighed og netforbindelse hastighed osv.). Min mistanke går lidt på at det måske er på klienten at tiden går og ikke på serveren. Kan du evt. be-/afkræfte dette?

Jeg har erfaring med (fra VB 6.0 og alm. applikationsprogrammering), at listbox og combobox kunne være ret tunge/tidskrævende at fylde data i, hvis der var mange elementer. Det kan være fordi der slåes op sekventielt ved hver indsættelse...

Jeg har en P4 1.8 GhZ/2MB ADSL, så der er ikke noget i vejen med hastigheden - selvom CPU'en godt kunne være hurtigere. Der burde ikke være noget problem i at trække det overhovedet.

Mens jeg har Jer: Prøv at se include.dk i MSIE. Siden vises rigtigt i NS, FF, Opera, men ikke i MSIE. Er der nogen af Jer, der kan få øje på en (garanteret lille) fejl?

gammelhat, smid lige et svar :)

"Server Unavailable"... det ser ens ud i både MSIE og FF ;)

Ja, Squ! :oD Jeg har lige skiftet til concor.dk, og så er der problemer med deres Kontrolpanel og include.dk. Flot! :)

gammelhat? :)

nej tak

:)

I er da nogle hænger... :) Jeg takker mange gange for hjælpen, drenge, I skal i det mindste have tak for indsatsen :)