asp学习入门基本语法知识（2）

 二.ASP数据库简单操作教程

<1>.Access数据库连接(用来单独编制连接文件conn.asp) 
 

<％ 
  Set conn = Server.CreateObject("ADODB.Connection") 
  conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\bbs\db1\user.mdb")  
％>

(用来连接bbs\db1\目录下的user.mdb数据库)

<2>显示数据库记录

  原理：将数据库中的记录一一显示到客户端浏览器，依次读出数据库中的每一条记录
        如果是从头到尾：用循环并判断指针是否到末      使用: not rs.eof
        如果是从尾到头：用循环并判断指针是否到开始    使用：not rs.bof 
         
        

<!--#include file=conn.asp-->    (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库) 
        <％ 
         set rs=server.CreateObject("adodb.recordset")  (建立recordset对象) 
         sqlstr="select * from message"  ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表) 
         rs.open sqlstr,conn,1,3         ---->(表示打开数据库的方式) 
         rs.movefirst                    ---->(将指针移到第一条记录) 
         while not rs.eof                ---->(判断指针是否到末尾) 
         response.write(rs("name"))      ---->(显示数据表message中的name字段) 
         rs.movenext                     ---->(将指针移动到下一条记录) 
         wend                            ---->(循环结束) 
------------------------------------------------------          
         rs.close 
         conn.close                    这几句是用来关闭数据库 
         set rs=nothing 
         set conn=nothing 
------------------------------------------------------- 
        ％> 

其中response对象是服务器向客户端浏览器发送的信息

<3>增加数据库记录

增加数据库记录用到rs.addnew,rs.update两个函数

 <!--#include file=conn.asp-->    (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库) 
        <％ 
         set rs=server.CreateObject("adodb.recordset")  (建立recordset对象) 
         sqlstr="select * from message"  ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表) 
         rs.open sqlstr,conn,1,3         ---->(表示打开数据库的方式) 
         rs.addnew                      新增加一条记录 
         rs("name")="xx"                将xx的值传给name字段 
         rs.update                      刷新数据库             
         rs.close 
         conn.close                    这几句是用来关闭数据库 
         set rs=nothing 
         set conn=nothing            
        ％> 

<4>删除一条记录

删除数据库记录主要用到rs.delete,rs.update 

<!--#include file=conn.asp-->    (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库) 
        <％ 
         dim name 
         name="xx" 
         set rs=server.CreateObject("adodb.recordset")  (建立recordset对象) 
         sqlstr="select * from message"  ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表) 
         rs.open sqlstr,conn,1,3         ---->(表示打开数据库的方式)      
         while not rs.eof 
          if rs.("name")=name then 
           rs.delete 
           rs.update             查询数据表中的name字段的值是否等于变量name的值"xx"，如果符合就执行删除， 
          else                   否则继续查询,直到指针到末尾为止 
           rs.movenext 
          emd if 
         wend           
         rs.close 
         conn.close                    这几句是用来关闭数据库 
         set rs=nothing 
         set conn=nothing    
        ％>