黑松山资源网 Design By www.paidiu.com
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 next end function function getnextchar(chrcode)'获取下一个字符 if chrcode=57 then'数字和字母标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'拆分成数组 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) 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'已经达到最大长度,无法继续进位,需要修改长度 </script>
黑松山资源网 Design By www.paidiu.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
黑松山资源网 Design By www.paidiu.com
暂无评论...
更新日志
2024年06月17日
2024年06月17日
- 江蕙1996-台语畅销全曲珍藏版2CD[台湾][WAV整轨]
- 单依纯《想你时风起》开盘母带[低速原抓WAV+CUE]
- 群星.1990-宝丽金巨星荟萃(引进版)【宝丽金】【WAV+CUE】
- 电影原声大碟《速度与激情4》2009[WAV+CUE]
- 群星《90后经典流行歌曲精选五百首》[320K/MP3][5.4G]
- 《张宇 苦情歌 3CD》[WAV+CUE][2.2GB]
- 刀郎《2020年精选歌曲》[FLAC/分轨][305.6MB]
- 魏如萱2011-不允许哭泣的场合[亚神音乐][WAV+CUE]
- 张敬轩.2005-我的梦想我的路【几何娱乐】【WAV+CUE】
- 林一峰2003-TRAVELOGUE1游乐[香港首版][WAV+CUE]
- 刘德华《1999-2011年演唱会》[MKV][33.4G]
- 邓紫棋《2013年演唱会》[MKV][15.8G]
- 《张杰 无损音乐合集 2005-2023》[FLAC/分轨][11.8GB]
- 【休闲沙发】VA-2024-TranquilHorizons:ChilloutYourMind(FLAC)
- 【休闲沙发】VA-SeaMelodies:ChilloutYourMind(2024)[FLAC]