asp適合所有表的添加、刪除、修改的函數

由於數據庫中的每張表中的字段名不一樣，所以在寫後台程序的時候，通常會寫多個頁面，對應不同的表。這裡介紹一個函數，適合所有的表，不需要再為每一個表寫添加，刪除，修改頁面了，這樣會省下許多時間去做別的事。
01 <% 02 '=========================================== 03 ' 函數功能：實現向數據庫中任何表中添加、刪除、修改內容 04 ' 作    者：wangsdong 05 ' 網    站: http://www.ASPbc.com 06 ' 文章為作者原創，轉載請注明文章出處、保留作者信息，謝謝支持！ 07 ' 參數意義：tablename為表名,str的值是insert,delete,update 表示 08 ' 要執行的語句是添加、刪除、修改。id為自動編號類型字段，使用方 09 ' 法見舉例 10 '=========================================== 11   12 Function add_del_update(tablename, Str, id) 13     Select Case Str 14         Case "insert" 15             sql = "select * from ["&tablename&"] where id=null" 16             rs.Open sql, conn, 1, 3 17             rs.addnew 18             For Each Key In request.Form 19                 rs(CStr(Key)) = request(Key) 20             Next 21             rs.update 22             rs.Close 23         Case "update" 24             sql = "select * from ["&tablename&"] where id="&id 25             rs.Open sql, conn, 1, 3 26             For Each Key In request.Form 27                 If Key<>"id" Then 28                     rs(CStr(Key)) = request(Key) 29                 End If 30             Next 31             rs.update 32             rs.Close 33         Case "delete" 34             sql = "delete from ["&tablename&"] where id in("&id&")" 35             rs.Open sql, conn, 1, 3 36         Case "" 37     End Select 38 End Function 39 %>(鼠標移到代碼上去，在代碼的頂部會出現四個圖標，第一個是查看源代碼，第二個是復制代碼，第三個是打印代碼，第四個是幫助)

使用前提條件：表中必須有一個字段名為id的自動增加類型的字段
提交前的表單名必須和數據庫中的字段名一樣,且按紐不可以使用name屬性。
01 <% 02 ' 向table1表中添加一條記錄 03 Call add_del_update("table1", "insert", "") 04 ' 修改table1表中的id=5(id放在上一頁action中,也可以是隱藏表單)的記錄 05 id = request("id") 06 Call add_del_update("table1", "update", id) 07 ' 刪除table1表中的一些記錄,id是上一頁action中，也可以是某一表單 08 id = request("id") 09 Call add_del_update("table1", "delete", id)