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

Dadimamiilove 2009-08-10 01:08:08

'DHTMLgoodies_formTooltip' 未定义
十万火急啊~~！！@！！~

...全文

139 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

lord_is_layuping 2009-08-10

打赏
举报

找不到js文件啊

Dadimamiilove 2009-08-10

打赏
举报

噢~~~！@@！@！@！@
谢谢谢谢你啊啊啊~~~~
问题解决啦~~~~
你真的很厉害啊~~~~~~~~~
佩服！！！
五体投地啊啊！！~~~~~

xinyung 2009-08-10

打赏
举报

要么把

<script type="text/javascript"> 

var tooltipObj = new DHTMLgoodies_formTooltip(); 

tooltipObj.setTooltipPosition('right'); 

tooltipObj.setPageBgColor('#EEE'); 

tooltipObj.setCloseMessage('Exit'); 

tooltipObj.initFormFieldTooltip(); 

</script>

去掉，
你这里的DHTMLgoodies_formTooltip应该是要外部引用的，但你没有引用这个文件，所以要把相关的js文件添加上来才可以使用

Dadimamiilove 2009-08-10

打赏
举报

<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>

Dadimamiilove 2009-08-10

打赏
举报

<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>

xinyung 2009-08-10