最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp access insert update delete 使用
时间:2009-04-25 编辑:简简单单 来源:一聚教程网
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
' response.write "rs("&CStr(key)&")="&request(key)&"
"
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
%>
<%
' 向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)
%>
相关文章
- asp中DatePart用法简介 08-01
- asp fso教程:DateLastModified 与 DateCreated 11-28
- ASP DateCreated 与ASP Attributes 属性 11-04
- ASP DateLastAccessed 与 DateLastModified 属性 11-04
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16