|
验证码调用:
- <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
复制代码
验证码.rar
(3.4 KB, 下载次数: 5)
|
|