本教程是一篇asp入门篇的初级教程了,主要是讲asp access insert update delete 简单的使用哦,好了下面我们把它们写在一个函数里面然后再举例说明。 <script>ec(2);</script> 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)&"<br>" 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) %>
|