适合所有表的添加、删除、修改的函数

由于数据库中的每张表中的字段名不一样，所以在写后台程序的时候，通常会写多个页面，对应不同的表。这里介绍一个函数，适合所有的表，不需要再为每一个表写添加，删除，修改页面了，这样会省下许多时间去做别的事。

<%
'===========================================
' 函数功能：实现向数据库中任何表中添加、删除、修改内容
' 作    者：wangsdong
' 网    站: http://www.aspbc.com
' 文章为作者原创，转载请注明文章出处、保留作者信息，谢谢支持！
' 参数意义：tablename为表名,str的值是insert,delete,update 表示
' 要执行的语句是添加、删除、修改。id为自动编号类型字段，使用方
' 法见举例
'===========================================

Function add_del_update(tablename, Str, id)
    Select Case Str
        Case "insert"
            sql = "select * from ["&tablename&"] where id=null"
            rs.Open sql, conn, 1, 3
            rs.addnew
            For Each Key In request.Form
                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
%>

(鼠标移到代码上去，在代码的顶部会出现四个图标，第一个是查看源代码，第二个是复制代码，第三个是打印代码，第四个是帮助)

使用前提条件：表中必须有一个字段名为id的自动增加类型的字段
提交前的表单名必须和数据库中的字段名一样,且按纽不可以使用name属性。

<%
' 向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)
%>

(鼠标移到代码上去，在代码的顶部会出现四个图标，第一个是查看源代码，第二个是复制代码，第三个是打印代码，第四个是帮助)

应用举例：http://www.aspbc.com/code/showcode.asp?id=84