<% Dim rs,sql,i,resp,id,cat,arr Dim txtname,type1,txtage,select1,txtmobile,txtphone,txtqq,femail,txthome,jiuye,infosrc,txtperson set sys=new class_sys ReDim arr(5) set rs=sys.Execute("select top 1 id,name,banji,zhiwei,danwei,pic from [jiuye] where class='1' order by infront desc, id desc") If Not rs.eof Then arr(0)=rs("id") arr(1)=rs("name") arr(2)=rs("banji") arr(3)=rs("zhiwei") arr(4)=rs("danwei") arr(5)=rs("pic") Application("star_info")=arr End If rs.Close If Request.Form("action")="save" Then If sys.ChkPost=False Then sys.alert "请不要本地提交。",1 txtname=Server.HTMLEncode(Trim(Request.Form("txtname2"))) type1=Server.HTMLEncode(Trim(Request.Form("type"))) txtage=Server.HTMLEncode(Trim(Request.Form("txtage2"))) select1=Server.HTMLEncode(Trim(Request.Form("select2"))) txtmobile=Server.HTMLEncode(Trim(Request.Form("txtmobile2"))) txtphone=Server.HTMLEncode(Trim(Request.Form("txtphone2"))) txtqq=Server.HTMLEncode(Trim(Request.Form("txtqq2"))) femail=Server.HTMLEncode(Trim(Request.Form("femail2"))) txthome=Server.HTMLEncode(Trim(Request.Form("txthome2"))) jiuye=Server.HTMLEncode(Trim(Request.Form("jiuye"))) infosrc=Server.HTMLEncode(Trim(Request.Form("infosrc2"))) txtperson=Server.HTMLEncode(Trim(Request.Form("textarea"))) If txtname="" Then sys.alert "错误：您没输入姓名，请返回检查！！",1 If txtperson="" Then sys.alert "错误：您没输入个人情况，请返回检查！！",1 If txtage="" Or Not IsNumeric(txtage) Then sys.alert "错误：您没输入个人年龄，请返回检查！！",1 If txthome="" Then sys.alert "请输入您的联系地址。",1 If txtmobile="" And txtphone="" Then sys.alert "请输入您的联系电话。",1 sql="select top 1 * from zxbm where 1=2" Set rs=sys.readrs(sql,1) rs.addnew rs("txtname")=txtname rs("type")=type1 rs("txtage")=txtage rs("select")=select1 rs("txtmobile")=txtmobile rs("txtphone")=txtphone rs("txtqq")=txtqq rs("femail")=femail rs("txthome")=txthome rs("jiuye")=jiuye rs("infosrc")=infosrc rs("txtperson")=HTMLEncode2(txtperson) rs("adddate")=Now() rs.update rs.close : set rs=nothing sys.alert "报名资料已【成功提交】，你可以继续浏览网站其他内容，我们会尽快与你联系！","zxbm.asp" End If Function HTMLEncode2(fString) fString = Replace(fString, CHR(20), "") fString = Replace(fString, CHR(20) & CHR(20), "

") fString = Replace(fString, CHR(20), "
") HTMLEncode2 = fString End Function %> 北大青鸟-长沙金冠标准化校区|就业援助计划|招募100名待业者 定向培养 毕业即就业
   
北大青鸟长沙金冠校区2010大学生特招班招生公告
  
2010大学生特招班，是全国北大青鸟体系华中区唯一的特招班：

    A、 特招班的大学生，只需凭大学毕业证或者大学学生证即可报名参加特招班.
    B、 特招班的大学生，入学既签就业协议，并且独家承诺“100%就业推荐”.
    C、 特招班的大学生，学成后校区独家承诺97%的学员从事软件测试工作.
    D、 特招班的大学生，校区为您提供“终身就业服务体系”.
    E、 特招班的大学生，校区独家采用项目贯穿教学， 学习包括开发测试在内的10门课程，独立开发三个软件系统 ，
        并且能进行相关测试.
    2010大学生特招班，在线报名单填写
    咨询热线：0731-85597059 0731-85597060 0731-85597061
    校址：湖南省长沙市韶山中路731号银星大厦8楼（雨花亭华银旺和大型超市斜对面） 公交查询
    网址：http://www.csbtest.com/

报名流程
报名方式
    第一种电话报名：24小时全国咨询热线：0731-85597059 0731-85597060
    第二种在线报名：如果你现在不方便通话，你可以点此在线留言咨询.
    第三种直接报名：如果你已了解北大青鸟，请填写报名单直接报名学习,或者在线咨询在线了解.
课程设置

 

合作企业
摩托罗拉公司 北京点击科技有限公司

联想集团有限

西门子（中国）有限公司 阳光宏远（北京）软件有限公司 金蝶国际软件集团有限公司
时代新技术产业有限公司 北京思奥特科技发展有限公司 上海新域信息系統有限公司
北京神州数码有限公司 汉得信息技术有限公司 更多信息...
  在线咨询报名  

想成就一番事业吗？
想拿令人羡慕的高薪成为职业金领吗？
请在下面填写您的资料，
资料越详尽越好，
我们的咨询老师会主动联系您，
并赠送您精美的培训相关参考资料。
以下均为必填项。
姓名：
您的真实姓名，使用中文名。
报班类型： 专修班(周一到五上课)
商务班(星期六、日上课)
年龄：
学历：
移动电话：
手机或座机(座机请带区号)
联系电话：
手机或座机(座机请带区号)
QQ：
输入你的常用号码
地址：
输入你的所在地址
就业情况： 在职 在读
待业 其他
针对就业情况，
我们将向您推荐适合的课程
个人情况：
您从哪里了解到北大测试长沙雨花亭校区的？

百度搜索
<<潇湘晨报>>
<<人才信息报>>
其他报纸
网络
其他媒体
户外广告
宣传单页
 

 
报名咨询：0731-85597059 0731-85597060
地址：湖南省长沙市韶山中路731号银星大厦8楼
交通路线：经过 桔园立交桥北 的线路: 2路 旅2线 7路 15路 19路 102路 103路 107路 116路 123路 124路 137路 145路 146路 159路 406路 602路 703路 705路