哪个高手有好的简单的验证码的原代码发来！急！急！急！

Question

哪个高手有好的简单的验证码的原代码发来

Answer 1

火星帖..
请问您是要什么服务器技术的?php?jsp?

Answer 2

<%
Function getcode1()
Dim test
On Error Resume Next
Set test=Server.CreateObject("Adodb.Stream")
Set test=Nothing
If Err Then
Dim zNum
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("GetCode") = zNum
getcode1= Session("GetCode")
Else
getcode1= "<img src=""getcode.asp"">"
End If
End Function
%><%
if mofei="" then
Response.Write ("<script language=javascript>alert('验证码不能为空！');javascript:history.go(-1)</script>")
response.end 
end if
if cstr(session("getcode"))<>cstr(mofei) then
Response.Write ("<script language=javascript>alert('验证码输入有误请核对！');javascript:history.go(-1)</script>")
response.end 
end if
%><input type="text" name="mofei" class="textarea" size="10"> <%=getcode1()%>
做个提交form提交后就会判断验证码是否是对错了！

Answer 3

应该够简单明了了把?保存为asp你就明白了！<%
Function getcode1()
Dim test
On Error Resume Next
Set test=Server.CreateObject("Adodb.Stream")
Set test=Nothing
If Err Then
Dim zNum
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("GetCode") = zNum
getcode1= Session("GetCode")
Else
getcode1= "<img src=""getcode.asp"">"
End If
End Function
%>
<%
 '用户权限
If request("t")="l" Thenif mofei="" then
Response.Write ("<script language=javascript>alert('验证码不能为空！');javascript:history.go(-1)</script>")
response.end 
end if
if cstr(session("getcode"))<>cstr(mofei) then
Response.Write ("<script language=javascript>alert('验证码输入有误请核对！');javascript:history.go(-1)</script>")
response.end 
end if
%><script language="javascript">
function CheckForm()
{
/////////////////
if(document.form.mofei.value=="")
{
alert("请输入验证码！");
document.form.mofei.focus();
return false;
}
}
</script>
</head>
<%else%>
<form method="post" action="action="?t=l"" name=form onSubmit="return CheckForm()">
验证码：<input type="text" name="mofei" class="textarea" size="10"><%=getcode1()%>
        <input type="submit" name="Submit" value="登 陆">
</form>

Answer 4

刚上面写错了
这是最终版本
提交后，没提示，那就是验证正确<%
Function getcode1()
Dim test
On Error Resume Next
Set test=Server.CreateObject("Adodb.Stream")
Set test=Nothing
If Err Then
Dim zNum
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("GetCode") = zNum
getcode1= Session("GetCode")
Else
getcode1= "<img src=""getcode.asp"">"
End If
End Function
%>
<%
 '用户权限
If request("t")="l" Then mofei=trim(request.form("mofei"))


if mofei="" then
Response.Write ("<script language=javascript>alert('验证码不能为空！');javascript:history.go(-1)</script>")
response.end 
end if
if cstr(session("getcode"))<>cstr(mofei) then
Response.Write ("<script language=javascript>alert('验证码输入有误请核对！');javascript:history.go(-1)</script>")
response.end 
end if
%><script language="javascript">
function CheckForm()
{
/////////////////
if(document.form.mofei.value=="")
{
alert("请输入验证码！");
document.form.mofei.focus();
return false;
}
}
</script>
</head>
<%end if%>
<form method="post" action="?t=l" name=form onSubmit="return CheckForm()">
验证码：<input type="text" name="mofei" class="textarea" size="10"><%=getcode1()%>
        <input type="submit" name="Submit" value="登 陆">
</form></body>
</html>

Answer 5

把 <!--#include   file="mdb.asp"--> 
<!--#include   file="Md5.asp"-->  
去掉。
这两句不要

Answer 6

-_# asp跟jsp 是只差一个字母..