谁懂这是什么意思啊！！ 'DHTMLgoodies_formTooltip' 未定义

可能是这个字符串两边没有加引号，造成DHTMLgoodies_formTooltip作为变量处理了

DHTMLgoodies_formTooltip变量未定义，你应该贴点东西出来，这样说你觉得清楚吗

你整个页面（包括链接的js文件）有定义DHTMLgoodies_formTooltip这个变量或函数吗？

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>16</title>

<script language="javascript" >
function keydown()
{
if(event.keyCode==13)
event.keyCode=9;
}
</script>
<SCRIPT   LANGUAGE="javascript">
  
</script>
<SCRIPT   LANGUAGE="javascript">
  
        </script>
<script type="text/javascript">
var tooltipObj = new "DHTMLgoodies_formTooltip()";
tooltipObj.setTooltipPosition('right');
tooltipObj.setPageBgColor('#EEE');
tooltipObj.setCloseMessage('Exit');
tooltipObj.initFormFieldTooltip();
</script>
<style type="text/css">

</style>
</head>

<body>
<table width="100%" border="0" cellpadding="0">

  <tr>
    <td align="center" valign="top" bgcolor="#0066FF"> </td>
  </tr>
  <tr>
    <td width="0" align="center" valign="top" bgcolor="#FFFFCC"><form action="" method="post" name="form1" class="style5"  onsubmit="return input(this)">
      <div align="center" ><strong>产品编号
        :
        <select name="select" id="select">
          <%
