当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp不用DSN访问数据库

ASP
ASP基础讲座（下）
解决IIS5 HTTP500内部错误
ASP 3.0高级编程（四十六）
ASP 3.0高级编程（四十五）
ASP 3.0高级编程（四十四）
ASP 3.0高级编程（四十三）
ASP 3.0高级编程（四十二）
ASP 3.0高级编程（四十一）
ASP 3.0高级编程（三十九）
ASP 3.0高级编程（三十八）
ASP 3.0高级编程（三十七）
ASP 3.0高级编程（三十六）
ASP 3.0高级编程（三十五）
ASP 3.0高级编程（三十四）
ASP 3.0高级编程（三十三）
ASP 3.0高级编程（三十二）
ASP 3.0高级编程（三十一）
ASP错误代码说明
jscript错误代码及相应解释大全
ASP错误处理

No. « 12 13 14 15 »

技术文章搜索

关键字

ASP 中的 asp不用DSN访问数据库

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 82 ::
收藏到网摘: n/a

一个DSN连接需要服务器的系统管理员在服务器上用控制面板中的ODBC工具设置一个DSN,或者使用一个第三方的服务器组件,让你的ASP脚本在需要时通过修改注册表建立DSN.

　　一个DSN连接通常需要的参数有:DSN名,用户名,口令,例如我们用用户名"student",口令"magic",通过DSN"student"建立连接:
　　1. set conntemp=server.createobject("adodb.connection")
　　2. conntemp.open "DSN=Student; uid=student; pwd=magic"

　　3. set rstemp=conntemp.execute("select * from authors")

　　如果我们没有DSN,该怎么做呢?

　　但是我们知道文件名(比如,Access,Paradox,FoxPro的数据库)或者数据源名(例如,SQLserver的数据库).这里有一个方法,我们不要DSN就可以访问数据库.注意,你必须知道实际的文件路径!比如: "C:\thatserver\account17\nwind.mdb".

　　幸好,方法 server.mappath 可以返回服务器上的地址.
　　
　　1. set conntemp=server.createobject("adodb.connection")

　　2. cnpath="DBQ=" & server.mappath("yourtable.mdb")

　　3. conntemp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath

　　4. set rstemp=conntemp.execute("select * from authors")

　　<HTML><HEAD>

　　<TITLE>nwind.asp</TITLE>

　　<body bgcolor="#FFFFFF"></HEAD>
　　<%

　　set conntemp=server.createobject("adodb.connection")
　　' 不用DSN建立连接

　　DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

　　DSNtemp=dsntemp & "DBQ=" & server.mappath("nwind.mdb")

　　conntemp.Open DSNtemp

　　' 不用DSN建立连接
　　set rstemp=conntemp.execute("select * from customers where country='germany'")

　　howmanyfields=rstemp.fields.count -1

　　%>
　　<table border=1>

　　<tr>
　　<% 'Put Headings On The Table of Field Names

　　for i=0 to howmanyfields %>
　　<td><b><%=rstemp(i).name %></B></TD>
　　<% next %>
　　</tr>
　　<% ' Now lets grab all the records

　　do while not rstemp.eof %>
　　<tr>
　　<% for i = 0 to howmanyfields%>
　　<td valign=top><%=rstemp(i)%></td>
　　<% next %>
　　</tr>
　　<% rstemp.movenext

　　loop

　　rstemp.close

　　set rstemp=nothing

　　conntemp.close

　　set conntemp=nothing　%>
　　</table>

　　</BODY>

　　</HTML>



　　下面是典型的DRIVER参数值:
　　{Microsoft Access Driver (*.mdb)}
　　driver=SQL Server; server=127.0.0.1
　　^ SQLServer的IP地址

　　不通过数据源访问SQL和ACCESS
　　Using SQL Server 6.5:
　　set Conn = Server.CreateObject("ADODB.Connection")
　　Conn.Open "driver=SQL Server; server=server_name; uid=your_UID; pwd=your_PW; database=your_database;"

　　Using Access:
　　set Conn = Server.CreateObject("ADODB.Connection")
　　Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\www\db\guestbook.mdb"