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

ASP
深入研究Application和Session对象(2)
深入研究Application和Session对象(3)
开始 .Net的旅程(一)
开始 .Net的旅程(二)
手把手教你使用VB来创建ASP组件(1)
手把手教你使用VB来创建ASP组件(2)
手把手教你使用VB来创建ASP组件(3)
手把手教你使用VB来创建ASP组件(4)
手把手教你使用VB来创建ASP组件(5)
手把手教你使用VB来创建ASP组件(6)
手把手教你使用VB来创建ASP组件(7)
手把手教你使用Java来编写ASP组件(1)
手把手教你使用Java来编写ASP组件(2)
手把手教你使用Java来编写ASP组件(3)
手把手教你使用Java来编写ASP组件(4)
手把手教你使用Java来编写ASP组件(5)
手把手教你使用Java来编写ASP组件(6)
ASP 3.0高级编程(二十四)
ASP 3.0高级编程(二十五)
ASP 3.0高级编程(二十六)

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 143 ::
收藏到网摘: 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"