新たに、アンチゴミのコメントのaspコードを追加し、ごみを軽蔑します。
1623 ワード
最近開通しました。コメントを出すことができます。ゴミのコメントとメッセージに悩まされています。実際にwordpressにはいくつかの強力なプラグインがあります。例えばAkimetなどのspamを予防できますが、これはよだれを残してうらやましがるしかないです。ですから、最近ずっと比較的良い解決策を探しています。
今日はBigik.cnでいい方法を見ました。Bigikは加算方式のユーザー検証を使ってこの問題を解決します。方法を転載します。もちろんこの方法はあまり整っていません。またいくつかのspamが入ってくると思います。 使用方法: プログラムコード
今日はBigik.cnでいい方法を見ました。Bigikは加算方式のユーザー検証を使ってこの問題を解決します。方法を転載します。もちろんこの方法はあまり整っていません。またいくつかのspamが入ってくると思います。 使用方法: プログラムコード
Function getnum()
Dim QuesionNum
QuesionNum=7 ' , ,
Dim CodeIndex
CodeIndex=0
Dim QuesionArray(100)
Dim AnswerArray(100)
QuesionArray(0)="= 1 + 1" ' ,
AnswerArray(0)="2"
QuesionArray(1)="= 2 + 2"
AnswerArray(1)="4"
QuesionArray(2)="= 3 + 4"
AnswerArray(2)="7"
QuesionArray(3)="= 2 + 4"
AnswerArray(3)="6"
QuesionArray(4)="= 1 + 2"
AnswerArray(4)="3"
QuesionArray(5)="= 2 + 3"
AnswerArray(5)="5"
QuesionArray(6)="= 4 + 4"
AnswerArray(6)="8"
Randomize
CodeIndex = Int((QuesionNum * Rnd) + 0)
Session("Getnum") = AnswerArray(CodeIndex)
getnum = "<span style=""margin-right:40px;"">" & QuesionArray(CodeIndex) & "</span>"
End Function
呼び出し方法:
<%response.write getnum()%>
他の修正案: 問題は加減乗除の任意の問題または他の文字の問題に設定できます。例えば「987」 x 654 = ?”、“中国にはいくつの少数民族がいますか?」など、閲覧者に答えられないようにしてください。 認証コード入力ボックスの幅を小さくし、最大入力文字数を2に設定することを推奨します。