当前位置：文章中心 - ASP编程 - 适合所有表的添加、删除、修改的函数
相关文章
这里放搜索
最新文章
适合所有表的添加、删除、修改的函数
关键词：添加,删除,修改,函数 时间:2008年09月15日 星期一 阅读:125

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

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

  1. <%  
  2. ' 向table1表中添加一条记录  
  3.  call add_del_update("table1","insert","")  
  4. ' 修改table1表中的id=5(id放在上一页action中,也可以是隐藏表单)的记录    
  5.   id=request("id")  
  6.   call add_del_update("table1","update",id)  
  7. ' 删除table1表中的一些记录,id是上一页action中，也可以是某一表单  
  8.   id=request("id")  
  9.   call add_del_update("table1","delete",id)  
  10. %> 
上一篇：fso实现整个文件夹内容的复制到另一个文件夹中下一篇：用ASP取出HTML里面的图片地址的函数

0条记录访客评论

暂未有任何评论,你来发表一篇吧！

发表评论

(必填)
(必填)
不想保留信息请删除cookie！
 
友情链接