忘高手帮忙看一下ASP的简单问题:ADODB.Recordset (0x800A0BB9) 30
我做好的ASP登录页面浏览出现以下错误提示:ADODB.Recordset(0x800A0BB9)参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。/chatr...
我做好的ASP登录页面浏览出现以下错误提示:
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/chatroom/index.asp, 第 44 行
源代码如下:
<%@ LANGUAGE="VBSCRIPT" 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">
set conn=server.CreateObject("ADODB.Connection")
dbpath=server.MapPath("chatroom.mdb")
conn.open "driver={Microsoft Access Driver(*.mdb)};dbq="&dbpach
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>登录界面</title>
<script language="jscript">
<!--
function Check()
{
var NotNull
NotNull=true
if (document.Login.UID.value=="")
{
window.alert("请输入用户名")
Notnull=false
}
if (document.Login.PWD.value=="")
{
window.alert("请输入密码")
Notnull=false
}
if (document.Login.NickName.value=="")
{
window.alert("请输入昵称")
Notnull=false
}
return NotNull
}
//-->
</script>
</head>
<body>
<% dim mysql,Totalusers
set myuser=server.CreateObject("ADODB.Recordset")
mysql="select * from Useronline"
myuser.Open mysql,conn,1,3
if not myuser.bof then
myuser.movelast
Totalusers=myuser.recordcount
else
totalusers=0
end if
myuser.close
set myuser=nothing
conn.close
set conn=nothing
%>
</body>
</html> 展开
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/chatroom/index.asp, 第 44 行
源代码如下:
<%@ LANGUAGE="VBSCRIPT" 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">
set conn=server.CreateObject("ADODB.Connection")
dbpath=server.MapPath("chatroom.mdb")
conn.open "driver={Microsoft Access Driver(*.mdb)};dbq="&dbpach
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>登录界面</title>
<script language="jscript">
<!--
function Check()
{
var NotNull
NotNull=true
if (document.Login.UID.value=="")
{
window.alert("请输入用户名")
Notnull=false
}
if (document.Login.PWD.value=="")
{
window.alert("请输入密码")
Notnull=false
}
if (document.Login.NickName.value=="")
{
window.alert("请输入昵称")
Notnull=false
}
return NotNull
}
//-->
</script>
</head>
<body>
<% dim mysql,Totalusers
set myuser=server.CreateObject("ADODB.Recordset")
mysql="select * from Useronline"
myuser.Open mysql,conn,1,3
if not myuser.bof then
myuser.movelast
Totalusers=myuser.recordcount
else
totalusers=0
end if
myuser.close
set myuser=nothing
conn.close
set conn=nothing
%>
</body>
</html> 展开
4个回答
展开全部
帮你整理了一下，如果有问题，可以随时hi我
<%@ LANGUAGE="VBSCRIPT" 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>
<script language="jscript">
<!--
function Check()
{
var NotNull
NotNull=true
if (document.Login.UID.value=="")
{
window.alert("请输入用户名")
Notnull=false
}
if (document.Login.PWD.value=="")
{
window.alert("请输入密码")
Notnull=false
}
if (document.Login.NickName.value=="")
{
window.alert("请输入昵称")
Notnull=false
}
return NotNull
}
//-->
</script>
</head>
<body>
<%
dbpath = server.MapPath("chatroom.mdb")
set conn = server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbpach
dim mysql,Totalusers
set myuser = server.CreateObject("ADODB.Recordset")
mysql="select count(*) from Useronline"
myuser.Open mysql,conn,0,1
if not myuser.eof and not myuser.bof then
totalusers=clng(myuser(0))
else
totalusers=0
end if
myuser.close:set myuser=nothing
conn.close:set conn=nothing
%>
</body>
</html>
<%@ LANGUAGE="VBSCRIPT" 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>
<script language="jscript">
<!--
function Check()
{
var NotNull
NotNull=true
if (document.Login.UID.value=="")
{
window.alert("请输入用户名")
Notnull=false
}
if (document.Login.PWD.value=="")
{
window.alert("请输入密码")
Notnull=false
}
if (document.Login.NickName.value=="")
{
window.alert("请输入昵称")
Notnull=false
}
return NotNull
}
//-->
</script>
</head>
<body>
<%
dbpath = server.MapPath("chatroom.mdb")
set conn = server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbpach
dim mysql,Totalusers
set myuser = server.CreateObject("ADODB.Recordset")
mysql="select count(*) from Useronline"
myuser.Open mysql,conn,0,1
if not myuser.eof and not myuser.bof then
totalusers=clng(myuser(0))
else
totalusers=0
end if
myuser.close:set myuser=nothing
conn.close:set conn=nothing
%>
</body>
</html>
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
set conn=server.CreateObject("ADODB.Connection")
dbpath=server.MapPath("chatroom.mdb")
conn.open "driver={Microsoft Access Driver(*.mdb)};dbq="&dbpach
这段有错误：
应该加<% %>
dbpath=server.MapPath("chatroom.mdb")
conn.open "driver={Microsoft Access Driver(*.mdb)};dbq="&dbpach
这段有错误：
应该加<% %>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
数据库有没有链接
<%
set conn=server.CreateObject("ADODB.Connection")
dbpath=server.MapPath("chatroom.mdb")
conn.open "driver={Microsoft Access Driver(*.mdb)};dbq="&dbpach
%>
加上<%%>不加标志怎么能不出错。
所以写代码一定要仔细、仔细、再仔细啊！
<%
set conn=server.CreateObject("ADODB.Connection")
dbpath=server.MapPath("chatroom.mdb")
conn.open "driver={Microsoft Access Driver(*.mdb)};dbq="&dbpach
%>
加上<%%>不加标志怎么能不出错。
所以写代码一定要仔细、仔细、再仔细啊！
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
哪行出错？标出来///
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
