FunctionGenRadomString(Length)

dimi,tempS,v

dimc(39)

tempS=""

c(1)="a":c(2)="b":c(3)="c":c(4)="d":c(5)="e":c(6)="f":c(7)="g"

c(8)="h":c(9)="i":c(10)="j":c(11)="k":c(12)="l":c(13)="m":c(14)="n"

c(15)="o":c(16)="p":c(17)="q":c(18)="r":c(19)="s":c(20)="t":c(21)="u"

c(22)="v":c(23)="w":c(24)="x":c(25)="y":c(26)="z":c(27)="1":c(28)="2"

c(29)="3":c(30)="4":c(31)="5":c(32)="6":c(33)="7":c(34)="8":c(35)="9"

IfisNumeric(Length)=FalseThen

Response.Write"Anumericdatatypewasnotsubmittedtothisfunction."

ExitFunction

EndIf

Fori=1toLength

Randomize

v=Int((35*Rnd)+1)

tempS=tempS&c(v)

Next

GenRadomString=tempS

EndFunction

下一篇：asp中用数据库生成不重复的流水号