asp验证码代码

验证码调用：

1. 
   
2. <img src="code.asp" style="cursor:hand" onclick="this.src='code.asp';" alt="看不清?点一下" />
   
3. 
   
4. 
   
5. 验证函数：
   
6. 
   
7. Function codepass()
   
8.         Dim CodeStr
   
9.         CodeStr = Trim(request("CodeStr"))
   
10.         If CStr(Session("GetCode")) = CStr(CodeStr) And CodeStr <> "" Then
    
11.             codepass = True
    
12.             'Session("GetCode")=empty
    
13.         Else
    
14.             codepass = False
    
15.             'Session("GetCode")=empty
    
16.         End If
    
17.     End Function
    

复制代码

验证码.rar (3.4 KB, 下载次数: 5)

2019-3-23 14:09 上传

点击文件名下载附件