Förord

Slumptal kan vara bra att använda sig av om man skall varva något på en sida.

Innehåll

  » Slumpa om poster från ett recordset
  » Visa slumpmässigt valda bilder från servern
  » Var denna artikeln användbar?

Här följer ett exempel som du kan använda dig av. Detta exempel visar olika saker varje gång sidan laddas om.


<%

Dim RandomNumber

Randomize
RandomNumber = Int(RND(*6) + 1 ' ett tal mellan 1 och 6

Select Case RandomNumber
Case 1
Response.Write "Mjölk är gott"
Case 2
Response.Write "Mjölk ger starka ben"
Case 3
Response.Write "Mjölk är livet"
Case 4,5,6
Response.Write "Mjölk ger hårt skelett"
End Select
%>

Ett annat exempel är att man har några saker- exempelvis bilder. Man kör ett slumptalsprogram men samma siffra får bara återkomma en gång. Exempel på det kan vara om man vill visa 2 slumpade bilder och de får inte vara samma bilder på samma sida vid samma tillfälle:


<%

Dim RandomNumber
Dim TotalValues
Dim MaxValues
Dim MaxItems
Dim Array
Dim A

Randomize

' Ge mig 5 värden
TotalValues = 5

' Innehållande mellan 1 och 50
MaxValues = 50

Do
RandomNumber = Int(RND(*MaxValues) + 1

' Loopa i den befintliga listan
MaxItems = UBound(Array)
if MaxItems > TotalValues Then Exit Do

' Finns värdet i vår befintliga lista
For b = 1 to MaxItems
If Array(b) = RandomNumber Then
Exit For ' ja, hämta nytt värde
Else
' nej, adderar värdet
Redim Preserve Array(MaxItems+1)
Array(MaxItems+1) = RandomNumber
End If
Next
Loop


' Visar resultatet
For A = 1 to Ubound(Array)
Response.Write Array(a) & "
"
Next

%>


Slumpa om poster från ett recordset

Tänk dig att du har fått ett recordset innehållande fyra poster. Dessa poster innehåller recordnummer på någonting och nu vill du slumpa ut dessa så de inte visas på samma sätt varje gång. Jag har skrivit en lite vb-rutin som du kan testa med och enkelt överföra till asp:


Private Sub Form_Load()

' bygger en lista med 4 poster, förslagsvis recordnummer som skall slumpas
Dim tmpArray(0 To 3)
tmpArray(0) = 1
tmpArray(1) = 2
tmpArray(2) = 6
tmpArray(3) = 7

' kör proceduren
newarray = ScrambleArray(tmpArray(), 21)

For a = 0 To UBound(newarray)
Debug.Print newarray(a)
Next
Debug.Print "---"

End Sub

Function ScrambleArray(orgArray(), loops As Integer) As Variant

' kastar om platsen internt i arrayen
tmp = UBound(orgArray()) ' ger 3

' inga poster, då går vi ur loopen
if tmp <= 0 then exit function

' startar slumptalsgeneratorn
Randomize

' vi loopar x gånger för att öka slumptalet
For a = 1 To loops
randomNumber = Int(Rnd * tmp + 1) + 0

Data = orgArray(0)
orgArray(0) = orgArray(randomNumber)
orgArray(randomNumber) = Data

Next

' returnerar värdet
ScrambleArray = orgArray()

End Function


Visa slumpmässigt valda bilder från servern

Detta exempel visar bilder som finns i en katalog och slumpas ut. Exemplet är inte ännu översatt. Programmet använder File System Objects (FSO) för att hämta alla filerna, därefter används slumptalsgeneratorn för att visa en av de funna bilderna. Exemplet kommer från Lozinski's hemsida.



<%
'#FILE: random_image.asp - Version 1.0
'#
'# This works on WindowsNT in an ASP environment. It has not
'#been tested under any kind of Unix based platform running ASP.
'#
'# Make sure to copy the METADATA tags above as well! They are
'#needed to use DLL constants in this script!
'#
'# This is a very simple ASP script. All it does is grab a
'#random image from a directory and print it out. Currently, this
'#script just works with gif and jpg/jpeg images. To call this
'#script from your HTML page:
'# 1) Make sure your IMAGE_DIRECTORY has read permissions, as
'# well as the files within that directory.
'# 2) The HTML page calling the random image script is a
'# separate page.
'# 3) Make sure any IMG tags look similar to the following:
'#
'#
'# Any questions of problems, feel free to write me at
'# http://www.davelozinski.com
'#
'#The system path to the directory (NOT URL!) which contains the
'#images to be randomly chosen and displayed.
'#Relative paths may be used.
Const IMAGE_DIRECTORY = "images/buttons/"


'#If the program does not seem to be working for you, uncomment
'#the next 3 lines by removing the apostrophe, and call this
'#script separately. When the version number prints out, it needs
'#to be at least 2.5.

'Set objConn = Server.CreateObject("ADODB.Connection")
'response.write "This Server's ADO Version: " & objConn.Version
'Set objConn = Nothing


'#####################################################################
'########Nothing below this line should need to be configured.########
'#####################################################################
Randomize '#Initialize the random number generator
Dim FileArray '#Will hold each file in the directory
Dim tempString
tempString = ""
Dim RandomNumber
Dim File, Folder, fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")

If (fso.FolderExists(Server.MapPath(IMAGE_DIRECTORY))) Then
Set Folder = fso.GetFolder(Server.MapPath(IMAGE_DIRECTORY))
For Each File In Folder.Files
tempString = tempString & File.Name & ","
Next
tempString = tempString & "," '#Puts a double comma to demark the end
tempString = StrReverse(tempString)
tempString = Replace(tempString, ",,", "", 1)
tempString = StrReverse(tempString)
FileArray = Split(tempString, ",")
RandomNumber = Cint((UBound(FileArray) - LBound(FileArray)) * Rnd + LBound(FileArray))
Set File = Server.CreateObject("ADODB.Stream")
File.Type = adTypeBinary '#Defined from MetaData tag at top
File.Open
File.LoadFromFile (Server.MapPath(IMAGE_DIRECTORY & FileArray(RandomNumber)))
'### To add support for additional image formats, just add in the appropriate
'### lines below with the MIME-types.
If (CBool(InStr(FileArray(RandomNumber),".gif"))) Then
Response.ContentType = "image/gif"
ElseIf (CBool(InStr(FileArray(RandomNumber),".jpg"))) Then
Response.ContentType = "image/jpg"
ElseIf (CBool(InStr(FileArray(RandomNumber),".jpeg"))) Then
Response.ContentType = "image/jpeg"
End If
Response.BinaryWrite File.Read
File.Close
End If
Set File = Nothing
Set Folder = Nothing
Set fso = Nothing

%>


Var denna artikeln användbar?

Om du gör någon intressant (eller kanske något konstigt fel) på grund av detta material så skicka gärna det med ett mail eller bifoga en länk till mig så presenterar jag detta som ytterligare exempelfiler för kursen. Om detta innehållet är felaktigt eller du lärt dig fler finesser så skriv gärna en rad eller varför inte en egen kurs baserat på dina erfarenheter. Sänd gärna in dina tips till denna artikel.

/Pelle Johansson

0 Kommentarer

Skriv en kommentar på artikeln

Ditt betyg på artikeln

UtmärktLäsvärdIntressantMindre braDålig

Kommentar: