這篇文章主要介紹了使用vbscript生成36進制自動增長序號的實現代碼,本文代碼也可以在ASP中使用,需要的朋友可以參考下

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

實現代碼：

1. <script language="vbscript"> 
2. function getinitstring(l)'初始化指定長度的0字符串 
3. l=l-1 
4. for i=0 to l 
5. getinitstring="0"&getinitstring 
6. next 
7. end function 
8. function getnextchar(chrcode)'獲取下一個字符 
9. if chrcode=57 then'數字和字母標ascii不連貫，需要特殊處理一下 
10. getnextchar="a" 
11. else 
12. getnextchar=chr(chrcode+1) 
13. end if 
14. end function 
15. function getnextno(s,l)'獲取下自增1的字符串 
16. if trim(s)="" then'初始化字符串 
17. getnextno=getinitstring(l):exit function 
18. end if 
19. l=len(s)-1 
20. dim a():redim a(l) 
21. for i=0 to l'拆分成數組 
22. a(i)=mid(s,i+1,1) 
23. next 
24. carry=false'進位標志 
25. for i=l to 0 step -1'從最低位開始遍歷 
26. chrcode=asc(a(i)) 
27. if carry then 
28. if chrcode<>122 then'不是z，自增后退出for循環，否則繼續進位 
29. a(i)=getnextchar(chrcode):exit for'退出循環 
30. elseif i=0 then 
31. getnextno="已經達到最大長度，無法繼續進位，需要修改長度":exit function 
32. end if 
33. end if 
34. if a(i)="z" then 
35. carry=true:a(i)="0" 
36. else 
37. a(i)=getnextchar(chrcode):exit for'退出循環 
38. end if 
39. next 
40. for i=0 to l'組合返回字符串 
41. getnextno=getnextno&a(i) 
42. next 
43. end function 
44. s="" 
45. initlen=6 
46. s=getnextno(s,initlen) 
47. msgbox s'000000 
48. s=getnextno(s,initlen) 
49. msgbox s'000001 
50. s="aaazzz" 
51. s=getnextno(s,initlen) 
52. msgbox s'aab000 
53. s="zzzzzz" 
54. s=getnextno(s,initlen) 
55. msgbox s'已經達到最大長度，無法繼續進位，需要修改長度 
56. </script>