Kelas yang ditulis oleh orang asing, aplikasi kecil seperti itu tidak perlu modular kecuali ada kebutuhan khusus.
Gunakan ASP untuk menghasilkan nomor acak.
<%
'' ************************************************************************
Kelas '': Crandom
'' CallrandomizetoseedtherdomNumberGenerator.
'' Menyediakan fungsi untuk returnrangedrandomintegersorarraysof
'' Rangedrandomintegers.
'' Callingrandomizetoseedtherandomnumbergeneratoratthetime
'' Diklasifikasikan sepertinya areasonablethingtodo.
privatesubclass_initialize ()
'' CheckTheVBScriptDocumentationForthespecificings terkait
'' TotherandomizeFunction
Mengacak
endsub
'' Diakhiri bukan apa pun
privatesubclass_terminate ()
endsub
'' *************************************************************************************************
Fungsi '': Rangedrandom
Parameter '': lowerbound, thelowestallowableNumberToReturn
Parameter '': Upperbound, HighestAllowableNumberToReturn
'' Returns: ArandomIntegerbetweenlowerBound and Opperbound,
''inklusif
'' *************************************************************************************************
PublicFunctionRangedrandom (Lowerbound, Upperbound)
Rangedrandom = cint ((ucas-lowerbound)*rnd+lowerbound)
fungsi endfungsi
'' *************************************************************************************************
Fungsi '': rangedrandomarray
Parameter '': lowerbound, thelowestallowableNumberToReturn
Parameter '': Upperbound, HighestAllowableNumberToReturn
Parameter '': arraysize, angka zerobased yang menentukan tesenya dari Thearray
Parameter '': duplikat, Trueorfalsetoindicate apakahDuplicate
'' PenyederhanaanemparraytoHoldTheneMerOMeelementspassedinthe
'' ArraysizeParameter
RediMtemparray (arraysize)
'' ThisisasaloopCounter, setitto0
difillElements = 0