asp验证码
请问谁有asp的验证码文件包能发上来吗 我没分数了 不能给了
我在网上下载了个验证码文件包，也套入到我的asp界面了
在网页中也能显示
但是不知道怎么写判断语句，那个验证码文件包包里有这样一个语句<%
startime=timer()
'以下为常用过程
public sub GetCode()
response.write "<img src=""imgchk/validatecode.asp"" alt= ""验证码,看不清楚?请点击刷新验证码"" style=""cursor : pointer;height : 14px;"" onclick=""this.src='imgchk/validatecode.asp'""/> "
end sub
public sub CodeIsTrue(b)
if CStr(Session("GetCode"))<>cstr(Trim(Request("Code"))) then
randomize
Session("GetCode")=rnd()
if b="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('验证码错误，请刷新页面后重新输入！');" & "history.back()" & "</script>"
else
response.write "<script language=JavaScript>" & chr(13) & "alert('验证码错误，请重新输入！');"&"window.location.href = '"&b&"'"&" </script>"
end if
Response.End
end if
end sub
%>
是用来套进去的吗，高手能不能说下怎么套
这是我网页中代码，请问下如果是套进去那套在上面地方还要不要修改<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Connections/conn.asp" -->
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername = CStr(Request.Form("p"))
If MM_valUsername <> "" Then
Dim MM_fldUserAuthorization
Dim MM_redirectLoginSuccess
Dim MM_redirectLoginFailed
Dim MM_loginSQL
Dim MM_rsUser
Dim MM_rsUser_cmd
MM_fldUserAuthorization = ""
MM_redirectLoginSuccess = "index.asp"
MM_redirectLoginFailed = "cuowu.asp"
MM_loginSQL = "SELECT xm, mm"
If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization
MM_loginSQL = MM_loginSQL & " FROM dbo.web_biao WHERE xm = ? AND mm = ?"
Set MM_rsUser_cmd = Server.CreateObject (")
MM_rsUser_cmd.ActiveConnection = MM_conn_STRING
MM_rsUser_ = MM_loginSQL
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 50, MM_valUsername) ' adVarChar
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 50, Request.Form("u")) ' adVarChar
MM_rsUser_cmd.Prepared = true
Set MM_rsUser = MM_rsUser_cmd.Execute
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
.l {
color: #FFF;
}
.l {
color: #FFF;
}
body {
background-color: #069;
font-size: 24px;
color: #FFF;
}
.a {
font-size: 24px;
}
.a {
font-size: 24px;
color: #FFF;
}
o {
color: #000;
}
#form1 table tr td {
color: #000;
}
.l {
font-size: 12px;
}
.l {
font-size: 16px;
}
-->
</style>
<script type="text/javascript">
<!--
function MM_validateForm() { //v4.0
if (document.getElementById){
var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=document.getElementById(args[i]);
if (val) { nm=val.name; if ((val=val.value)!="") {
if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
} else if (test!='R') { num = parseFloat(val);
if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
min=test.substring(8,p); max=test.substring(p+1);
if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
} if (errors) alert('请输入完整的用户名和密码'+);
document.MM_returnValue = (errors == '');
} }
//-->
</script>
</head>
<body>
<table width="95%" height="121">
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
<table width="50%" height="293" border="0" align="center">
<tr>
<td width="33%" height="54" align="center" bgcolor="#0033CC"><h2 class="l">刘学东专有界面</h2></td>
<td width="67%" align="center" bgcolor="#0033CC"><h2 class="l">欢迎登陆后台管理界面</h2></td>
</tr>
<tr>
<td height="209" bgcolor="#DCE5EE"><img src="../images/7969514_142748924002_2-恢复的_18.gif" width="20" height="84" /><img src="../images/7969514_142748924002_2-恢复的_10.gif" width="144" height="207" /></td>
<td valign="top" bgcolor="#D9E3EC"><form id="form1" name="form1" method="POST" action="<%=MM_LoginAction%>">
<table width="100%" height="176" align="center">
<tr>
<td align="right">用户名：</td>
<td align="left"><input type="text" name="p" id="p" /></td>
</tr>
<tr>
<td align="right">密码：</td>
<td align="left" onfocus="MM_validateForm('p','','R','u','','R');return document.MM_returnValue"><input name="u" type="password" id="u" value="" /></td>
</tr>
<tr>
<td align="right">验证码：</td>
<td><input name="textfield" type="text" id="textfield" size="6" />
<input type="image" name="imageField" id="imageField" src="../cc/验证码/imgchk/validatecode.asp" />
</td>
</tr>
<tr>
<td align="right"> </td>
<td><input type="submit" name="button" id="button" value="登陆后台" />
<input type="reset" name="button2" id="button2" value="从新输入" /></td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td colspan="2" align="center"><hr />
<marquee>版权©刘学东保留所有版权</td>
</tr>
</table>
</body>
</html>
