<%
dim strsql,rs
set conn=createobject("ADODB.connection")
conn.open ("DSN=information;UID=;PWD=;")
set rs=createobject("ADODB.Recordset")
sql="select * from infor"
rs.open sql,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("addr").value=request.form("add")
rs("tel").value=request.form("tel")
rs("career").value=request.form("career")
rs.Update()
Response.Write ("你已经成功注册")
rs.close()
conn.close()
set rs=nothing
set conn=nothing
%>