<%
dim strsql,rs
set conn=createobject("ADODB.connection")
conn.open ("DSN=information;UID=;PWD=;")
set rs=createobject("ADODB.Recordset")
rs.open "infor",conn,3,3
rs.Addnew() //添加一条新的记录
rs("name").value=request.form("name")
rs("sex").value=request.form("sex")
rs("birth").value=request.form("birthday")
rs("zzmm").value=request.form("zz")
rs("teach").value=request.form("teach")
rs("xl").value=request.form("xl")
rs("class").value=request.form("class")
rs("school").value=request.form("school")
rs("add").value=request.form("add")
rs("tel").value=request.form("tel")
rs("hy").value=request.form("mar")
rs("jg").value=request.form("addr")
rs("career").value=request.form("career")
rs("date").value=request.form("time")
rs("school").value=request.form("school")
rs.Update()
Response.Write ("你已经成功注册")
rs.close()
conn.close()
set rs=nothing
set conn=nothing
%>
谢谢了!