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]