DW+ACCESS+asp 做树目录调试出错 Microsoft JScript 运行时错误 (0x800A138F) 缺少对象

liupan539649 2011-12-10 01:20:20
我是学汽车的，第一次做这种网站，希望各位大牛帮帮忙。

每次调试都出错：浏览器显示
Microsoft JScript 运行时错误 (0x800A138F)
缺少对象

数目录的源程序为：

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body><form id="form1" name="form1" method="post" action="">

<h1 style="font-family: "幼圆"; font-size: 36px"> </h1>

</form>

<!-- InstanceEndEditable --><!-- InstanceBeginEditable name="EditRegion2" -->

<form id="form3" name="form3" method="post" action="">

<div align="center" style="color: #3300CC"><span style="font-family: " 幼 圆 ";

font-size: 36px"><span style="font-size: 16px; color: #D73355"></span>波途一族全系列产品

</span> </div>

</form>

<!-- InstanceEndEditable --><!-- InstanceBeginEditable name="EditRegion3" -->

<form id="form4" name="form4" method="post" action="">

<table width="50%" border="0" align="center" bgcolor="#96D3D0" id="table1">

<tr bordercolor="#FF0000">
<td>

<script language="JavaScript" type="text/javascript">

<!--

function tog(item){

obj=document.getElementById(item);

visible=(obj.style.display!="none");

key=document.getElementById("x" + item);

if (visible) {

obj.style.display="none";

key.innerHTML="+";

} else {

obj.style.display="block";

key.innerHTML="-";
}

}



function expall(item,yes){

obj=document.getElementById(item);

arr=obj.getElementsByTagName("UL");

for (i=0;i<arr.length;i++) {

key=document.getElementById("x" + arr[i].id);

if(yes){

arr[i].style.display="block";

key.innerHTML="-";

}else{

arr[i].style.display="none";

key.innerHTML="+";

}

}
}

//-->

</script>


<%
'Dim conn,rs_b,sql_b,rs_l, sql_l '

'Set conn=Server.CREATEOBJECT("ADODB.CONNECTION")'

dbpath= Server.MapPath("vw.mdb")

'conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &dbpath '
%>


<div id='tree_all'> <a href="javascript:tog('tree');" id='xtree' style="font-size:

16px">+</a><span class="STYLE40" style="font-family: "幼圆"; font-size: 16px; color:

#D73355">车型及相关零件</span>

<ul class='xtree' id='tree' style="display:none;">

<%
sql_b="select * from Products"

'Set rs_b=conn.EXECUTE(sql_b)'
'While Not rs_b.EOF'
%>

<li ><a id='x<%=rs_b("产品型号")%>' href="javascript:tog('<%=rs_b("产品型号 ")%>');">+</a><a href="productdetail.asp?产品型号=<%=rs_b("产品型号")%>" ><%=rs_b("产品型号")%></a>

<ul id='<%=rs_b("产品型号")%>' style="display:none;">

<%

sql_l="select * from Components where 所属产品型号='"&rs_b("产品型号")&"'"

'Set rs_l=conn.EXECUTE(sql_l) '
'While Not rs_l.EOF '



%>

<li><a href="partdetail.asp?所属产品型号=<%=rs_l("零件编号")%>" > <%=rs_l("零件名称")%></a></li>

<%

rs_l.MoveNext

Wend

%>

</ul>

</li>

<%

rs_b.MoveNext

Wend

%>

</ul>

</div>

<p><a href="javascript:expall('tree_all',1);" style="font-family: "幼圆"">
打开所有分支</a> -- <a href="javascript:expall('tree_all',0);" style "font-family: "幼圆

"">关闭所有分支</a></p></td>

</tr>

<%

rs_b.Close

rs_l.Close

conn.Close

%>

</table>



</body>
</html>


productdetail.asp源代码为

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
body {
background-color: #333333;
}
body,td,th {
color: #FFFFFF;
}
a:link {
color: #FFFFFF;
}
a:visited {
color: #FFFFFF;
}
-->
</style>
</head>

<body>
<%
'Dim conn,rs_b,sql_b,rs_l,sql_l '
ConnStr="driver={sql server};server=127.0.0.1;database=vw"
'set Conn=server.createobject("adodb.connection") '
'Conn.Open ConnStr '
'Set rs=Server.CreateObject("ADODB.Recordset") '
%>
<p>  </p>
<p>  </p>
<p>  </p>
<p>  </p>
<p>  </p>
<table width="100%" border="1">
<tr>
<td>零件编号 </td>
<td>零件名称 </td>
<td>零部件型号 </td>
<td>零件供应商 </td>
<td>供应商地址 </td>
<td>价格 </td>
</tr>
<%
sql_b="select * from Components where 所属产品型号='" & Request("产品型号") & "'"
'Set rs_b=conn.EXECUTE(sql_b) '
%>
<tr>
<td> <%=rs_b("零件编号")%> </td>
<td> <%=rs_b("零件名称")%> </td>
<td> <%=rs_b("零部件型号")%> </td>
<td> <%=rs_b("零件供应商")%> </td>
<td> <%=rs_b("供应商地址")%> </td>
<td> <%=rs_b("价格")%> </td>
</tr>
</table>
<%
rs_b.Close
conn.Close
%>
<p>  </p>
<p>  </p>
<p>  </p>
<p>  </p>
<p align="center"> <a href="untitled.asp">返回 </a> </p>

