asp+access实现增删改查

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/qq_37758497/article/details/82998517

最近了解了下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.查询

效果图如下:

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

<%
    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>"
%>

至此:简单的增删改查就完成了!

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

展开阅读全文

没有更多推荐了,返回首页