青龙山新城:Dreamweaver如何编写代码驱动ACCESS并设置数据源

来源:百度文库 编辑:高考问答 时间:2024/04/20 21:54:16
本人用Dreamweaver编写了一个有数据查询的网页,在本地设置WEB站点和ODBC测试正常,申请了支持ACCESS的免费ASP空间(http://virtualhost.webplus.com.cn/lideji001/),上传后首页出错,错误信息如下:Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序

/lideji001/Default.asp,行 30

由于不能象本地一样在远程计算机上设置ODBC,如何用代码方式来进行远程ACCESS驱动并设置数据源.请给详细操作步骤与代码.
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_shuju_STRING
Recordset1.Source = "SELECT * FROM register"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
下面是第31行:
Recordset1.ActiveConnection = MM_shuju_STRING

33427767 - 魔法师 四级,高手!你有QQ吗?能加我吗?23216731
不过我按你的改过之后新的问题又出现了,提示如下:The URL you requested has been blocked. URL = virtualhost.webplus.com.cn/lideji001/welcome.asp
我做了一个登录验证,如果密码正确则跳转到WELCOME.ASP,2秒后再跳回到首页DEFAULT.ASP,如果失败则跳转到FAIL.ASP,1秒后跳到首页.ACCESS为SHUJU.MDB

<%
dim DB
DB="数据库名" '定义数据库路径及名称
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
%>

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = conn
Recordset1.Source = "SELECT * FROM register"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>

你看看是不是这句的问题
Recordset1.Source = "SELECT * FROM register"