有关ODBC转无ODBC数据库的问题，请教各位高手

[flybird66]

我用Dreamweaver UltraDev 4做了一个ASP的网站，但是我是边看书边做的，书上是用ODBＣ做的，我现在想转无ＯＤＢＣ支持的网站，应该怎么转？据说只转conn.asp的内容就行了，不知道怎么怎么弄。

conn.asp内容如下：
<%
// FileName="Connection_odbc_conn_dsn.htm"
// Type="ADO"
// HTTP="false"
// Catalog=""
// Schema=""
var MM_dbuser_STRING = "dsn=dbuser;"
%>


另外网站是用两种写的，分别的javascrit，和vbscript，希望可以给我两种的连接方法及代码，谢谢了

[zephyr_zhao]

改var MM_dbuser_STRING = "dsn=dbuser;"就可以了
1. 你要连什么数据库？不同的数据库连接串是不同的
2。VBS和JS在连数据库的方法上没有区别，当然JS语句结束后加分号就可以了

[逍遥小贼]

strconn = "Driver={SQL Server};Description=sqldemo;SERVER=127.0.0.1;UID=LoginID;PWD=Password;DATABASE=Database_Name"
set conn = server.createobject("adodb.connection")
conn.open strconn

这是连接sql server的例子

[flybird66]

acess呢?我的数据库是ACESS的

[BLACKINEYE]

Set cn =Server.CreateObject("ADODB.Connection")
Set rs= Server.CreateObject("ADODB.Recordset")
dbpath= server.mappath("/asp/aaa.mdb")
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SQL = "select * from bbb"
rs.open SQL,cn

[flybird66]

我把conn.asp改成
<%
Set cn =Server.CreateObject("ADODB.Connection")
Set rs= Server.CreateObject("ADODB.Recordset")
dbpath= server.mappath("gwbn.mdb")
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SQL = "select * from bbb"
rs.open SQL,cn
%>

但是出了错，错误为
Microsoft JScript 编译错误 错误 '800a03ec'

缺少 ';'

/conn.asp，行2

Set cn =Server.CreateObject("ADODB.Connection")
----^

怎么改？？

[gxynctz]

<%
Set cn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.Recordset")
dbpath=server.mappath("gwbn.mdb")
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & dbpath
SQL = "select * from bbb"
rs.open SQL,cn
%>


有时候中文空格会出错，把没有必要的空格去掉，或者把IIS重起试试

[flybird66]

好像还是不行，无法显示网页

[逍遥小贼]

哦？奇怪的问题，关注，
个人认为有可能就是空格在捣鬼，再仔细查查

[BLACKINEYE]

dbpath= server.mappath("gwbn.mdb")
这表示你的库在那里，这样写表示库于该asp页在同一个目录下
SQL = "select * from bbb"
这是sql语句，表示从表bbb中选取所有的字段

这要根据你的实际情况进行改动

[genuis]

你用的脚本语言是不是选择了javascript？
那样就要这样写
<%
cn =Server.CreateObject("ADODB.Connection")
rs= Server.CreateObject("ADODB.Recordset")
dbpath= server.mappath("gwbn.mdb")
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" + DBPath
SQL = "select * from bbb"
rs.open (SQL,cn,1,1)
%>

[onlysgirl]

var MM_dbuser_STRING = "dsn=dbuser;"
改一下就和了