ASP对Access数据库的连接、增删改查及ASP的基本语法

最新推荐文章于 2021-04-28 00:20:11 发布

form88

最新推荐文章于 2021-04-28 00:20:11 发布

阅读量5k

点赞数 2

分类专栏： asp 文章标签： asp

JINGYI

本文链接：https://blog.csdn.net/form88/article/details/66476242

版权

asp 专栏收录该内容

11 篇文章 2 订阅

订阅专栏

    <html>  
    <head>  
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />  
    <title>数据库的连接、增删改查</title>  
    </head>  
    <body>  
    <%  
    db="Database.mdb"  
    Set conn = Server.CreateObject("ADODB.Connection")  
    conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=admin;dbq=" & Server.MapPath(db)   
    response.write "数据库连接成功！"  
    Set rs = Server.CreateObject( "ADODB.Recordset" )  
    sql = "select * from test;"  
    rs.open sql,conn,1,3  
    %>  
    <br/>  
    表test的内容:  
    <table border="1">  
      <tr>  
        <td>id</td>  
        <td>username</td>  
        <td>password</td>  
      </tr>  
      <%  
    if (rs.bof and rs.eof) then  
    response.write "nodata!"  
    else  
    do while not rs.eof  
    %>  
      <tr>  
        <td><%=rs("id")%></td>  
        <td><%=rs("username")%></td>  
        <td><%=rs("password")%></td>  
      </tr>  
      <%  
    rs.movenext  
    loop  
    end if  
    %>  
    </table>  
    <%  
    'conn.execute "update test set username='2' where username='a';"  
    conn.execute "insert into test(username,password) values ('3','a');"  
    %>  
    ---------插入数据之后--------<br/>  
    表test的内容:<br/>  
    <%  
    Set rs = Server.CreateObject( "ADODB.Recordset" )  
    sql = "select * from test;"  
    rs.open sql,conn,1,3  
    %>  
    <table border="1">  
      <tr>  
        <td>id</td>  
        <td>username</td>  
        <td>password</td>  
      </tr>  
      <%  
    if (rs.bof and rs.eof) then  
    response.write "nodata!"  
    else  
    do while not rs.eof  
    %>  
      <tr>  
        <td><%=rs("id")%></td>  
        <td><%=rs("username")%></td>  
        <td><%=rs("password")%></td>  
      </tr>  
      <%  
    rs.movenext  
    loop  
    end if  
    %>  
    </table>  
    <%  
    rs.close  
    set rs=nothing  
    conn.close  
    set conn=nothing  
    %>  
    </body>  
    </html>

这段代码是用记事本敲出来的，没有用任何开发工具，所有缺乏缩进等基本代码格式见谅，ASP实在缺乏代码开发工具。

ASPEDIT都是一些1997年就出版的东西了。

1、<head>部分

[html] view plain copy
print?

    <head>  
    <!--必须声明使用utf-8编码，否则在IE8中页面显示会乱码-->  
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />  
    <title>数据库的连接、增删改查</title>  
    </head>  

以下就是<body>部分了

2、连接数据库部分

[html] view plain copy
print?

    <%  
    'asp同使用'去注释，不允许使用;来结束语句，每一个enter键就是代表一条语句结束  
    'Access数据库文件是database.mdb  
    db="Database.mdb"  
    Set conn = Server.CreateObject("ADODB.Connection")  
    '指定动作，pwd后的值代表此数据库的密码  
    conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=admin;dbq=" & Server.MapPath(db)  
    '在网页上输出东西，可以用response对象   
    response.write "数据库连接成功！"  
    %>  

3、查询部分

[html] view plain copy
print?

    <%  
    '指定动作  
    Set rs = Server.CreateObject( "ADODB.Recordset" )  
    '查询语句  
    sql = "select * from test;"  
    '使用sql对conn进行查询，后面的参数代表我要完全操作这个数据库  
    rs.open sql,conn,1,3  
    %>  
    <!--此乃表头，asp代码可以与html代码混合，table默认是没有边框的，所以要设置一个border参数-->  
    <br/>  
    表test的内容:  
    <table border="1">  
      <tr>  
        <td>id</td>  
        <td>username</td>  
        <td>password</td>  
      </tr>  
    <%  
    '如果没有查到任何东西这样写，ASP没有括号，条件体必须用end if结束，then相当于左括号，end if相当于右括号  
    if (rs.bof and rs.eof) then  
    response.write "nodata!"  
    else  
    '否则就循环，直到读完这条游标，循环条件是not rs.eof，ASP没有括号，do while循环体必须用loop结束，do while后自带左括号，loop相当于右括号  
    '下面的html循环一次就向网页写入一次  
    do while not rs.eof  
    %>  
      <tr>  
        <td><%=rs("id")%></td>  
        <td><%=rs("username")%></td>  
        <td><%=rs("password")%></td>  
      </tr>  
      <%  
      '读完一项，游标向下拉  
    rs.movenext  
    loop  
    end if  
    %>  
    </table>  

4、增加、删除、修改操作部分

这里没有写出删除操作，修改操作则被注释掉了，但他们的用法与增加操作完全一样，

[html] view plain copy
print?

    <%  
    '与查询操作不同的是，插入操作很简短。  
    '修改操作可以用下面的语句，把test表的username字段（列）中为a的项都改为2  
    'conn.execute "update test set username='2' where username='a';"  
    conn.execute "insert into test(username,password) values ('3','a');"  
    %>  

插入之后再次查询的道理与上面的未插入之前是一样道理的，就不再进行说明了。

form88

关注

2
点赞
踩
6

收藏

觉得还不错? 一键收藏
0
评论
ASP对Access数据库的连接、增删改查及ASP的基本语法

<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>数据库的连接、增删改查</title> </head> <body> <% db="Database.mdb" Set co
复制链接

扫一扫