打印本文 打印本文  关闭窗口 关闭窗口
ASP基础讲座(下)
作者:采集员 文章来源:来源于网络 点击数: 更新时间:2005/9/10 12:44:48
ASP基础讲座(下)

        当我们需要同浏览器交互的时候,有时少不了数据库。因为只有用数据库才可能大量、快速地处理信息。使用ASP不仅意味着你可以读取Access和SQL Server的数据库,同时也意味着你可以读取其它ODBC(Open Database Connect,开放式数据库互联)兼容的数据库。为了在ASP中访问数据库,我们将接触一个新名词??ADO(Active Data Object,活动数据对象)。
  ADO是一种操作Microsoft所支持的数据库的方法,有些类似于以前在VB中听说过的DAO(Data Access Object,数据访问对象)和RDO(Remote Data Object,远程数据对象)。在ASP中,ADO可以看作是一个服务器组件(Server Component),更简单点说,是一系列的对象,应用这些功能强大的对象,即可轻松完成对数据库复杂的操作。在这里我们所要学的是使用这些对象的方法,具体的操作步骤可以归纳为以下几步:
  (一)创建数据库源名(DSN)
  (二)创建数据库链接(Connection)
  (三)创建数据对象
  (四)操作数据库
  (五)关闭数据对象和链接
  下面具体叙述每一步的作法:
  一、创建数据源名
  用ODBC时,经常见到DSN这个名词,它究竟是什么,有什么重要作用呢?DSN(Date Source Name)即数据源名称。我们知道,ODBC是一种访问数据库的方法,只要系统中有相应的ODBC驱动程序,任何程序就可以通过ODBC操纵驱动程序的数据库。比如我们系统中有Access的ODBC驱动程序,那么即使我们没有Access软件,也可以在我们的程序(如VB编的)中间对一个Access的MDB数据库加、删、改记录。而且我们根本不用知道这个数据库是放在哪里的。我们只要写出SQL语句,ODBC驱动程序就会帮我们做一切事情。我们在给ODBC驱动程序传SQL指令时,即是用DSN来告诉它到底操作的是哪一个数据库。如果数据库的平台变了,比如我们改用了SQL Server的数据库,只要其中表的结构没变,我们就不用改写我们的程序,只要重新在系统中配置DSN就行了。由此可见,DSN是应用程序和数据库之间的桥梁,要通过ODBC访问数据库,前提就是我们必须配置好DSN(即架好桥梁)。一个DSN必须包含一些信息:
  DSN的名字:就是给这座桥取个名字,当程序访问数据库时,给系统传的就是这个名字,而不是数据库的实际名称。
  ODBC驱动程序类型:只有指出驱动程序类型,在我们操作数据库时,系统才会知道调哪个ODBC驱动程序来服务。
  数据库:你必须指定这座桥到底连接的是哪个数据库,但不同的数据库系统,指定数据库名字的方法有些不同。
  这座桥是架在系统之中的,所以WIN95(NT)提供了一个工具来完成这件事,即是控制面板中的32 BIT ODBC,共有三类,即用户DSN、系统DSN、文件DSN。我们一般就用系统DSN,因为这样可以让所有在该系统上操作的人都能使用这个DSN。
  打开Windows的“控制面板”,找到图标“32位ODBC)”(有一些系统上叫“ODBC”、“32bit ODBC”),双击,出现(如图一)对话框,选中标签“系统DSN”,点击“新建”,选驱动程序为Microsoft Access MDB,单击“完成”,弹出对话框(如图二),输出“Data Source Name”为“dsn1”,单击“OK”,再单击“选择数据库”,选中你要使用的数据库,例如“C:1.mdb”,这样就OK了。以后我们就用“dsn1”来访问数据库“c:1.mdb”,而不直接用文件名“C:1.mdb”,这样做的好处是,一旦我们改变了文件名或存放地,就不用再一个一个地修改程序中所有该数据库的名称,而只需修改DSN中的配置就可以了。
  二、创数据库链接(Connection)
  用过VB的人都知道,DAO中有链接(Connection),RDO中有odo Connection。链接用以保持一些关于正在访问的数据的一些状态信息,以及链接者信息。ASP文件中如果要访问数据,必须首先创建与数据库的链接,其语法如下:
  set Mconn=Server createObject(“ADOBD?CONNECTION”)
  这条语句创建了链接对象mConn,接下来:
  mConn.Open “dsn1”,“vsername”,“password”
  这条语句打开链接,用到了DSN,本例为“dsn1”。其后的两个参数分别是访问数据库的用户名和口令,为可选参数。
  注意:必须有以上两个小步骤,因为链接对象的创建与打开是两回事,只有打开了才真正可以用。
  三、创建数据对象(Record Set)
  ADO中的数据对象通常保存的是查询结果。Record Set是ADO中最复杂的对象,有许多属性和方法,灵活运用,可以达到许多好的效果。与DAO中的一样,Record Set保存的是一行行的记录,并标有一个当前记录。以下是创建方法:
  Set Record Set=mConn.Execute(sqtStr)
  这条语句创建并打开了对象Record Set,其中mCon是先前创建的链接对象,sqtStr是一个串,代表一条标准的SQL语句,例如:
  sqlStr=“SELECT * FROM tab1”
  Set Record Set=mConn.Exe cute(sqlStr)
  这条语句执行后,对象Record Set中就保存了表tab1中的所有记录。在ASP文件中如何引用返回结果,本文将在文末给出一个实例说明。
  四、操作数据库
  刚才我们通过调用链接对象的Execute方法来将查询结果返回给一个数据对象。我们说Execute方法的参数是一个标准的SQL语句串,所以我们可以利用它方便地执行数据插入、修改、删除等操作,例如:
  sqlStr=“INSERT INTO tab1 VALUES(1,2)”
  mConn.Execute(sqlStr)
  /执行插入操作
  sqlStr=“UPDATE tab1 SET field1=3”
  mConn.Execute(sqlStr)
  /执行修改操作
  五、关闭数据对象和链接对象
  在使用了ADO对象之后,一定要记住关闭它,因为它使用了一定的服务器资源。通过调用方法close实现关闭,然后再释放它。
  Record Set.close
  Set Record Set=Nothing
  /关闭创建的数据对象
  mConn.close
  Set mConn=Nothing
  /关闭创建的链接对象
  至此,我们已给出了用ASP访问数据库的全过程,包括创建数据源-创建链接-创建数据对象-操作数据对象-关闭并释放。这其间由于应用面向对象思想,应该说所有操作都比较简单,用户需要注意的仅是对数据结构的了解,亦要清楚当前所操作的对象是什么,有什么属性,等等。只要对这些有了清醒的认识,再加上ASP的强大功能,在网络上应用你自己的数据库,就再也不是什么难事了!
  本文最后给出一个例子,这是基于数据库的ASP留言簿程序,数据库结构如下:
  guestbook.mdb
  表lyb:
  xm char(100), ly char(255) , sj datetime
  文件guestbook.asp:
  <html>
  <head>
  <title>lyb</title>
  </head>
  <body bgcolor=“#ccccf0”>
  <p>留言簿</p>
  <form METHOD=“POST” action=“guestbook.asp”>
  <input type=“hidden” name=“task” value=“insert”>
  <p>姓名:<input TYPE=“text” SIZE=“20” NAME=“xm”></p>
  <p>留言:</p>
  <p><textarea ROWS=“5” COLS=“80” NAME=“ly”></textarea></p>
  <p><input TYPE=“submit” VALUE=“记入留言簿” NAME=“B1”><input TYPE=“reset”
  VALUE=“复原” NAME=“B2”></p>
  </form>
  <%
  Set conn = Server.CreateObject(“ADODB.Connection”)
  conn.Open “lybdsn”,“”,“”
  If Request(“task”)=“insert” then
  xm=Request(“xm”)
  sj = Date()
  sj = sj & “ ” & Hour(Time()) & “:” & Minute(Time())
  If Request(“ly”)=“” then
  Response.write(“留言不能不输吧”)
  Response.end
  else
  ly=Request(“ly”)
  end if
  sql=“INSERT INTO lyb (xm,sj,ly) VALUES ('” & xm & “','” & sj & “','” & ly & “') ”
  conn.execute sql
  End If
  sql = “SELECT * FROM lyb ORDER BY sj DESC”
  Set rs = conn.Execute(sql) %>
  <% On Error Resume Next
  rs.MoveFirst
  do while Not rs.eof %>
  <hr>
  姓名:<%=Server.HTMLEncode(rs.Fields(“xm”).Value)%><br>
  留于:<%=Server.HTMLEncode(rs.Fields(“sj”).Value)%><br>
  留言:<%=Server.HTMLEncode(rs.Fields(“ly”).Value)%>
  <% rs.MoveNext
  loop %>
  </body>
  </html>



打印本文 打印本文  关闭窗口 关闭窗口