系统dsn怎么改写成使用ado方式连接的asp代码
因为空间提供商的限制只能提供ado方式的数据库链接，不允许设置系统dsn。
有什么方法可以把用系统dsn方式链接数据库开发的网站，改写成用ado方式链接的形式
下面是使用系统dsn的connshop.asp
<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
MM_connshop_STRING = "dsn=connshop;uid=sa;pwd=sa;"
%>
问题点数：50、回复次数：3Top
1 楼Mars_ZHOU（）回复于 2006-06-01 11:54:10 得分 50
MS SQL Server数据库连接
用DSN连接：
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=MyDSN;UID=user;PWD=password;DATABASE=databasename"
%>
不用DSN连接：
<%
Set conn = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=databasename"
conn.open DSNtemp
%>Top
2 楼Mars_ZHOU（）回复于 2006-06-01 11:54:35 得分 0
ASP+ADO:连接各种数据库的代码参考
www.xufei.net [2003-1-3]
--------------------------------------------------------------------------------
各种数据库连接代码
MS Access数据库连接
用DSN连接并且没有用户名和密码：
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"
%>
用DSN连接并且有用户名和密码：
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","password"
%>
用实际的数据库绝对路径连接：
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=e:\yanhang\database.mdb"
conn.Open Strconn
%>
用实际的数据库相对路径连接：
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("/database/yanhang.mdb")
conn.Open Strconn
%>
MS SQL Server数据库连接
用DSN连接：
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=MyDSN;UID=user;PWD=password;DATABASE=databasename"
%>
不用DSN连接：
<%
Set conn = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=databasename"
conn.open DSNtemp
%>
FoxPro数据库连接
<%
Set Conn = Server.CreateObject("ADODB.connection")
ConnStr= "Driver=Microsoft Visual Foxpro Driver; UID=userID;SourceType=DBC;SourceDB=C:\yanhang\database.dbc"
Conn.Open ConnStr
%>
Oracle数据库连接：
<%
set conn=server.createobject("adodb.connection")
conn.cursorlocation=adUseClient
DSNTemp="Provider=MSDAORA.1;Password=xxxxx;User ID=yanhang;Data Source=xxx.world"
conn.open DSNtemp
%>
Top
3 楼lovejiajia（三人行，必有我师）回复于 2006-07-26 12:33:41 得分 0
最后是使用下面的语句解决的：
MM_connshop_STRING = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")Top