</body>
</html>


partdetail.asp源代码为

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
body {
background-color: #333333;
}
body,td,th {
color: #FFFFFF;
}
a:link {
color: #FFFFFF;
}
a:visited {
color: #FFFFFF;
}
-->
</style>
</head>
<body>
<%
'Dim conn,rs_b,sql_b,rs_l,sql_l '
ConnStr="driver={sql server};server=127.0.0.1;database=vw;"
'set Conn=server.createobject("adodb.connection") '
'Conn.Open ConnStr '
'Set rs=Server.CreateObject("ADODB.Recordset") '
%>
<p>  </p>
<p>  </p>
<p>  </p>
<p>  </p>
<p>  </p>
<table width="100%" border="1">
<tr>
<td>产品编号 </td>
<td>产品名称 </td>
<td>产品型号 </td>
<td>制造商 </td>
<td>产地 </td>
<td>价格 </td>
</tr>
<%
sql_b="select * from Products where 产品='" & Request("产品") & "'"
'Set rs_b=conn.EXECUTE(sql_b) '
%>
<tr>
<td> <%=rs_b("产品编号")%> </td>
<td> <%=rs_b("产品名称")%> </td>
<td> <%=rs_b("产品型号")%> </td>
<td> <%=rs_b("制造商")%> </td>
<td> <%=rs_b("产地")%> </td>
<td> <%=rs_b("价格")%> </td>
</tr>
</table>
<%
rs_b.Close
conn.Close
%>
<p>  </p>
<p>  </p>
<p>  </p>
<p>  </p>
<p align="center"><a href="untitled.asp">返回 </a></p>
</body>
</html>
...全文
733 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
什么都不能 2014-05-17
  • 打赏
  • 举报
 回复
都把代码注释掉了，都没有定义对象就去用了
聂长恩 2014-05-13
  • 打赏
  • 举报
 回复
两个问题，把IE重装可能里面的内置码错误，另外可能是你VS有点问题。把项目方别人电脑上试一下，前者可能性大一点
hefeng_aspnet 2011-12-11
  • 打赏
  • 举报
 回复
代码太多 加你了 帮你看看
liupan539649 2011-12-10
  • 打赏
  • 举报
 回复
万分感谢，我QQ675393256，能和我QQ联系更加感谢，我觉得可能是我的数据库建的不对，非常感谢
ASP+ACCESS实验室设备管理系统完整教程
本文介绍了采用ASP技术与Microsoft Access数据库构建的实验室设备管理系统。涵盖系统概念、架构、ASP环境配置、编程语言基础、数据库设计、用户界面实现、HTTP请求处理与会话状态跟踪等内容，还涉及需求分析、设计思路等，旨在教学生开发管理信息系统。
经典ASP网站源码项目实战学习包
本文详细介绍经典ASP技术，涵盖VBScript与JScript脚本语言的应用、ASP内置对象的使用、ADO数据库操作以及ASP与Access/SQL Server的交互。通过实际项目案例，帮助学习者掌握动态网页开发技巧，理解传统Web架构。
访问Access数据库报错的一次解决经历 Microsoft JET Database Engine(0x80004005)
本文介绍了一种解决ASP网站中出现的Microsoft JET Database Engine错误的方法，通过重新注册jscript.dll、vbscript.dll并重启IIS服务来解决无法显示内容的问题。
方卡在线帮助系统v1.0 ASP源码完整解析
本文详细解析了基于ASP技术构建的‘方卡在线帮助系统v1.0’源码，涵盖ASP服务器端脚本开发基础、VBScript与JScript语言应用、动态网页生成、数据库连接（Access/SQL Server）等内容。重点介绍了系统功能设计与实现，包括用户查询、文档分类、权限控制及部署优化策略，适合学习ASP开发与Web系统架构。
asp毕业设计下载（全套源码+配套论文）——基于asp+access的网上动态同学录系统设计与实现
本文介绍了基于ASP与Access数据库构建的网上动态同学录系统，涵盖需求分析、功能模块（用户注册/登录、班级通讯录、在线统计、图片上传、留言板、私信等）、数据库设计（txl.mdb含13张表）及系统实现。系统部署于IIS环境，采用ADO访问Access，具备安全性、可扩展性与典型Web交互能力，适用于本科毕业设计。
ASP

28,403

社区成员

356,942

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章