asp生成0~9，a~z的36進(jìn)制字符串，運(yùn)行下面示例需要使用IE核心的瀏覽器，其他非IE核心瀏覽器不支持vbscript。

實(shí)現(xiàn)代碼：

?1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556 <script language="vbscript"> function getinitstring(l)'初始化指定長(zhǎng)度的0字符串 l=l-1 for i=0 to l getinitstring="0"&getinitstring next end function function getnextchar(chrcode)'獲取下一個(gè)字符 if chrcode=57 then'數(shù)字和字母標(biāo)ascii不連貫，需要特殊處理一下 getnextchar="a" else getnextchar=chr(chrcode+1) end if end function function getnextno(s,l)'獲取下自增1的字符串 if trim(s)="" then'初始化字符串 getnextno=getinitstring(l):exit function end if l=len(s)-1 dim a():redim a(l) for i=0 to l'拆分成數(shù)組 a(i)=mid(s,i+1,1) next carry=false'進(jìn)位標(biāo)志 for i=l to 0 step -1'從最低位開始遍歷 chrcode=asc(a(i)) if carry then if chrcode<>122 then'不是z，自增后退出for循環(huán)，否則繼續(xù)進(jìn)位 a(i)=getnextchar(chrcode):exit for'退出循環(huán) elseif i=0 then getnextno="已經(jīng)達(dá)到最大長(zhǎng)度，無(wú)法繼續(xù)進(jìn)位，需要修改長(zhǎng)度":exit function end if end if if a(i)="z" then carry=true:a(i)="0" else a(i)=getnextchar(chrcode):exit for'退出循環(huán) end if next for i=0 to l'組合返回字符串 getnextno=getnextno&a(i) next end function s=""initlen=6 s=getnextno(s,initlen) msgbox s'000000 s=getnextno(s,initlen) msgbox s'000001 s="aaazzz"s=getnextno(s,initlen) msgbox s'aab000 s="zzzzzz"s=getnextno(s,initlen) msgbox s'已經(jīng)達(dá)到最大長(zhǎng)度，無(wú)法繼續(xù)進(jìn)位，需要修改長(zhǎng)度 </script>

更多信息請(qǐng)查看IT技術(shù)專欄