asp实现向数据库中任何表中添加、删除、修改内容的代码

来源:转载

asp实现向数据库中任何表中添加、删除、修改内容

<%
'===========================================
' 函数功能:实现向数据库中任何表中添加、删除、修改内容
' 作 者:wangsdong
' 网 站: http://www.wangyeba.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
%>

分享给朋友:
您可能感兴趣的文章:
随机阅读: