求教高手。这个网页打不开的原因，运行出错缺少对象Microsoft VBScript 运行时错误 (0x800A01A8) - ASP技术论坛

renzailvtuAB

等　级：新手上路
帖　子：2
专家分：0
注　册：2011-11-18
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：6

求教高手。这个网页打不开的原因，运行出错缺少对象Microsoft VBScript 运行时错误 (0x800A01A8)

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;PWD=;DBQ="&Server.MapPath("fifasp.mdb")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>注册结果</title>
<style type="text/css">
<!-
body {
margin-top: 0px;
margin-bottom: 0px;
background-image: url();
background-repeat: no-repeat;
}
-->
</style></head>
<body>
欢迎光临我的网站

<%
set rst=Server.CreateObject("ADODB.recordset")
set rst1=conn.Execute("insert into info (i_uid,i_pwd) values('"& request.form("f_user") & "','" & request.form ("f_code") & "')")
%>

</body>
</html>

搜索更多相关主题的帖子: 网站　注册　 Microsoft　content　admin　

2011-11-18 22:08

renzailvtuAB

等　级：新手上路
帖　子：2
专家分：0
注　册：2011-11-18

第 3 楼

得分:0

回复楼主 renzailvtuAB

set rst1=conn.Execute("insert into info (i_uid,i_pwd) values('"& request.form("f_user") & "','" & request.form ("f_code") & "')")
就是这句代码，说缺少对象，我是刚学asp这句的代码我是照着打的，在dr软件里面浏览时老是这样的。急死了。求教！

2011-11-19 21:25

hsbwp1314

来　自：湖南长沙
等　级：论坛游民
帖　子：88
专家分：25
注　册：2008-12-1

第 5 楼

得分:0

你这是看的fif小组的视频教程吧

2011-11-20 09:58

icecool

等　级：贵宾
威　望：20
帖　子：1214
专家分：1366
注　册：2005-3-14

第 7 楼

得分:20

回复 5楼 hsbwp1314

你这个数据库里没有建立连接，
你把下面这个加进到db.inc.asp就是了：

<%
dim conn
dim connstr
connstr="DBQ="+server.mappath("fifasp.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>

前面楼主的入到这里面可以运行得了没问题，未出错
result.asp
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;PWD=;DBQ="&Server.MapPath("fifasp.mdb")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>注册结果</title>
<style type="text/css">
<!-
body {
margin-top: 0px;
margin-bottom: 0px;
background-image: url();
background-repeat: no-repeat;
}
-->
</style></head>
<body>
欢迎光临我的网站

<%
set rst=Server.CreateObject("ADODB.recordset")
set rst1=conn.execute("insert into user (u_user,u_code) values ( '"& request.Form("f_user") &"' ,'"& request.Form("f_code") & "')")
%>
</body>
</html>

http://toorup.3v.do
loading...

2011-11-20 17:53