asp+access实现增删改查

admin

最近了解了下asp，踩了不少坑，就想着记录下，方便以后查看。谁说编程语言大部分一样的，其实还是有区别的。作为小白的我就遇到很多语法问题，多亏了有两位大佬知道。

后台开发技术使用asp，数据库采用access，实现增删改查

1.添加

先写一个添加页面，如下图

添加页面的代码如图：

使用asp需要给input框起一个name值，如框内所示，后面后讲到。

接下来，获取用户输入的值，添加到数据库。

第一步：与数据库建立连接。

1. <%
2. Set conn = Server.CreateObject("ADODB.Connection")
3. conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("/Data21293/NYIKUGY5434231.mdb")
4. '实际存放数据库文件路径
5. %>

复制代码

1. 第二步：获取input值,执行sql语句。至此添加就已经完成了。

复制代码

1. <%
2. username=trim(request.form("username1"))
3. password=trim(request.form("password1"))
4. render=trim(request.form("render1"))
5. Set Rs = Server.CreateObject("ADODB.Recordset")
6. exec="insert into web_users(username,password,render) values('"+username+"','"+password+"','"+render+"')"
7. conn.execute(exec)
8. conn.close
9. set conn=nothing
10. </script>"
11. %>

复制代码

1. 需要注意的是：sql语句中，参数'"+username+"',要用单引号以辨别是字符串类型。

复制代码

2.查询

效果图如下：

首先：与数据库建立连接，添加的时候写过了，就不再写了。主要讲如何查询展示：

1. <%
2. set rs=server.createobject("adodb.recordset")
3. sql="select * from web_users"
4. %>
5. <%
6. for i=0 to rs.pagesize-1
7. if rs.bof or rs.eof then exit for
8. %>
9. <tr>
10. <td>
11. <p style="text-align: center;">
12. <%=rs("id")%>
13. </p>
14. </td>
15. </tr>
16. <%
17. rs.movenext()
18. next
19. %>
20. <%
21. conn.close()
22. %>

复制代码

查询循环展示以后，记得关闭数据库连接。至此查询展示完成

3.删除

删除比较简单，只要获取该数据的id就可以了。

1. <a style="color: #c06b6b;"
2. href="javascript:if(confirm('确定删除吗')){
3. location.href='/del_emp.asp?id=<%=rs("id")%>';}
4. else{}">删除
5. </a>

复制代码

这样将该行id当参数带入进来，获得该id，执行sql语句就可以了。

1. <%
2. id=request.QueryString("id")
3. set rs1 = server.CreateObject("adodb.recordset")
4. rs1.open "delete from web_users where id="&id&"",conn,1,1
5. response.Write "<script language='javascript'>location.href='/emp.asp';</script>"
6. %>

复制代码

4.修改

    修改比较复杂，首先需要获取对应id，通过该id在数据库里查询出数据，放在类似于添加的一个表单里。然后获取到input框的值，再执行update更新。

1. <%
2. id=request.QueryString("id")
3. set rs1 = server.CreateObject("adodb.recordset")
4. rs1.open "select * from web_users where id="&id&"",conn,1,1
5. %>

复制代码

通过以上代码获取到该id数据，再放在input里。

上面步骤是获得要修改的行对应的数据，现在开始修改，然后点击修改。执行我们的修改action，类似于我们的添加，获取表单数据，执行的sql语句换为修改即可：

1. <%
2. id=request.QueryString("id")
3. username=request.form("username")
4. password=request.form("password")
5. render=request.form("render")
6. set rs = server.CreateObject("adodb.recordset") '打开数据库表
7. sql="update web_users set username='"&username&"',password='"&password&"',render='"&render&"' where id="&id&""
8. rs.open sql,conn,1,3
9. response.Write "<script language='javascript'>location.href='/emp.asp'</script>"
10. %>

复制代码

至此：简单的增删改查就完成了！

有什么问题都可以留言哦，乐意为你解决问题。后续更新搜索功能和分页！

来源：https://blog.csdn.net/qq_37758497/article/details/82998517
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！