ASP生成随机字符串(数字+大小写字母)示例代码
<div class="codecolorer-container asp vibrant" style="overflow:auto;white-space:nowrap;width:700px;height:400px;"><table cellspacing="0" cellpadding="0"><tbody><tr><td class="line-numbers"><div>1<br>2<br>3<br>4<br>5<br>6<br>7<br>8<br>9<br>10<br>11<br>12<br>13<br>14<br>15<br>16<br>17<br>18<br>19<br>20<br>21<br>22<br></div></td><td><div class="asp codecolorer"><span class="sy1"><%</span><br><span class="kw2">Function</span> gen_key<span class="br0">(</span>digits<span class="br0">)</span><br>
<span class="kw1">dim</span> char_array<span class="br0">(</span><span class="nu0">80</span><span class="br0">)</span><span class="co1">'定义并初始化数组</span><br>
<span class="kw1">For</span> i <span class="sy0">=</span> <span class="nu0">0</span> <span class="kw1">To</span> <span class="nu0">9</span><span class="co1">'初始化数字</span><br>
char_array<span class="br0">(</span>i<span class="br0">)</span> <span class="sy0">=</span> <span class="kw1">CStr</span><span class="br0">(</span>i<span class="br0">)</span><br>
<span class="kw1">Next</span><br>
<span class="kw1">For</span> i <span class="sy0">=</span> <span class="nu0">10</span> <span class="kw1">To</span> <span class="nu0">35</span><span class="co1">'初始化大写字母</span><br>
char_array<span class="br0">(</span>i<span class="br0">)</span> <span class="sy0">=</span> Chr<span class="br0">(</span>i + <span class="nu0">55</span><span class="br0">)</span><br>
<span class="kw1">Next</span><br>
<span class="kw1">For</span> i <span class="sy0">=</span> <span class="nu0">36</span> <span class="kw1">To</span> <span class="nu0">61</span><span class="co1">'初始化小写字母</span><br>
char_array<span class="br0">(</span>i<span class="br0">)</span> <span class="sy0">=</span> Chr<span class="br0">(</span>i + <span class="nu0">61</span><span class="br0">)</span><br>
<span class="kw1">Next</span><br>
Randomize <span class="co1">'初始化随机数生成器。</span><br>
<span class="kw1">do</span> <span class="kw1">while</span> <span class="kw3">len</span><span class="br0">(</span>output<span class="br0">)</span> <span class="sy0"><</span> digits<br>
num <span class="sy0">=</span> char_array<span class="br0">(</span><span class="kw1">Int</span><span class="br0">(</span><span class="br0">(</span><span class="nu0">62</span> - <span class="nu0">0</span> + <span class="nu0">1</span><span class="br0">)</span> <span class="sy0">*</span> Rnd + <span class="nu0">0</span><span class="br0">)</span><span class="br0">)</span><br>
output <span class="sy0">=</span> output + num<br>
<span class="kw1">loop</span><br>
gen_key <span class="sy0">=</span> output<span class="co1">'设置返回值</span><br>
<span class="kw1">End</span> <span class="kw2">Function</span><br>
<span class="co1">'返回结果</span><br>
<span class="kw1">response</span>.<span class="kw3">write</span> gen_key<span class="br0">(</span><span class="nu0">8</span><span class="br0">)</span><br>
<span class="sy1">%></span></div></td></tr></tbody></table></div>
<p class="post-copyright">未经允许不得转载：<ahref="https://www.wangchao.info/">王超博客</a> » <ahref="https://www.wangchao.info/1359.html">ASP生成随机字符串(数字+大小写字母)示例代码</a></p>
页:
[1]