关于计算机发展的论文:帮忙看看这段 源代码

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/09 19:32:41
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>

<%
dim conn,rs,sql,strConn
set conn=server.CreateObject("Adodb.Connection")
'建立数据连接
strConn="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("ASP.mdb")
conn.open strConn

'建立记录集
rs=server.CreateObject("Adodb.Recordset")
Sql="Select dID from Date"
rs.open sql,conn,1,1 '最后两个数字表示只读,不锁定。

'记录已经建立,可以开始使用
if rs.eof or rs.bof then
'表中无记录
'添加你的处理代码
else
'有记录
do while not rs.eof
'输出所有记录
response.write("ID=" &rs("dID") &"<br>")
rs.movenext
loop
end if

浏览的时候出错

错误类型:
Microsoft VBScript 运行时错误 (0x800A01B6)
对象不支持此属性或方法: 'open'
/ASP/1.asp, 第 21 行

是怎么回事? 怎么修改呀? 谢谢了

set me=server.CreateObject("比尔盖茨")
me.给我帐户添加一万块钱(“哈哈”)

数据库连错了