验证页这样写: [转自：711网络工作室 http://www.tc711.com]
<%
Dim WebRndNum,LoopNum
LoopNum = 1
Randomize
Do While LoopNum <= 4
WebRndNum = WebRndNum & Int(10*Rnd)
LoopNum = LoopNum + 1
Loop
%>
估计大家明白上面的意思~就不介绍了~~ [转自：711网络工作室 http://www.tc711.com]
提示：
提交表单验证地址要加 ?webrndnum=<%= WebRndNum %>
下来就是调用验证码：
<input type="text" name="WebRndNum" size="4" maxlength="4" style="color: #FFFFFF; font-size: 12px; font-family: 宋体; background-color: #FFFFFF; border: 1 solid #808080"> <span style="background-color: #CE0000"><b><font color="#000000"><%= WebRndNum %></font></b></span>
提交页加 （如你的表单提交页是FTP.ASP )
<%
Dim WebRndNum1,WebRndNum2
WebRndNum1 = Request.QueryString("WebRndNum")
WebRndNum2 = Request.Form("WebRndNum")
If WebRndNum1 = "" or WebRndNum2 = "" or WebRndNum1 <> WebRndNum2 Then Response.Redirect "error.asp?EID=007"
%>
ERROR。ASP自己做个
<%
Dim Err1,Err2
ErrID = Request("EID")
If ErrID = "007" Then
Err1 = "数据不完整："
Err2 = " 引起错误的原因可能是因为您输入的数据是空值。请您检查所输入的数据并重新输入！"
End If%>
完了~我是不是很罗嗦~这些只是为了一些刚学的网友提供方便
|