'这是编号选择栏的数据库连接
Dim rs
set rs=server.createobject("adodb.recordset")
sql="select * from 材料清单"
rs.open sql,conn,1,1
'这是产品编号下拉菜单
do While (NOT rs.EOF)
%>
          <option value="<%=rs("产品编号")%>" <%If (Not isNull(rs("产品编号"))) Then If (CStr(rs("产品编号") = CStr(rs("产品编号")))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=rs("产品编号")%></option>
          <%
rs.MoveNext()
Loop
If (rs.CursorType > 0) Then
rs.MoveFirst
Else
  rs.Requery
End If
%>
        </select>

        数量:
        <input name="textfield" type="text" id="textfield" value="请输入数量"onfocus="if(value=='请输入数量') {value=''}" onBlur="if (value=='') {value='请输入数量'}" onKeyDown="keydown()" size="9" />
        备注:
        <input type="text" name="textfield2" id="textfield2"  onKeyDown="keydown()" value="请输入备注" onFocus="if(value=='请输入备注') {value=''}" onBlur="if(value==''){value='请输入备注'}"  />


</script>
        <input type="submit" name="bh" id="button"  value="保存">
        <input type="reset" name="button" id="button" value="重置">  <a href=javascript:close()>[关闭窗口]</a>
        <%   '连接数据库
if request("bh")<>"" then
'Application.Lock()
a="1"
bianhao=request.form("select")
Set rs= Server.CreateObject ("ADODB.Command")
set rs=conn.execute("SELECT * FROM 材料清单 WHERE 产品编号='"&bianhao&"'")
if  not rs.eof and not rs.bof  then
beizhu=request.form("textfield2")
shuliang=request.Form("textfield")
conn.execute("INSERT INTO 产品录入 (产品编号,名称,类型,规格,材质,数量,入仓时间,单位,备注,标记) VALUES ('"&bianhao&"','"&rs("名称")&"','"&rs("类型")&"','"&rs("规格")&"','"&rs("材质")&"','"&shuliang&"',getdate(),'"&rs("单位")&"','"&beizhu&"','"&a&"')")
end if
response.redirect("luru.asp")
end if
'Application.UnLock()
%>
      </strong></div>

    </form>   </td>
  </tr>
  <form name="form3" method="post" action="">
  <tr>
    <td>
    <table width="100%" border="1" id="tab1" cellpadding="0" >
      <tr>
        <td width="1%" align="center" valign="middle" nowrap  bgcolor="#0066FF">行数</td>
        <td width="7%" align="center" valign="middle" nowrap bgcolor="#0066FF"><span class="style4">产品编号</span></td>
        <td width="10%" align="center" valign="middle" nowrap  bgcolor="#0066FF"><span class="style4">名称</span></td>
        <td width="5%" align="center" valign="middle" nowrap  bgcolor="#0066FF"><span class="style4">类型</span></td>
        <td width="6%" align="center" valign="middle" nowrap  bgcolor="#0066FF"><span class="style4">规格</span></td>
        <td width="6%" align="center" valign="middle" nowrap bgcolor="#0066FF"><span class="style4">材质</span></td>
        <td width="6%" align="center" valign="middle" nowrap  bgcolor="#0066FF"><span class="style4">供应商</span></td>
        <td width="8%" align="center" valign="middle" nowrap  bgcolor="#0066FF"><span class="style4">数量</span></td>
        <td width="17%" align="center" valign="middle" nowrap  bgcolor="#0066FF">入仓时间</td>
        <td width="17%" align="center" valign="middle" nowrap bgcolor="#0066FF"><span class="style4">备注</span></td>
        <td width="15%" align="center" valign="middle" nowrap  bgcolor="#0066FF"><span class="style4">录入员</span></td>
      </tr>
      <%   '连接数据库
Set rs= Server.CreateObject ("ADODB.Command")
set rs=conn.execute("SELECT * FROM 产品录入 WHERE 标记=1")
While ((not rs.bof) AND (NOT rs.EOF))
%>
      <tr>
        <td align="center"><%=rs("ID")%></td>
        <td height="23" align="center"> <%=rs("产品编号")%></td>
        <td align="center"><%=rs("名称")%></td>
        <td align="center"><%=rs("类型")%></td>
        <td align="center"><%=rs("规格")%></td>
        <td align="center"><%=rs("材质")%></td>
        <td align="center"><%=rs("单位")%></td>
        <td align="center"><%=rs("数量")%></td>
        <td align="center"><%=rs("入仓时间")%></td>
        <td align="center"><%=rs("备注")%></td>
        <td align="center"><%=rs("录入文员")%></td>
      </tr>
         <%
  rs.MoveNext()
  wend
%>
    </table>
           <div align="center">
      <select name="select2" id="select2">
        <%
'这是编号选择栏的数据库连接
set rs=server.createobject("adodb.recordset")
set rs=conn.execute("select * from 产品录入 where 标记=1 ")
'这是产品编号下拉菜单
do While (NOT rs.EOF)
%>
           <option value="<%=rs("ID")%>" <%If (Not isNull(rs("ID"))) Then If (CStr(rs("ID") = CStr(rs("ID")))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=rs("ID")%></option>
        <%
rs.MoveNext()
Loop
If (rs.CursorType > 0) Then
rs.MoveFirst
Else
  rs.Requery
End If
%>
      </select>
      <input type="submit" name="b2" id="button2"   value="删除行">
      <%
  if request("b2")<>"" then
  ID=request.form("select2")
  set rs=server.createobject("adodb.recordset")
set rs=conn.execute("DELETE 产品录入 WHERE ID='"&ID&"' AND 标记=1")
response.redirect("luru.asp")
end if%>
    </div>
</form>
    </div>    </td>
  </tr>
</table>
<form name="form2" method="post" action="" onSubmit="return   input(this)" >
  <div align="center">
    <input type="submit" name="bo" id="button" value="提交审核">
  </div>
</form>
  
<%
if request("bo")<>"" then
     s="1"
b="0"
Set rs= Server.CreateObject ("ADODB.Command")
   set rs=conn.execute("update 产品录入 SET 审核='"&s&"' WHERE 标记=1 ")
      set rs=conn.execute("update 产品录入 SET 标记='"&b&"' WHERE 标记=1")
    Response.write"<SCRIPT language=JavaScript>alert('添加成功！')</SCRIPT>"
response.redirect("luru.asp")
end if
  %>
</body>
</html>

要么把
<script type="text/javascript">
var tooltipObj = new DHTMLgoodies_formTooltip();
tooltipObj.setTooltipPosition('right');
tooltipObj.setPageBgColor('#EEE');
tooltipObj.setCloseMessage('Exit');
tooltipObj.initFormFieldTooltip();
</script>去掉，
你这里的DHTMLgoodies_formTooltip应该是要外部引用的，但你没有引用这个文件，所以要把相关的js文件添加上来才可以使用

调试易

谁懂这是什么意思啊！！ 'DHTMLgoodies_formTooltip' 未定义

解决方案 »