vbscript 和 javascript 写验证码

[code]vbscript和javascript写的验证码脚本
网站流行登陆或者发文章的时候输入验证码主要的一个作用是防止重复提交数据
用验证码在那里卡一下，效果会好很多，其实用随机数很简单的就可以实现

<script language="vbscript">
window.name="code"
Function vCode()
Dim A(5)
Randomize
For i=1 To 5
A(i-1)= Int (10 * Rnd)
document.write A(i-1)
next
End Function
vCode
</script>

<script language="javascript">
function vvCode(k){
eval(A=new Array(k))
for(i=0;i<k;i++){
A[i]=parseInt(Math.random()*10)
document.write(A[i])
}
}
vvCode(5)
//javascript可以通过eval函数指定产生的验证码位数,更爽一点
</script>

vbscript的Rnd函数和javascript的Math.random函数都产生一个大于0小于1的小数(0.xxxx)
于是都乘以10，使他们变成(x.xxxx)的形式,然后转换为整型

由于对javascript的函数不熟悉，一开始让我兜了个圈子，我不知道有一个函数可以把字符串和小数转换为整型，所以写了一段等价的代码
N=Number(Math.random()*10)
S=N.toString()
N=Number(S.substring(0,1))
晕哦...好费事...其实一个parseInt函数就可以实现了嘛，对函数的熟悉真的是基本工呀，我要好好练才行：（[/code]