由于數據庫中的每張表中的字段名不一樣，所以在寫后臺程序的時候，通常會寫多個頁面，對應不同的表。這里介紹一個函數，適合所有的表，不需要再為每一個表寫添加，刪除，修改頁面了，這樣會省下許多時間去做別的事。

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