asp添加数据库记录

asp教程添加数据库教程记录
<form name="form1" method="post" action="">
  <label>
  <input name="uid" type="text" id="uid">
  </label>
  用户名
  <p>
    <label>
    <input name="pwd" type="text" id="pwd">
    </label>
  密码
  <input type="hidden" name="action" value="add">
  </p>
  <p>
    <label>
    <input type="submit" name="Submit" value="增加">
    </label>
  </p>
</form>
<%
'   asp添加数据库记录
  Dpath ="www.111cn.net/dbaseMateyDBWeb_^%$#@.mdb"
  Set Conn=Server.CreateObject("Adodb.connection")
 
  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
 
  %>
  <p>本文章原创于www.111cn.net转载注明出处</p>