急！acess数据库连接问题

[yumodev]

我用Dreamweaver8 定义了一个数据源，现在要用要自定义连接字符串，
原自动生成的连接文件为：名称为dongtai.asp

<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_dongtai_STRING
MM_dongtai_STRING = "dsn=dongtai"
%>
我的数据库为my.mdb
现在我要重写一个数据库文件，但总是出错，希望高手指

[Yes1000]

<%
	db="/data/data.mdb"
	Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(db)
	set conn=server.createobject("ADODB.CONNECTION")


%>

这样就可以改文件名了，改了改下这里就可以了

[Yes1000]

用DNS方式改了文件名要重新注册DNS

[yumodev]

您这样修改后，那用Dreamweaver8成成的代码都得改
Dim MM_dongtai_STRING
MM_dongtai_STRING = "dsn=dongtai"
能不能将上面两句修改一下，源程序不用改变
谢谢！

[Yes1000]

没有使用过DW的自动生成代码功能 - -!!

[yumodev]

我的源程序为：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/dongtai.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_dongtai_STRING
Recordset1.Source = "SELECT id, biaoti, riqi FROM dongtai ORDER BY id DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

[yumodev]

up

[Yes1000]

貌似你这种方式，只能在控制面板中设置数据源，如果换到其他机器上运行的话，还是得设置数据源的。

这种方式开发的网站只适合本地运行，如果要发布到其他地方会很麻烦。


建议你改成我上面那种方式吧

[Hobart]

不建议用dw生成的代码

[Mapleleaf123]

Dim ConnStr,Conn
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("你的数据库路径")
Set Conn=server.CreateObject("ADODB.CONNECTION")
Conn.open ConnStr

[virgo2008]

这个你只要在DNS数据源里面去设置你的连接名为MM_dongtai_STRING就可以用了！

[virgo2008]

为MM_dongtai_STRING = "dsn=为MM_dongtai_STRING;uid=***;pwd=****;"

[virgo2008]

rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_dongtai_STRING
rs.Source = "sql语句"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()

上面的调用后你就可以用rs.Fields.Item("字段名").Value取值了 反正你是用DW的，我就给你弄的全是DW里面生成的，你看的习惯