注册 登录
编程论坛 ASP技术论坛

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

renzailvtuAB 发布于 2011-11-18 22:08, 1169 次点击
<%
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>
6 回复
#2
icecool2011-11-19 15:45
这不是全部的代码吧?有提示哪一行出错吗?
#3
renzailvtuAB2011-11-19 21:25
回复 楼主 renzailvtuAB
set rst1=conn.Execute("insert into info (i_uid,i_pwd) values('"& request.form("f_user") & "','" & request.form ("f_code") & "')")
就是这句代码,说缺少对象,我是刚学asp这句的代码我是照着打的,在dr软件里面浏览时老是这样的。急死了。求教!
#4
icecool2011-11-19 22:07
<%
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") & "')")
%>
你把这句把成如下看看是什么结果?
<%
response.write request.form("f_user") & "<br>"
response.write request.form ("f_code")
%>
#5
hsbwp13142011-11-20 09:58
你这是看的fif小组的视频教程吧
#6
hsbwp13142011-11-20 12:17
我跟你一样的,请高手帮我们看看,我把原代码传上来了。
只有本站会员才能查看附件,请 登录

只有本站会员才能查看附件,请 登录
只有本站会员才能查看附件,请 登录
#7
icecool2011-11-20 17:53
回复 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>
1