爱你`````````````````````````````！

好贴，正在愁我的验证码难输呢？赞一个

'*************************************
'获得注册码，运算问题
'NewValidate For PJblog2 BY Bigheadlyf
'更新时间: 2007-4-4
'*************************************
Function getcode()

Dim QuesionNum
QuesionNum=13  '问题的总数,如要添加问题,请先修改这个数值
Dim CodeIndex
CodeIndex=0

Dim QuesionArray(100)
Dim AnswerArray(100)

QuesionArray(0)="= 1 + 1"                       '问题列表及答案,可自行修改
AnswerArray(0)="2"
QuesionArray(1)="你爱我么?"
AnswerArray(1)="爱"
QuesionArray(2)="= 2 + 2"
AnswerArray(2)="4"
QuesionArray(3)="你恨我么?"
AnswerArray(3)="恨"
QuesionArray(4)="= 3 + 4"
AnswerArray(4)="7"
QuesionArray(5)="你有钱么?"
AnswerArray(5)="有"
QuesionArray(6)="= 2 + 4"
AnswerArray(6)="6"
QuesionArray(7)="你还来我的博客么?"
AnswerArray(7)="来"
QuesionArray(8)="= 1 + 2"
AnswerArray(8)="3"
QuesionArray(9)="你笨么?"
AnswerArray(9)="笨"
QuesionArray(10)="= 2 + 3"
AnswerArray(10)="5"
QuesionArray(11)="你是人么?"
AnswerArray(11)="是"
QuesionArray(12)="= 4 + 4"
AnswerArray(12)="8"

Randomize
CodeIndex = Int((QuesionNum * Rnd) + 0)
Session("GetCode") = AnswerArray(CodeIndex)
getcode = "<span style=""margin-right:40px;"">" & QuesionArray(CodeIndex) & "</span>"
End Function