记笔记。
离开学校,东西都还给老师了,哎。
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
End Select