asp vb 插入,更新,删除数据库操作。

记笔记。

离开学校，东西都还给老师了，哎。

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