%
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
%>
择校问题提交中心—北京教育招生考试网
|
|
|
|
|
|
|
|
|
在线提交咨询问题 |
(考生必须有E-mail,才能收到问题答复) |
|
|
此方式提交问题将在24小时内得到答复,答复将发送到所填的E-mail里,请注意查收 |
|
|
|
|
|
|
|
|