<% dim action,TrueName,Tel,Email,Content,Code action=request.form("act") if action="fastreg" then TrueName=request.Form("TrueName") Code=request.Form("E_address") Tel=request.Form("Tel") Email=request.Form("Email") Content=request.Form("Content") if action="fastreg" then if IsValidEmail(Email)=False then response.write"" response.end end if dim mailtext mailtext=""&vbcrlf mailtext=mailtext&""&vbcrlf mailtext=mailtext&""&vbcrlf mailtext=mailtext&""&vbcrlf mailtext=mailtext&""&vbcrlf mailtext=mailtext&""&vbcrlf mailtext=mailtext&"
姓名： "&TrueName&"
身份证号： "&E_address&"
联系电话： "&AreaCode&" - "&Tel&"
电子邮箱："&Email&"
内    容： "&Content&"
" '发送邮件到客服邮箱 '使用Jmail发邮件(主题,邮件内容,收件人,发件人,发件人名称,答复地址,SMTP服务器地址,用户名,密码) Subject="在线举报--中国在线招生" HtmlBody=mailtext MailTo="edu@eduunion.org" 'MailTo="ls363@hotmail.com" MailFrom="edu@zsol.org" MailFromName="中国在线招生" MailReplyTo=E_mail SMTP="202.75.216.213" UserName="edu@zsol.org" PassWord="jy1209" call JmailSend(Subject,HtmlBody,MailTo,MailFrom,MailFromName,MailReplyTo,SMTP,UserName,PassWord) end if end if %> 中国在线招生——关于我们
中国教育联盟旗下的品牌招生网
用户名： 密码： 免费注册 客服热线：0571-56778280
   首  页  |  新闻资讯  |  高校招生  |  继续教育  |  技能培训  |  职业技校  |  民办院校  |  考研中心  |  网络院校  |  文体艺校
   出国留学  |  司法/财会  |  外语培训  |  IT培训  |  高级研修  |  公务员  |  资格认证  |  校长访谈  |  教育博客  |  你问我答
  | 添加收藏   | 设为首页
 
    客服中心
 
 
 
 
本站承诺
 

本站承诺

中国在线招生本着对广大学员负责的态度郑重承诺:

  1. 保证任一合作机构具备合法的法人资格、办学资格。
  2. 保证任一合作机构所发布的招生信息真实有效。
  3. 保证任一合作机构所发布的学费、及承诺的事项有效。

任一学员如发现虚假或不真实信息请联系我们：

学员举报邮箱：edu@teacherol.com
举报电话：0571-56778280
我们在收到举报之日起三个工作日将予以答复。
<%if action<>"fastreg" then%>
在线举报系统：

请正确填写你的资料，谢谢

姓名： *
身份证号： * 请填写真实的身份证号
联系电话： *
电子邮箱： *
内   容： *
 
<%else%>

谢谢您给我们的支持！
您的信息已提交到工作人员的邮箱，
我们会在24小时之内与您联系！
<%end if%>
情况如实我们将予以奖励。
 
 
Copyright(C) 2006 www.zsol.org All rights reserved. 浙ICP备06036992号
网络实名： 中国在线招生 在线招生 通用网址： 中国在线招生
传真：0571-56778285 E-mail: job@teachcn.com
<% '使用Jmail发邮件(主题,邮件内容,收件人,发件人,发件人名称,答复地址,SMTP服务器地址,用户名,密码) Function JmailSend(Subject,HtmlBody,MailTo,MailFrom,MailFromName,MailReplyTo,SMTP,UserName,PassWord) dim jmail Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象 jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j jmail.logging = true '启用邮件日志 jmail.Charset = "GB2312" '邮件的文字编码为国标 jmail.ContentType = "text/html" '邮件的格式为HTML格式 jmail.AddRecipient MailTo '邮件收件人的地址 jmail.FromName = MailFromName '发件人名称 jmail.From = MailFrom '发件人的E-MAIL地址 jmail.Replyto = MailReplyTo '发件人的E-MAIL地址 jmail.MailServerUserName = UserName '登录邮件服务器所需的用户名 jmail.MailServerPassword = PassWord '登录邮件服务器所需的密码 jmail.Subject = Subject '邮件的标题 jmail.Body =HtmlBody '邮件的内容 jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值 jmail.Send(SMTP) '执行邮件发送（通过邮件服务器地址） jmail.Close() '关闭对象 set jmail=nothing '清空Jmail对象 end Function function IsValidEmail(email) dim names, name, i, c IsValidEmail = true if email="" or Isnull(email) = True then IsValidEmail = false exit function end if names = Split(email, "@") if UBound(names) <> 1 then IsValidEmail = false exit function end if for each name in names if Len(name) <= 0 then IsValidEmail = false exit function end if for i = 1 to Len(name) c = Lcase(Mid(name, i, 1)) if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then IsValidEmail = false exit function end if next if Left(name, 1) = "." or Right(name, 1) = "." then IsValidEmail = false exit function end if next if InStr(names(1), ".") <= 0 then IsValidEmail = false exit function end if i = Len(names(1)) - InStrRev(names(1), ".") if i <> 2 and i <> 3 then IsValidEmail = false exit function end if if InStr(email, "..") > 0 then IsValidEmail = false end if end function %>