On 02 Sep 2008 06:52:09 GMT, Mette Theilgaard <admin@belliz.org> wrote:
>Jeg har for nyligt skiftet over til en host, som kører windows.
>Jeg har derefter haft problemer med ét enkelt af mine websider,
>som jeg dog skulle mene er kodet med præcis samme metoder som
>alle mine andre websites.
Martins svar er nok det, der konkret forårsager problemet.
Men du får lige et par kommentarer til noget mere af din kode, da der er
flere ting, der kan forbedres.
<snip>
><%
>jeg laver en forbindelse til min database
>%>
>
>Noget tekst her
>
><%
>strSQL = "SELECT COUNT(brugerID) as antal from brugere"
>set rs_deltagere = Conn.Execute(strSQL)
>%>
>
>På nuværende tidspunkt er der ialt <%= rs_deltagere("antal") %>
>deltagere i konkurrencen.
>
><%
>rs_deltagere.Close
>Set rs_deltagere = Nothing
Nu er ovenstående en meget lille bid, men principielt ville jeg:
strSql = ...
Set rs ...
intAntalBrugere = rs_deltagere("antal")
Sluk og luk rs og Conn
- og herefter udskrive.
Som sagt er skaden minimal her, men det principielle er:
- at adskille databehandling og præsentation
- holde connections og recordsets åbne så kort tid som realitisk muligt.
<snip>
>Jeg forbinder til databasen i toppen af siden og afslutter i
>bunden af siden. Dette skulle jeg ikke mene, at der er noget galt
>i.
Hmmm. Det er ikke optimalt. Omvendt er det heller ikke optimalt at åbne
og lukke forbindelsen for mange gange.
En logisk rækkefølge ville være:
- inputbehandling (fx fra Request.Form og .QueryString) - herunder
validering af input.
- databehandling
- udskrift
>Indeni en if-sætning (tjekker blot querystring) laver jeg denne
>løkke.
Inden denne If ville jeg hente input:
intUserId = request.querystring("userID")
+ validere (fx at det faktisk er et tal)
>splitCheckbox = request.form("coregID")
>splitCheckbox2= Split(splitCheckbox,",")
Her ville du gøre din kode mere læselig ved at navngive dine variable
efter hvilken type de forventes at være:
splitCheckbox -> strSplitCheckbox
splitCheckbox2 -> arrSplitCheckbox
>For i = 0 to Ubound(splitCheckbox2)
>strSQL = "SELECT * FROM nyhedsbrev WHERE coregID = "&
>splitCheckbox2(i)
>Set rs_coreg = Conn.Execute(strSQL)
>
>strSQL = "SELECT * FROM brugere WHERE brugerID = "&
>request.querystring("userID")
>Set rs_bruger = Conn.Execute(strSQL)
>
>lodder = rs_bruger("brugerLodder") + rs_coreg("coregLodder")
Som Martin skriver, skal de lukkes. Men eftersom du kun henter én værdi,
så er SELECT * helelr ikke en god idé:
strSQL = "SELECT coregLodder FROM ...
Set rs_coreg = Conn.Execute(strSQL)
intCoregLodder = rs_coreg("coregLodder")
rs_coreg.Close
Set rs_coreg = Nothing
strSQL = "SELECT brugerLodder FROM ...
Set rs_bruger = Conn.Execute(strSQL)
intBrugerLodder = rs_coreg("brugerLodder")
rs_bruger.Close
Set rs_bruger = Nothing
intLodder = intBrugerLodder + intCoregLodder
På denne måde har du recrdsets åbne kortere tid - og du har ikke to åbne
samtidigt.
Et eller andet siger mig dog, at du burde kunne trække intLodder direkte
ud af databasen med den rigtige SQL-streng. Men det kræver lidt mere
kendskab til databasens opbygning at sige det præcist.
En god tommelfingerregel er "lade databasen gøre arbejdet" så langt som
muligt.
>strSQL = "UPDATE brugere set brugerLodder="& lodder &" WHERE
>brugerID = "& request.querystring("userID")
>Conn.Execute(strSQL)
>
>strSQL = "INSERT INTO log (logCoregID,logBrugerID, logDato)
>values ("& splitCheckbox2(i) &","& request.querystring("userID")
>&",'"& now &"')"
>Conn.execute(strSQL)
Ovenstående er sådan set OK. Dog vil du formentlig kunne bruge
databasens tid (Now) i stedet for ASP'ens.
I en Access ville den sidste del af SQL'en hedde:
" ..., Now())"
Håber det kan hjælpe dig til lidt mere struktur og læsbarhed i din kode.
Good luck!
--
Jørn Andersen,
Brønshøj