使用vbscript生成36进制自动增长序号的实现代码

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

实现代码：

script language="vbscript">
    function getinITstring(l)'初始化指定长度的0字符串 l=l-1 for i=0 to l  getinitstring="0"&
    getinitstring nextend functionfunction getnextchar(chrcode)'获取下一个字符 if chrcode=57 then'数字和字母标ascii不连贯，需要特殊处理一下  getnextchar="a" else  getnextchar=chr(chrcode+1) end ifend functionfunction 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'拆分成数组  a(i)=mid(s,i+1,1) next carry=false'进位标志 for i=l to 0 step -1'从最低位开始遍历  chrcode=asc(a(i))  if carry then   if chrcode>
    122 then'不是z，自增后退出for循环，否则继续进位    a(i)=getnextchar(chrcode):exit for'退出循环   elseif i=0 then    getnextno="已经达到最大长度，无法继续进位，需要修改长度":exit function   end if  end if  if a(i)="z" then   carry=true:a(i)="0"  else   a(i)=getnextchar(chrcode):exit for'退出循环  end if next for i=0 to l'组合返回字符串  getnextno=getnextno&
    a(i) nextend functions=""initlen=6s=getnextno(s,initlen)msgbox s'000000s=getnextno(s,initlen)msgbox s'000001s="aaazzz"s=getnextno(s,initlen)msgbox s'aab000s="zzzzzz"s=getnextno(s,initlen)msgbox s'已经达到最大长度，无法继续进位，需要修改长度/script>
    

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！