asp acc ess insert update delete 使用

2019-11-02 15:14:49

字体：大中小

来源：转载

供稿：网友

本教程是一篇asp入门篇的初级教程了，主要是讲asp access insert update delete 简单的使用哦，好了下面我们把它们写在一个函数里面然后再举例说明。

Function add_del_update(tablename,str,id)
Select Case str
Case "in

骂人宝典[www.62-6.com/1/marenbaodian/]

sert":
   sql="select * from ["&tablename&"] where id=null"
   rs.open sql,conn,1,3
   rs.addnew
   For Each key In request.Form
     response.write "rs("&CStr(key)&")="&request(key)&"<br>"
      rs(CStr(key))=request(key)
   Next
   rs.update
   rs.close
Case "update":
   sql="select * from ["&tablename&"] where id="&id
   rs.open sql,conn,1,3
   For Each key In request.Form
      if key<>"id" then
        rs(CStr(key))=request(key)
      end if
   Next
   rs.update
   rs.close
Case "delete":
   sql="delete from ["&tablename&"] where id in("&id&")"
   rs.open sql,conn,1,3
Case ""
End Select
End Function
%>

<%
向table1表中添加一条记录
call add_del_update("table1","insert","")
修改table1表中的id=5(id放在上一页action中,也可以是隐藏表单)的记录
id=request("id")
call add_del_update("table1","update",id)
删除table1表中的一些记录,id是上一页action中，也可以是某一表单
id=request("id")
call add_del_update("table1","delete",id)
%>