ENABLESESSIONSTATE = False %> '1. Selecting the numbers from a string: myString = "2, 4, 6, 8, 10, 12" aValues = Split(myString, ",", -1, 1)

Function Min(someNumbers)

dblLowestSoFar = Null For I = LBound(someNumbers) to UBound(someNumbers) If IsNumeric(someNumbers(I)) Then 　If CDbl(someNumbers(I)) < dblLowestSoFar Or IsNull(dblLowestSoFar) Then 　 dblLowestSoFar = CDbl(someNumbers(I)) 　End If End If Next Min = dblLowestSoFar End Function

Function Max(someNumbers)

dblHighestSoFar = Null For I = LBound(someNumbers) to UBound(someNumbers) If IsNumeric(someNumbers(I)) Then 　If CDbl(someNumbers(I)) > dblHighestSoFar Or IsNull(dblHighestSoFar) Then 　 dblHighestSoFar = CDbl(someNumbers(I)) 　End If End If Next Max = dblHighestSoFar End Function

Function Avg(someNumbers)

dblHighestSoFar = Null For I = LBound(someNumbers) to UBound(someNumbers) If IsNumeric(someNumbers(I)) Then 　If CDbl(someNumbers(I)) > dblHighestSoFar Or IsNull(dblHighestSoFar) Then 　 dblHighestSoFar = CDbl(someNumbers(I)) + CDbl(someNumbers(I)) / 　End If End If Next Avg = dblHighestSoFar End Function

'2. Or, selecting the numbers from a database:

Set cnDZ = Server.CreateObject("ADODB.Connection") cnDZ.Open "DSN=myDatabase" Set rsLo = cnDZ.Execute("SELECT Min(PRICE) AS loPRICE FROM TBLADS") Set rsHi = cnDZ.Execute("SELECT Max(PRICE) AS hiPRICE FROM TBLADS") Set rsAvg = cnDZ.Execute("SELECT Avg(PRICE) AS avgPRICE FROM TBLADS") %>

1. Selecting the numbers from a string:

The lowest number is:

The highest number is:

The average number is:

2. Selecting the numbers from a database:

The lowest priced ad is:

The highest priced ad is:

The average selling price of these ads is:

cnDZ.Close Set cnDZ = Nothing rsLo.Close Set rsLo = Nothing rsHi.Close Set rsHi = Nothing rsAvg.Close Set rsAvg = Nothing %>

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-124685/，如需转载，请注明出处，否则将追究法律责任。