title>网上报名结果</title>
</head><body><%
  set conn=server.CreateObject("ADODB.Connection")
  DBPath=Server.MapPath("database/students.mdb")
  conn.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath%>
<%
'检测是否支持jmail组件
'if session("jiance_jmail")<>"1" then
'session("jiance_jmail")="1"
'on error resume next
'Dim jmail
'Set jmail=Server.CreateObject("JMail.message")
'if erjr then
'session("jiance_jmail")="2"
'call cuowu()
'err.clear
'end if
'JMail.Close()
'Set JMail = Nothing

'end if
%>
    <%
if request.Form("candidate_name")="" or request.Form("identity")="" or request.Form("workpalce")="" or request.Form("office_phone")="" or request.Form("e_mail")="" or request.Form("mobile_phone")="" or request.Form("qq")="" or request.Form("f_go")=""          then
response.Write("一个或多个必填字段没有填写,请重新输入!")
else
 
'     Set msg = Server.CreateObject("JMail.Message")      '利用JMail自动发送电子邮件

Set rst=server.CreateObject("adodb.recordset")

e_mail = request.Form("e_mail")
candidate_name = request.Form("candidate_name")
sql="select * from f_stu"
rst.open sql,conn,1,3
response.Write(rst.fields(0).value)
response.Write("<br>")

' jmail.silent = true
' jmail.charset = "gb2312"
' jmail.fromname = "武汉大学辅导员培训基地"
' jmail.from = "[email protected]"
' jmail.AddRecipient (e_mail)
' jmail.subject = "武汉大学辅导员培训基地网上报名通知"
' jmail.Body = "注册已成功!感谢您对武汉大学辅导员培训基地的支持!"
' jmail.mailserverusername = "fdyJD09"
' jmail.mailserverpassword = "liucun"
' jmail.maildomain = "smtp.163.com"
' sendok = jmail.send("smtp.163.com")

' if sendok then 
' response.write "恭喜您,邮件发送成功" 
'
rst.addnew '发送成功后再将信息导入数据库
rst.fields(1).value=request.Form("candidate_name")
rst.fields(2).value=request.Form("sex")
rst.fields(4).value=request.Form("born_year")
rst.fields(5).value=request.Form("born_month")
rst.fields(6).value=request.Form("identity")
rst.fields(7).value=request.Form("class")
rst.fields(8).value=request.Form("class_year")
rst.fields(9).value=request.Form("class_month")
rst.fields(10).value=request.Form("gradute_school")
rst.fields(11).value=request.Form("major")
rst.fields(12).value=request.Form("xueli")
rst.fields(13).value=request.Form("gradute_year")
rst.fields(14).value=request.Form("workpalce")
rst.fields(15).value=request.Form("office_phone")
rst.fields(16).value=request.Form("work_year")
rst.fields(17).value=request.Form("position")
rst.fields(18).value=request.Form("e_mail")
rst.fields(19).value=request.Form("mobile_phone")
rst.fields(20).value=request.Form("comments")
rst.fields(22).value=request.Form("qq")
rst.fields(23).value=request.Form("f_go")

rst.update
a=request.Form("candidate_name")
response.Write(a)' jmail.close
' set jmail = nothing
' else 
' response.write "对不起,邮件发送失败,可能由于服务器登录设置配置不当造成或填写的信息有误,请确认正确后再进行发送!" 
' jmail.close
' set jmail = nothing
' end if 

' msg.silent = true
' msg.Logging = true
' msg.Charset = "gb2312"
' msg.ContentType = "text/html"    '邮件正文格式
' msg.MailServerUserName = "[email protected]"    '登陆用户名
' msg.MailServerPassword = "liucun"     '登陆密码
' msg.From = "[email protected]"       '发件人Email
' msg.FromName = "武汉大学辅导员培训基地"     '发件人姓名
' msg.AddRecipient e_mail,candidate_name
' msg.Subject = "报名申请确认"      '邮件主题
' msg.Body = "注册已成功!感谢您对武汉大学辅导员培训基地的支持!"      '邮件正文
' msg.Send("smtp.163.com")      'SMTP服务器地址
' msg.close
' set msg = nothing

rst.close
set rst=nothing
conn.close
set conn=nothing

response.Write("申请成功!   3秒钟后自动返回主页!")


end if
  

  %></body>
</html>