可以参考下面:
<% if request("action")<>"submit" then %>
信息确认 姓名:<%=request("name")%>
学号:<%=request("id")%>
班级:<%=request("class")%>
喜欢自习地点:<%=request("item")%>
休闲方式:<%=request("hobby")%>
建议:<%=request("memo")%>
<% else
set conn=Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("record.mdb")
set rs= server.createobject("adodb.recordset")
rs.open "select * from record",conn,1,3
rs.addnew
rs("name")=request("name2")
rs("id")=request("id2")
rs("class")=request("class2")
rs("item")=request("item2")
rs("hobby")=request("hobby2")
rs("memo")=request("memo2")
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write("提交成功")
end if
%>