青龙山新城: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
[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"