"Microsoft OLE DB Service Components 错误 '80004002' ,不支持此接口 ", why?
lhls 2003-12-08 11:43:33 问题:Microsoft OLE DB Service Components 错误 '80004002'
不支持此接口
/input/all.asp,行35
平台:单机的win2000专业版+iis5.0
all.asp原程序:
<html>
<head>
<title>all记录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>TD {
FONT-FAMILY: "宋体"; FONT-SIZE: 9pt
}
BODY {
FONT-FAMILY: "宋体"; FONT-SIZE: 9pt
}
SELECT {
FONT-FAMILY: "宋体"; FONT-SIZE: 9pt
}
A {
COLOR: #004160; FONT-FAMILY: "宋体"; FONT-SIZE: 9pt; TEXT-DECORATION: none
}
A:hover {
COLOR: #ff0000; FONT-FAMILY: "宋体"; FONT-SIZE: 9pt; TEXT-DECORATION: underline
}
.p11 {
COLOR: #0080c0; FONT-FAMILY: "宋体"; FONT-SIZE: 9pt; TEXT-DECORATION: none
}
</STYLE>
<script language="javascript">
function tmwindow(id)
{
window.open ('jilu.asp? id='+id,'infowin', 'height=400,width=600,scrollbars=yes,resizable=yes');
}
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Set Conn=Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("/jntm.mdb")
conn.Open "provider=Microsoft.jet.oledb.4.0;data source=" & DBPath
'conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.createobject("adodb.recordset")
if request("del")<>"" then conn.execute("delete * from query where id="&request("del"))
sql="select * from query order by id "
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"还没有记录"
else %>
<p><b><font size="3">全部记录</font></b>
<table border=1 width="763" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000">
<tr>
<td height="2" align="center"><b><font color="#995B00" face="楷体_GB2312" size="3">查询日期:</font></b></td>
<td height="2" align="center"><b><font color="#995B00" face="楷体_GB2312" size="3">申请人名称:</font></b></td>
<td height="2" align="center"><b><font color="#995B00" face="楷体_GB2312" size="3">商标名称:</font></b></td>
<td height="2" align="center"><b><font color="#995B00" face="楷体_GB2312" size="3">商标类别:</font></b></td>
<td height="2" align="center"><b><font color="#995B00" face="楷体_GB2312" size="3">联系人:</font></b></td>
<td height="2" align="center"><b><font color="#995B00" face="楷体_GB2312" size="3">电话(含地区号):</font></b></td>
<td height="2" align="center"><b><font color="#995B00" face="楷体_GB2312" size="3">交费情况:</font></b></td>
<td height="2" align="center"><b><font color="#995B00" face="楷体_GB2312" size="3">代理人:</font></b></td>
<td height="2" align="center"><b><font color="#995B00" face="楷体_GB2312" size="3">国家局查询人:</font></b></td>
<td >
<div align="center"><b>编辑记录</b></div>
</td> <td> <div align="center"><b>删除记录</b></div>
</td>
</tr>
<%
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=10
rs.absolutepage=pagecount
for ipage=1 to rs.pagesize
if rs.eof then exit for
id=rs("id")
%>
<tr>
<td> <%=rs("cxrq")%> </td>
<td> <%=rs("sqrmc")%> </td>
<td> <%=rs("sbmc")%> </td>
<td> <%=rs("sblb")%> </td>
<td> <%=rs("lxr")%> </td>
<td> <%=rs("tel")%> </td>
<td> <%=rs("jfqk")%> </td>
<td> <%=rs("dlr")%> </td>
<td> <%=rs("cxr")%> </td>
<td> <div align="center"><a href=edit1.asp?id=<%=rs("id")%>><font color="#CC6633">编辑</font></a></div> </td> <td> <div align="center"><a href=all.asp?del=<%=rs("id")%>><font color="#CC6633">删除</font></a></div>
</td>
</tr>
<% rs.movenext
next%>
</table>
<p>
<% response.write "共"&rs.recordcount&"条记录"
if rs.pagecount>1 then
if pagecount<>1 then
response.write " <a href=all.asp?page=1>首页</a>"
response.write " <a href=all.asp?page="&(pagecount-1)&"><<前页</a>"
end if
if pagecount<>rs.pagecount then
response.write " <a href=all.asp?page="&(pagecount+1)&">后页>></a>"
response.write " <a href=all.asp?page="&rs.pagecount&">尾页</a>"
end if
response.write " <a href=http://127.0.0.1>返回主菜单</a>"
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<a href="insert.htm"><font color="#FF0000">添加记录</font></a>
</body>
</html>