<!--#include file="inc/conn.asp"-->
<%
uname=request.Form("name")
ukemu=request.Form("kemu")
usex=request.Form("sex")
ucode=request.Form("code")
uschool=request.Form("school")
usb=request.Form("slevel")
uradio=request.Form("radio")
uadd=request.Form("add")
utel=request.Form("tel")
ufname=request.Form("fname")
ufather=request.Form("father")
umobile=request.Form("mobile")
uut=request.Form("unit")
udes=request.Form("des")
email=request.Form("email")
if err.number=0 then
Set Rs=Server.CreateObject("Adodb.recordset")
Rs.Open "Online",conn,1,3
Rs.Addnew
Rs("name")=uname
Rs("Sex")=usex
Rs("code")=ucode
Rs("School")=uschool
Rs("radio")=uradio
Rs("add")=uadd
Rs("tel")=utel
Rs("fname")=ufname
Rs("father")=ufather
Rs("mobile")=umobile
Rs("ut")=uut
Rs("des")=udes
Rs("sb")=usb
Rs("kemu")=ukemu
Rs("email")=email
Rs.Update
Rs.Close
Set Rs=Nothing
'set rst=Conn.Execute("Select * from Emailbook")
'Set JMail=Server.CreateObject("JMail.SMTPMail")
     'JMail.Charset = "GB2312"
    ' JMail.Sender="cic@shnu.edu.cn"
	' JMail.Subject="欢迎您报名！"
	 'JMail.AddRecipient(email)
	 'JMail.Body=Rst(1)
	 'JMail.Priority = 1
     'JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
     'JMail.Execute
	 'JMail.Close
	 'Set Rst=Nothing
'sql="insert into online (name,sex,code,school,radio,add,tel,fname,father,mobile,ut,des,sb) values('"&uname&"','"&usex&"','"&ucode&"','"&uschool&"','"&uradio&"','"&uadd&"','"&utel&"','"&ufname&"','"&ufather&"','"&umobile&"','"&uut&"','"&udes&"','"&usb&"')"
'set pp=conn.execute(sql)
response.Write("<script language=javascript>alert('资料已成功递交，请等待回复！');this.location.href='wsbm.htm'</script>")
else
response.write("数据库连接出错，请联系管理员")
end if %>