asp+access实现增删改查

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

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

1.添加

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

添加页面的代码如图：

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

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

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

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

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

<%
username=trim(request.form("username1"))
password=trim(request.form("password1"))
render=trim(request.form("render1"))
Set Rs = Server.CreateObject("ADODB.Recordset")
exec="insert into web_users(username,password,render) values('"+username+"','"+password+"','"+render+"')"
conn.execute(exec)
conn.close
set conn=nothing
</script>"
%>

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

2.查询

效果图如下：

扫描二维码关注公众号，回复： 5374829 查看本文章

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

<%
    set rs=server.createobject("adodb.recordset")
    sql="select * from web_users"
%>
<%
    for i=0 to rs.pagesize-1
    if rs.bof or rs.eof then exit for
%>
<tr>
    <td>
      <p style="text-align: center;">
        <%=rs("id")%>
      </p>
    </td>
</tr>
   <%
     rs.movenext()
     next
   %>
   <%
     conn.close()
   %>

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

3.删除

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

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

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

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

4.修改

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

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

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

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

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

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

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