一段非常实用的vbscript代码，运行后可以实现依次输出26个字母a~z,通过修改代码可以实现其他更加实用的功能。源代码：
<script language="vbscript">
dim arr(25),k
for i = 97 To 122
  arr(k) = chr(i)
  k = k + 1
next
document.write(join(arr,"<br />"))
</script>

输出效果：
a
b
c
.
.
.
z

举个实用的例子：

我要批量搜索未注册域名，如ablog,bblog,cblog….. 需要给单词blog依次添加26个英文字母，

修改代码：
<script language="vbscript">
dim arr(25),k
for i = 97 To 122
  arr(k) = chr(i)
  k = k + 1
next
document.write(join(arr,"blog<br />"))
</script>

输出效果：
ablog
bblog
cblog
.
.
.
zblog

代码解释：

小写字母的asc码是处在97-122这个区间中，抓住这点，我们只要把这个区间的值转换成字符就可以实现从a-z这些字母的遍历了。

其中for i = 97 to 122  就是遍历这个区间
arr(k) = chr(i)  这句话的意思是将转换后的字符存到下标为k的数组中

document.write(join(arr,"<br />"))这句话的意思就是将这个数组中<br />形式连接，并输出。