ASP版验证码源码完整版

验证码调用： <img src="code.asp" style="cursor:hand" onclick="this.src='code.asp';" alt="看不清?点一下" /> 验证函数： Function codepass() Dim CodeStr CodeStr = Trim(request("CodeStr")) If CStr(Session("GetCode")) = CStr(CodeStr) And CodeStr <> "" Then codepass = True 'Session("GetCode")=empty Else codepass = False 'Session("GetCode")=empty End If End Function