大家帮帮忙
出现以下错误:
Microsoft VBScript 编译器错误 (0x800A0409)
/ne/adm/admin-adm.asp, 第 136 行, 第 65 列
response.write "<script language=JavaScript>window.alert('修改成功');
代码如下:
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<SCRIPT language=javascript id=clientEventHandlersJS>
//函数名:chksafe
//功能介绍:检查是否含有"'",'\\',"/"
//参数说明:要检查的字符串
//返回值:0:是 1:不是
function chksafe(a)
{
return 1;
/* fibdn = new Array ("'" ,"\\", "、", ",", ";", "/");
i=fibdn.length;
j=a.length;
for (ii=0;ii<i;ii++)
{ for (jj=0;jj<j;jj++)
{ temp1=a.charAt(jj);
temp2=fibdn[ii];
if (tem';p1==temp2)
{ return 0; }
}
}
return 1;
*/
}
//函数名:fucCheckLength
//功能介绍:检查字符串的长度
//参数说明:要检查的字符串
//返回值:长度值
function fucCheckLength(strTemp)
{
var i,sum;
sum=0;
for(i=0;i<strTemp.length;i++)
{
if ((strTemp.charCodeAt(i)>=0) && (strTemp.charCodeAt(i)<=255))
sum=sum+1;
else
sum=sum+2;
}
return sum;
}
</SCRIPT>
<SCRIPT language=javascript id=clientEventHandlersJS>
<!--
function form1_onsubmit()
{
if(document.FORM1.uid.value.length<1)
{
alert("您必须输入帐号!");
document.FORM1.uid.focus();
return false;
}
if ((chksafe(document.FORM1.uid.value)==0)||(fucCheckLength(document.FORM1.uid.value)>20))
{ alert("请填写正确的帐号,且长度不可大于20。");
document.FORM1.uid.focus();
return false;
}
if (fucCheckLength(document.FORM1.pwd1.value)<4)
{ alert("密码必须大于4位")
document.FORM1.pwd1.focus();
return false;
}
if ((chksafe(document.FORM1.pwd1.value)==0)||(fucCheckLength(document.FORM1.pwd1.value)>18))
{ alert("请填写正确密码,且长度不可大于18。")
document.FORM1.pwd1.focus();
return false;
}
if (document.FORM1.pwd1.value!=document.FORM1.pwd2.value)
{
alert ("请确认您的密码是否跟原来一样。");
document.FORM1.pwd1.value='';
document.FORM1.pwd2.value='';
document.FORM1.pwd1.focus();
return false;
}
}
//-->
</SCRIPT>
<body>
<form language=javascript name="FORM1" method="post" action="admin-adm.asp" onsubmit="return form1_onsubmit()">
<table width="48%" border="1" align="center">
<tr>
<td>管理员添加 </td>
</tr>
<tr>
<td>管理员帐号 <input type="text" name="uid"></td>
</tr>
<tr>
<td>管理员密码 <input type="text" name="pwd1" size="20"></td>
</tr>
<tr>
<td>密码确认 <input type="text" name="pwd2"></td>
</tr>
<tr>
<td><input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置"></td>
</tr>
</table>
</form>
<%
if session("admin")="admin"then
uid=request.form("uid")
pwd1=request.form("pwd1")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where (name is not null)"
rs.open sql,conn,1,3
rs.addnew
rs("name")=uid
rs("pass")=pwd1
rs.update
rs.close
set rs=nothing
conn.close
session("admin")=""
response.write "<script language=JavaScript>window.alert('修改成功');
window.location='admin-adm.asp;</script>"
response.end
end if
%>
</body>
</html>