上一篇
下一篇
修改PJBlog验证码为加法运算
作者:心海之潮 日期:2007-09-03
转自:http://www.zjidea.com/blog/article.asp?id=290
最近为垃圾广告发愁,每天都有好多,最近几天特多,删都删不过来了,严重BS这些人!!
到PJ官网寻找解决方法,无意中看到了bigheadlyf写的把验证码变为加法运算题(http://bbs.pjhome.net/thread-17361-1-1.html),感觉思路不错,拿来用时发现一个小小的遗憾,不能随机生成验证码,于是稍微做了点修改,测试通过,现在与大家一起分享下
效果如下图:
修改方法：
1. 打开common目录下的function.asp，在大约50行左右可以找到以下代码：
程序代码'*************************************
'获得注册码
'*************************************
Function getcode()
getcode= "<img src=""common/getcode.asp"" alt="""" style=""margin-right:40px;""/>"
End Function
2. 将其替换为以下代码：
程序代码'*************************************
'获得注册码
'*************************************
Function getcode()
getcode= "<img src=""common/getcode.asp"" alt="""" style=""margin-right:40px;""/>"
End Function
'*************************************
'获得注册码，运算问题
'NewValidate For PJblog2 BY 相逢萍水
'更新时间: 2007-8-14
'*************************************
Function getcode()
Dim QuesionNum
QuesionNum=10 '控制计算数的位数,此数必须大于10,不然全为0.如果想一位数相加,请用10,两位数相加,请用100,混合位数相加,11~99.其它类推
Dim Num1
Dim Num2
Dim Dis_Num
Dim Sum
Randomize
Num1 = Int(QuesionNum * Rnd)
Num2 = Int(QuesionNum * Rnd)
Dis_Num = "=" & Num1 & "+" & Num2
Sum = Num1 + Num2
Session("GetCode") = Sum
getcode = "<span style=""margin-right:40px;"">" & Dis_Num & "</span>"
End Function
3. 保存文件，上传到服务器，测试~
好了,到此结束,我测试基本上是没问题,大家帮忙测试下,如果有什么问题请留言
文章来自: 
引用通告: 
Tags: 评论: 0 | 引用: 0 | 查看次数: -
发表评论