Question

ASP 缺少对象：<form name="form1" ...

<%@language=vbscript codepage=936 %>
<!--#include file="Conn.asp"-->
<!--#include file="Admin.asp"-->
<%
dim Action,GsyjbName,rs,FoundErr,ErrMsg
Action=trim(Request("Action"))
GsyjbName=trim(request("GsyjbName"))
if Action="Add" then
if GsyjbName="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>业绩表名不能为空！</li>"
End if
if FoundErr<>True then
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.open "Select * From Gsyjb Where GsyjbName='" & GsyjbName & "'",conn,1,3
if not (rs.bof and rs.EOF) then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>业绩表“" & BigClassName & "”已经存在！</li>"
else
rs.addnew
rs("GsyjbName")=GsyjbName
rs.update
rs.Close
set rs=Nothing
call CloseConn()
Response.Redirect "Manage_Gsyjb.asp"
end if
end if
end if
if FoundErr=True then
call WriteErrMsg()
else
%>
<script language="JavaScript" type="text/JavaScript">
function checkbig()
{
if (document.form1.GsyjbName.value=="")
{
alert("业绩表名称不能为空！");
document.form1.GsyjbName.focus();
return false;
}
}
<!-- #include file="Inc/Head.asp" -->
</script>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="192" align="center" valign="top"> <br>
<br>
<strong> 项 目 业 绩 表 设 置</strong> <br>
<br>
<form name="form1" method="post" action="Mamage_Gsyjb_add.asp" onSubmit="return checkName()">
<table width="496" border="0" align="center" cellpadding="0" cellspacing="2" class="border">
<tr bgcolor="#A4B6D7" class="title">
<td height="25" colspan="2" align="center"><strong>添加业绩表</strong></td>
</tr>
<tr bgcolor="#E3E3E3" class="tdbg">
<td width="86" height="22" bgcolor="#A4B6D7"> <div align="right"><strong>业绩表名称：</strong></div></td>
<td width="404" bgcolor="#A5B6D6"> <input name="GsyjbName" type="text" size="55" maxlength="50"></td>
</tr>
<tr bgcolor="#C0C0C0" class="tdbg">
<td height="22" align="center" bgcolor="#A4B6D7">  </td>
<td height="22" align="center" bgcolor="#A5B6D6"> <div align="left">
<input name="Action" type="hidden" id="Action" value="Add">
<input name="Add" type="submit" value=" 添 加 ">
</div></td>
</tr>
</table>
</form> </td>
</tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
<%
end if
call CloseConn()
%> </td>
</tr>
</table>

Answer 1

<form name="form1" method="post" action="Mamage_Gsyjb_add.asp" onSubmit="return checkName()"> 改为<form name="form1" method="post" action="Mamage_Gsyjb_add.asp" onSubmit="return checkbig()">

Answer 2

汗，一般看下第几行就可以找到原因的啦，楼上那个应该是跟js缺少对象有关吧，跟asp缺少对象没关系的

Answer 3

报的哪行缺少对象啊？代码太多 看完能累死