新人请问一个有关问题
日期：2014-05-17 浏览次数：20846 次
新人请教一个问题！
我写了个用户管理页面 下面是代码
<html>
<head>
<title> 用户管理 </title>
<meta http-equiv= "Content-Type " content= "text/html;charset=gb2312 ">
</head>
<body>
<p align= "center "> 用户管理 </p>
<!--#include file= "ljsjk.asp "-->
<%
dim dbcmd
Set dbcmd=Server.CreateObject( "Adodb.Command ")
dbcmd.ActiveConnetion=dbcn
dbcmd.CommandType=1
dim sqlstr
sqlstr= "Select * from yhxx "
dbcmd.CommandText=sqlstr
Set dbrs=dbcmd.Execute%>
<table width= "500 " border= "1 " aign= "center " cellpadding= "0 " cellspacing= "0 ">
<tr bgcolor= "#EAEAEA ">
<td> <div align= "center "> 帐户 </div> </td>
<td colspan= "3 "> <div align= "center "> 管理 </div> </td>
</tr>
<%Do While not dbrs.Eof%>
<tr>
<td> <%=dbrs( "zh ")%> </td>
<td bgcolor= "#FEFEFE "> <div align= "center ">
<a href= "xxzy.asp?zh= <%=dbrs( "zh ")%> "> 详细信息 </a> </div> </td>
<td bgcolor= "#FEFEFE "> <div align= "center ">
<a href= "xgzy.asp?zh= <%=dbrs( "zh ")%> "> 修改信息 </a> </div> </td>
<td bgcolor= "#FEFEFE "> <div align= "center ">
<a href= "scyh.asp?zh= <%=dbrs( "zh ")%> "> 删除用户 </a> </div> </td>
</tr>
<%dbrs.MoveNext
loop%>
</table>
<%
dbcn.Close
Set dbcn=Nothing%>
</body>
</html>
<!--#include file= "ljsjk.asp "--> 为
<%
Dim dbcn
Set dbcn=Server.CreateObject( "Adodb.Connection ")
dbcn.ConnectionString= "dbq= "&Server.MapPath( "DATA\SPXXGLXT.mdb ")& ";Driver={Microsoft Access Driver (*.mdb)} "
dbcn.ConnectionTimeOut=40
dbcn.open
%>
运行后出现如下错误
错误类型：
Microsoft VBScript 运行时错误 (0x800A01B6)
对象不支持此属性或方法: 'ActiveConnetion '
/yhgl.asp, 第 12 行
请问我该怎么解决啊！谢谢了！
------解决方案--------------------
dbcmd.ActiveConnetion=dbcn
上面的错少了个c
dbcmd.ActiveConnection=dbcn
我写了个用户管理页面 下面是代码
<html>
<head>
<title> 用户管理 </title>
<meta http-equiv= "Content-Type " content= "text/html;charset=gb2312 ">
</head>
<body>
<p align= "center "> 用户管理 </p>
<!--#include file= "ljsjk.asp "-->
<%
dim dbcmd
Set dbcmd=Server.CreateObject( "Adodb.Command ")
dbcmd.ActiveConnetion=dbcn
dbcmd.CommandType=1
dim sqlstr
sqlstr= "Select * from yhxx "
dbcmd.CommandText=sqlstr
Set dbrs=dbcmd.Execute%>
<table width= "500 " border= "1 " aign= "center " cellpadding= "0 " cellspacing= "0 ">
<tr bgcolor= "#EAEAEA ">
<td> <div align= "center "> 帐户 </div> </td>
<td colspan= "3 "> <div align= "center "> 管理 </div> </td>
</tr>
<%Do While not dbrs.Eof%>
<tr>
<td> <%=dbrs( "zh ")%> </td>
<td bgcolor= "#FEFEFE "> <div align= "center ">
<a href= "xxzy.asp?zh= <%=dbrs( "zh ")%> "> 详细信息 </a> </div> </td>
<td bgcolor= "#FEFEFE "> <div align= "center ">
<a href= "xgzy.asp?zh= <%=dbrs( "zh ")%> "> 修改信息 </a> </div> </td>
<td bgcolor= "#FEFEFE "> <div align= "center ">
<a href= "scyh.asp?zh= <%=dbrs( "zh ")%> "> 删除用户 </a> </div> </td>
</tr>
<%dbrs.MoveNext
loop%>
</table>
<%
dbcn.Close
Set dbcn=Nothing%>
</body>
</html>
<!--#include file= "ljsjk.asp "--> 为
<%
Dim dbcn
Set dbcn=Server.CreateObject( "Adodb.Connection ")
dbcn.ConnectionString= "dbq= "&Server.MapPath( "DATA\SPXXGLXT.mdb ")& ";Driver={Microsoft Access Driver (*.mdb)} "
dbcn.ConnectionTimeOut=40
dbcn.open
%>
运行后出现如下错误
错误类型：
Microsoft VBScript 运行时错误 (0x800A01B6)
对象不支持此属性或方法: 'ActiveConnetion '
/yhgl.asp, 第 12 行
请问我该怎么解决啊！谢谢了！
------解决方案--------------------
dbcmd.ActiveConnetion=dbcn
上面的错少了个c
dbcmd.ActiveConnection=dbcn
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
