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>
...全文
582 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
什么都不能 2014-05-17
  • 打赏
  • 举报
 回复
都把代码注释掉了，都没有定义对象就去用了
聂长恩 2014-05-13
  • 打赏
  • 举报
 回复
两个问题，把IE重装可能里面的内置码错误，另外可能是你VS有点问题。把项目方别人电脑上试一下，前者可能性大一点
csdn_aspnet 2011-12-11
  • 打赏
  • 举报
 回复
代码太多 加你了 帮你看看
liupan539649 2011-12-10
  • 打赏
  • 举报
 回复
万分感谢，我QQ675393256，能和我QQ联系更加感谢，我觉得可能是我的数据库建的不对，非常感谢
Microsoft JScript 运行时错误: 缺少对象
供提问使用，Microsoft JScript 运行时错误: 缺少对象 Microsoft JScript 运行时错误: 缺少对象
800A138F Microsoft Certificate Enrollment CAB
解压后运行解压后运行解压后运行解压后运行解压后运行
xenroll.dll
对于在 Windows 7 上密码输入控件的安装，需要修改以下设置： 1、先设置 IE8 浏览器。在 Tools - Internet Options - Advanced 里面，取消 enable memory protection to help mitigate online attacks 前面的勾(这步对于解决无法输入密码很关键)。 2、Tools - Internet Options - Security 里面，去掉 enable protected mod 前面的勾。 3、帐户控制里面,设置提示等级为最低，控制面板里面的 user accounts， turn user account control on or off ，进去后设置 never notify。 4、重启计算机，或者注销。 5、登录支付宝网站，会提示安装证书。到这步，密码问题应该可以解决了 或者采用如下方式 直接关掉 DEP 数据保护，以管理员方式打开 CMD（命令提示符）并输入： bcdedit.exe /set {current} nx Alwaysoff 重启才会生效，注销不行。用过支付宝，如果想恢复原样，把 Alwaysoff 改为 OptIn (系统默认值)就可以了。之后你就可以进入支付宝账户了。 安装证书遇到的问题 在 Windows 7 上安装支付宝证书，一般会遇到 2 个错误提示。 错误一：800A138F 错误 这个错误是因为禁用 Microsoft Certificate Enrollment CAB 引起的，取消禁用即可。 解决方法：如果出现 “错误代码800A138F” 的错误，只需要安装上“雅虎助手”，然后在插件管理里面把对 Microsoft Certificate Enrollment CAB的 屏蔽解除。当然过后就可以把雅虎助手删除掉。 错误二： 80070057 错误 这个错误是由于 xenroll.dll 控件没有注册引起的。 解决方法：下载这个dll 文件后, 放到 C 盘 Windows/system32 目录下，然后点击”开始”菜单，“运行”，输入 regsvr32 xenroll.dll 即可解决。 注意 1、取消禁用的 Microsoft Certificate Enrollment CAB 时候，也可以通过修改注册表解决，参见后面的附录。 2、对于 xenroll.dll 这个 DLL 文件，版本有很多。下载的时候注意文件版本号 “5.131.3686.0″ ，其他版本不适用 Windows 7。 在这个压缩包里面的win2003目录里面，里面是简体中文版本的。 附录 Microsoft Certificate Enrollment CAB禁用.reg Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{127698e4-e730-4e5c-a2b1-21490a70c8a1}] “Compatibility Flags”=dword:00000400 “IeaDo”=- Microsoft Certificate Enrollment CAB开锁 .reg Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{127698e4-e730-4e5c-a2b1-21490a70c8a1}] “Compatibility Flags”=dword:00000000 “IeaDo”=dword:00000001 压缩文件中包括文件下载 xenroll.dll 和附录REG文件。 提示: 请注意本文具有时效性。另外，文中的操作指示仅供参考。如因此引起其他问题恕难负责。
OMAP-L138系列TL138F-EVM开发板规格书.pdf
TL138F-EVM是一款基于广州创龙SOM-TL138F核心板设计的开发板，采用沉金无铅工艺的2层板设计，它为用户提供了SOM-TL138F核心板的测试平台，用于快 速评估SOM-TL138F核心板的整体性能。 SOM-TL138F引出CPU全部资源信号引脚，二次开发极其容易，客户只需要专注上层应用，大大降低了开发难度和时间成本，让产品快速上市，及时抢占市场 先机。 不仅提供丰富的Demo程序，还提供详细的开发教程，全面的技术支持，协助客户进行底板设计、调试以及软件开发。
OMAP-L138系列TL138F-EasyEVM开发板规格书.pdf
TL138F-EasyEVM是一款基于广州创龙SOM-TL138F核心板设计的开发板，采用沉金无铅工艺的2层板设计，它为用户提供了SOM-TL138F核心板的测试平台，用 于快速评估SOM-TL138F核心板的整体性能。
ASP

28,391

社区成员

357,059

社区内容

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

加载中

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

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

+ 用AI写文章