<% if request("action") = "send" then frommail = Trim(Request.Form("frommail")) tomail = Trim(Request.Form("tomail")) mailsubject = Trim(Request.Form("mailsubject")) mailbody = " 考生姓名:"+Trim(Request.Form("name")+" 提问主题:"+Request.Form("timu")+" 提问内容:"+Request.Form("mailbody")) if tomail<>"" then Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = frommail objCDOMail.To = tomail objCDOMail.Subject = mailsubject objCDOMail.Body = mailbody objCDOMail.Send Set objCDOMail = Nothing end if Response.Write "" Response.End end if %> 择校问题提交中心—北京教育招生考试网
 
 
 
招生导航

招生咨询
Tel:
QQ:
314359163

 
在线提交咨询问题
(考生必须有E-mail,才能收到问题答复)
受理部门
  北京大学外国语学院招生办公室
— 以下填写考生联系信息 —
考生姓名
 
E-mail地址
 
— 以下填写问题有关信息 —
问题名称
 
问题内容
 
 此方式提交问题将在24小时内得到答复,答复将发送到所填的E-mail里,请注意查收
 
         

优秀院校推荐