example.asp

因网上的中文验证很少

<script type="text/javascript">
function refreshimg(){
document.all.checkcode.src=' ';
document.all.checkcode.src='GetCode.asp?random='+Math.random();
}
</script>

<% 
Response.Buffer=true
Response.ExpiresAbsolute=now()-1
Response.Expires=0
Response.CacheControl="no-cathe"
Response.AddHeader "Pragma","No-Cathe"
'判断是否按下了确定按钮，如果按下了，则对比验证码是否输入正确 
'Download by http://www.codefans.net
If Request.QueryString("submit") <> "" Then 
      Dim checkCode 
      checkCode = Trim(Request.QueryString("checkCode")) 
      If checkCode = Session("psn") Then 
             Response.Write("<script>alert('验证码正确');</script>") 
      Else 
             Response.Write("<script>alert('验证码错误');</script>") 
      End If 
End If 
%> 
<form action="" method="get"> 
验证码：<input name='checkCode' type='text' id='checkCode' style='width: 50px;' maxlength='6' />
<a href='javascript:void(0);' onclick='refreshimg();' title='看不清楚，换个图片'><img id='checkcode' src="GetCode.asp" align="absmiddle" border="0" style='border: 1px solid #ffffff'/></a><span class="FontRed">* </span><a href='javascript:refreshimg()' title='看不清楚，换个图片'><font color='blue'>看不清楚，换个图片</font></a>
<input type="submit" name="submit" value="确定">
</form>