<%
   
   
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & DefaultDir &server.mappath("1.mdb")&";"
     set rs=server.createobject("ADODB.recordset")

     Rs.Open "学生",conn,3,3
     Rs.AddNew
     Rs.("学号").value="200702"
     Rs.("姓名").value="李四"
     Rs.("年龄").value="19"
     Rs.UpDate
     rs.close
   
    set conn=nothing
%>
看了快一个网上就是看不出来 第一天接触asp多见谅

<%
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & DefaultDir &server.mappath("1.mdb")&";"
     set rs=server.createobject("ADODB.recordset")
     Rs.Open "select * from 学生",conn,1,3
     Rs.AddNew
     Rs.("学号")=200702
     Rs.("姓名")="李四"
     Rs.("年龄")=19
     Rs.UpDate
     rs.close
     set rs=nothing
     conn.close
     set conn=nothing

<%
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & DefaultDir &server.mappath("1.mdb")&";"
     set rs=server.createobject("ADODB.recordset")
     Rs.Open "select * from 学生",conn,1,3
     Rs.AddNew
     Rs("学号")=200702
     Rs("姓名")="李四"
     Rs("年龄")=19
     Rs.UpDate
     rs.close
     set rs=nothing
     conn.close
     set conn=nothing
%>

<%
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & DefaultDir &server.mappath("1.mdb")&";"
     set rs=server.createobject("ADODB.recordset")
     Rs.Open "select * from 学生",conn,1,3
     Rs.AddNew
     Rs("学号")=200702
     Rs("姓名")="李四"
     Rs("年龄")=19
     Rs.UpDate
     rs.close
     set rs=nothing
     conn.close
     set conn=nothing
%>

呵呵 谢谢了