<%'在线报名 If Request.QueryString("action") = "sava" Then SchoolName = Server.HtmlEnCode(Request.Form("schoolname")) Course = Server.HtmlEnCode(Request.Form("course")) Education = Server.HtmlEnCode(Request.Form("education")) sName = Server.HtmlEnCode(Request.Form("name")) Pinyin = Server.HtmlEnCode(Request.Form("pinyin")) Birthday_Y = Server.HtmlEnCode(Request.Form("birthday_y")) Birthday_M = Server.HtmlEnCode(Request.Form("birthday_m")) Birthday_D = Server.HtmlEnCode(Request.Form("birthday_d")) Origin = Server.HtmlEnCode(Request.Form("origin")) National = Server.HtmlEnCode(Request.Form("national")) IDcard = Server.HtmlEnCode(Request.Form("idcard")) Passport = Server.HtmlEnCode(Request.Form("passport")) Tel = Server.HtmlEnCode(Request.Form("tel")) Address = Server.HtmlEnCode(Request.Form("address")) English = Server.HtmlEnCode(Request.Form("english")) If SchoolName = "" Then Call MyAlert("[提示]请填写学校名称。","") Response.End() End If If Course = "" Then Call MyAlert("[提示]请填写申请课程。","") Response.End() End If If Education = "" Then Call MyAlert("[提示]请选择课程等级。","") Response.End() End If If sName = "" Then Call MyAlert("[提示]请填写您的姓名。","") Response.End() End If If Pinyin = "" Then Call MyAlert("[提示]请填写您的姓名的拼音(首字母请大写)。","") Response.End() End If If Birthday_Y = "" Or Birthday_M = "" Or Birthday_D = "" Then Call MyAlert("[提示]请填写您的出生日期。","") Response.End() End If If Origin = "" Then Call MyAlert("[提示]请填写您的籍贯。","") Response.End() End If If National = "" Then Call MyAlert("[提示]请填写您的民族。","") Response.End() End If If IDcard = "" Then Call MyAlert("[提示]请填写您的身份证号码。","") Response.End() End If If Passport = "" Then Call MyAlert("[提示]请填写您的护照号码。","") Response.End() End If If Passport = "" Then Call MyAlert("[提示]请填写您的联系电话。","") Response.End() End If If Address = "" Then Call MyAlert("[提示]请填写您的通讯地址。","") Response.End() End If If English = "" Then Call MyAlert("[提示]请选择您的英文水平。","") Response.End() End If Set rs = Conn.ExeCute("Select * From Ce_ApplicationlTable Where SchoolName = '"&SchoolName&"' And Course = '"&Course&"' And Name = '"&sName&"' And Tel = '"&Tel&"' And DateDiff(S,AddTime,GetDate()) < 180") If Not rs.Bof Or Not rs.Eof Then Call MyAlert("[提示]您刚刚提交的数据系统已记录,如果您需要重新申请请3分钟后在提交。","application.html") Response.End() Else Call SetRecord(rc,"Select * From Ce_ApplicationlTable",Conn,1,3) rc.addnew rc("SchoolName") = SchoolName rc("Course") = Course rc("Education") = Education rc("Name") = sName rc("Pinyin") = Pinyin rc("Sex") = Server.HTMLEncode(Request.Form("Sex")) rc("Birthday") = Birthday_Y&"-"&Birthday_M&"-"&Birthday_D rc("Origin") = Origin rc("National") = National rc("IDcard") = IDcard rc("Passport") = Passport rc("Tel") = Tel rc("Email") = Server.HTMLEncode(Request.Form("email")) rc("QQ") = Server.HTMLEncode(Request.Form("qq")) rc("Address") = Address rc("PostCode") = Server.HTMLEncode(Request.Form("postcode")) rc("English") = English rc("Work") = Server.HTMLEncode(Request.Form("work")) rc("Father") = Server.HTMLEncode(Request.Form("fathername"))&"|"&Server.HTMLEncode(Request.Form("fatheroccupation"))&"|"&Server.HTMLEncode(Request.Form("fatherwork"))&"|"&Server.HTMLEncode(Request.Form("fatherincome")) rc("Mother") = Server.HTMLEncode(Request.Form("mothername"))&"|"&Server.HTMLEncode(Request.Form("motheroccupation"))&"|"&Server.HTMLEncode(Request.Form("motherwork"))&"|"&Server.HTMLEncode(Request.Form("motherincome")) rc("Qualifications") = Server.HTMLEncode(Request.Form("highschool"))&"|"&Server.HTMLEncode(Request.Form("hightheirtime_y"))&"/"&Server.HTMLEncode(Request.Form("hightheirtime_m"))&"|"&Server.HTMLEncode(Request.Form("highgraduationtime_y"))&"/"&Server.HTMLEncode(Request.Form("highgraduationtime_m"))&"|"&Server.HTMLEncode(Request.Form("highdiploma"))&"|"&Server.HTMLEncode(Request.Form("university"))&"|"&Server.HTMLEncode(Request.Form("universitytheirtime_y"))&"/"&Server.HTMLEncode(Request.Form("universitytheirtime_m"))&"|"&Server.HTMLEncode(Request.Form("universitygraduationtime_y"))&"/"&Server.HTMLEncode(Request.Form("universitygraduationtime_m"))&"|"&Server.HTMLEncode(Request.Form("universitydiploma")) rc("IP") = GetIP() rc.Update Call Closed(rc) Call MyAlert("您的申请表提交成功\n\n我们将12小时内对您的材料进行核实并和您联系。","application.html") End If End If%> 在线报名 - <%=ToReturn("WebsiteTitle","Ce_SchoolWebsiteTable","Where ID = 5")%> " /> " />
首页 > 在线报名
申请课程: - 子站" />
课程等级:
姓名:
拼音: *首字母请大写
性别:
出生日期:
籍贯:
民族:
身份证号码:
护照号码:
联系电话: *多个电话请用逗号搁开
E-mail地址:
QQ号码:
通讯地址:
邮政编码:
英文水平:
工作经验: *申请硕士学生需要
  姓名 职业 工作单位 月收入
父亲:
母亲:
  学校名称 就读时间 毕业时间 毕业文凭
高中:
大学: