asp中验证码是怎么实现的（ASP开发者你应该知道）

Dim i num output

For i = 0 To 9 '初始化数字

char_array(i) = CStr(i)

Next

For i = 10 To 35 '初始化大写字母

char_array(i) = Chr(i 55)

Next

For i = 36 To 61 '初始化小写字母

char_array(i) = Chr(i 61)

Next

Randomize '初始化随机数生成器。

Do While Len(output) < digits

num = char_array(Int((62 - 0 1) * Rnd 0))

output = output num

Loop

keyGen = output '设置返回值

End Function

'==================================================

'函数名：keyGen

'作 用：随机生成字符串，大小写字母及数字

'参 数：intLength ------生成字符串的位数

'用 法：keyGen(10)

'说 明：该函数中去掉了英文字母O，是因为英文O常与数字0混淆。如果需要可以自行添加。

'==================================================

'另一种方式生产随机字符串包含大小写字母及数字

Function keyGen(intLength)

Dim strSeed seedLength pos Str i

strSeed = "abcdefghjkmnpqrstuvwxyz"

strSeed = strSeed & UCase(strSeed)

strSeed = strSeed & "1234567890"

seedLength = Len(strSeed)

Str = ""

Randomize

For i = 1 To intLength

Str = Str Mid(strSeed Int(seedLength * Rnd) 1 1)

Next

keyGen = Str

End Function

'==================================================

'函数名：rndarray

'作 用：生成的是一个不重复的数组

'参 数：istart ------开始数字

'参 数：iend ------结束数字

'参 数：sum ------生成个数

'用 法：rndarray(1 5 1)

'==================================================

Function rndarray(istart iend sum)

Dim arrayid() i j blnre temp iloop eloop

Redim arrayid(sum-1)

i=0

iloop=0

eloop=0

blnre=False

Randomize

Do While i<sum

temp=int(rnd*(iend-istart 1) istart)

If i=0 Then

arrayid(0)=temp

i=i 1

iloop=iloop 1

Else

For j=0 To i-1

if arrayid(j)=temp Then

blnre=True

iloop=iloop 1

Exit For'这一句很重要，防止多余的循环

Else

iloop=iloop 1

End If

Next

If blnre=False Then

arrayid(i)=temp

i=i 1

Else

blnre=False

End If

End If

Loop

rndarray=join(arrayid)

End Function

'==================================================

'函数名：getRndNumber

'作 用：生成一个两个数之间的随机数

'参 数：lowerbound ------开始数字

'参 数：upperbound ------结束数字

'用 法：getRndNumber(100 500)

'==================================================

Function getRndNumber(lowerbound upperbound)

Randomize

getRndNumber=Int((upperbound-lowerbound 1)*Rnd lowerbound)

End Function