---

Hej NG.


Jeg vil godt have vist et tilfældigt citat på en hjemmeside. Teknisk kan jeg
sagtens lave et lille script der ordner det, men hvad vil være det bedste
for ydelsen? At bruge en DB med et par SQL-statements, når man ved alt andet
indhold på siden også bliver hentet fra den DB, eller at bruge FSO med en
tekstfil?

Med DB (Access).
Noget i denne stil: http://www.asp-faq.com/show.asp?id=2132

Med FSO. Noget jeg selv har fundet på.
<%
Const ForReading = 1
Const TristateUseDefault = -2

'FileSystemObject
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FilesystemObject")

'Stien til filen
Dim strPath
strPath = Server.MapPath("RandomText.txt")

'Åbn filen
Dim objFile
Set objFile = objFSO.OpenTextFile(strPath, ForReading, FALSE,
TristateUseDefault)

'Læser antallet af linier i filen
Dim intCounter
While NOT objFile.AtEndOfStream
intCounter = intCounter + 1
objFile.SkipLine
Wend

'Luk og fjern objFile
objFile.Close
Set objFile = Nothing

'Find et tilfældigt nummer med 1 som min. og intCounter som max.
Dim intLowest, intHighest, intRandom
Randomize
intLowest = 1
intHighest = intCounter
intRandom = Int((intHighest - intLowest + 1) * Rnd + intLowest)

'Læs den linje, der blev valgt ovenfor
Set objFile = objFSO.OpenTextFile(strPath, ForReading, FALSE,
TristateUseDefault)
While objFile.Line < intRandom
objFile.SkipLine
Wend

Dim strRandomText
strRandomText = objFile.ReadLine

'Lukker og fjerner objekter
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing

'Udskriver den valgte linje.
Response.Write("<p>Tilf&aelig;ldig tekst: " & strRandomtext & "</p>")
%>

Nogle bud på, hvad vil være bedst for ydelsen?


Mvh. Voller.