vb语言,asp+access数据库怎么连接,请高手指点,先谢了~

来源:百度知道 编辑:UC知道 时间:2024/09/21 18:33:27
代码如下:数据源为mydb,数据库为stu
<--% set conn=server.CreateObject("adodb.connection") dbpath=server.mappath("stu/db1.mdb") conn.open"driver={Driver do Microsoft Access(*.mdb)};dbq=" & dbpath set rs=server.CreateObject("adodb.recordset") sql="select * from db1" rs.Open sql,conn Do while NOT rs.EOF %-->
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC 驱动程序 管理器] 未发现数据源名称并且未指定默认驱动程序
上面的<--
-->是我调试时加上 的 ,还有 loop也有 在下面
源代码:
html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>indext.html</title>
</head>

<body>
<table border=1 align=center bgcolor =#66FF99>
<tr>
<td

<% @ language=vbscript %>
<%
'这个文件是用来练习连接数据库的,
'最终目的是要练习对数据库中的对象进行增、改、删、查的操作,
'以及应用数据库中存储的地址或字段把网页动态的显示出来。

option explicit
Response.Expires=0
Const intpagesize=10 '定义每页显示记录数目的常量

Dim intcurpage,objcon,objrs,strq,intI,inttalpage,m,i,num
' intcurpage 为当前显示页的变量
' objcon 为数据库连接对象 ( Connection )
' objrs 为数据库 Recordset 对象
' strq 为存储查询语句的变量
' intI 在 For 循环中应用的循环变量
' inttalpage 为显示总页数的变量

'此处为判断按下翻页按钮的事件,向前或向后
if Request.ServerVariables("CONTENT_LENGTH")=0 then
intcurpage=1 '初始化当前显示页为第一页
else
intcurpage=int(Request.Form("curpage")) '这个地方应该进行数值转换 int
select case Request.Form("submit")
case "上一页" '按下按钮为"上一页"时,页码数减 1
intcurpage=intcurpage-1
case "下一页" '按下按钮为"下一页"时,页码数加 1
intcurpage=intcurpag