if request.QueryString("action")="add" then Set Rs =Server.CreateObject("Adodb.Recordset") Conn.connectionstring="Provider=Microsoft.Jet.oledb.4.0;Data source="&Server.MapPath(Dpath) Conn.open Dim sql
sql ="select * from test " rs.open sql,conn,1,3 rs.addnew rs("uid")=request("uid") rs("pwd")=request("pwd") rs.update response.Write("数据保存成功") end if