<%@LANGUAGE="VBSCRIPT"%> <% strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("articles/elinarticles.mdb") set conn = server.createobject("adodb.connection") conn.open strconn %> <% Set Rs1 = Server.CreateObject("ADODB.Recordset") rs1.CursorLocation = 2 rs1.LockType = 3 rs1.open "SELECT * FROM article where secondId= 4" + " ORDER BY time DESC" ,conn %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 6 Repeat1__index = 0 Rs1_numRows = Rs1_numRows + Repeat1__numRows %> <% Set Rs2 = Server.CreateObject("ADODB.Recordset") rs2.CursorLocation = 2 rs2.LockType = 3 rs2.open "SELECT * FROM article where secondId= 11" ,conn %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 6 Repeat2__index = 0 Rs2_numRows = Rs2_numRows + Repeat1__numRows %> <% Set Rs3 = Server.CreateObject("ADODB.Recordset") rs3.CursorLocation = 2 rs3.LockType = 3 rs3.open "SELECT * FROM article where secondId= 13" ,conn %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 6 Repeat3__index = 0 Rs3_numRows = Rs3_numRows + Repeat3__numRows %> <% Set Rs4 = Server.CreateObject("ADODB.Recordset") rs4.CursorLocation = 2 rs4.LockType = 3 rs4.open "SELECT * FROM article where secondId= 6" ,conn %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = 6 Repeat4__index = 0 Rs4_numRows = Rs4_numRows + Repeat4__numRows %> <% Set Rs5 = Server.CreateObject("ADODB.Recordset") rs5.CursorLocation = 2 rs5.LockType = 3 rs5.open "SELECT * FROM article where secondId= 2" ,conn %> <% Dim Repeat5__numRows Dim Repeat5__index Repeat5__numRows = 6 Repeat5__index = 0 Rs5_numRows = Rs5_numRows + Repeat5__numRows %> <% Dim Repeat6__numRows Dim Repeat6__index Repeat6__numRows = 5 Repeat6__index = 5 Rs5_numRows = Rs5_numRows + Repeat6__numRows %> <% Set Rs6 = Server.CreateObject("ADODB.Recordset") rs6.CursorLocation = 2 rs6.LockType = 3 rs6.open "SELECT * FROM article where secondId= 9" ,conn %> <% Dim Repeat7__numRows Dim Repeat7__index Repeat7__numRows = 6 Repeat7__index = 0 Rs6_numRows = Rs6_numRows + Repeat7__numRows %> <% Set Rs7 = Server.CreateObject("ADODB.Recordset") rs7.CursorLocation = 2 rs7.LockType = 3 rs7.open "SELECT * FROM article where secondId= 19" ,conn %> <% Dim Repeat8__numRows Dim Repeat8__index Repeat8__numRows = 5 Repeat8__index = 0 Rs7_numRows = Rs7_numRows + Repeat8__numRows %> <% Set Rs8 = Server.CreateObject("ADODB.Recordset") rs8.CursorLocation = 2 rs8.LockType = 3 rs8.open "SELECT * FROM article where secondId= 1" ,conn %> <% Dim Repeat9__numRows Dim Repeat9__index Repeat9__numRows = 5 Repeat9__index = 0 Rs9_numRows = Rs9_numRows + Repeat9__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> 罗定市中等职业技术学校
   
招生就业
2009年秋季联办学校招生信息
2009年秋季我校招生信息
2009年短期培训班
推荐就业
职教视线
国务院关于大力发展职业教育的决定.国发[2005]35号

校企合作成果(视频)

假期电脑培训班
本校快讯   校园动态新闻 更多>>
梁水生校长接受罗定新闻中心记者访问
我校深入学习实践科学发展观活动转入分析检查阶段
我校召开深入学习实践科学发展观动员大会
陈作权市长到我校调研
省育厅副调研员詹奇同志到我校调研
罗定职中大讲堂
人生哲理——梁水生
新闻知识讲座—李桃
罗定职中校史—吴轻舟
学生干部心路历程—黄超荫
50周年校庆专栏
50周年校庆筹备会
校庆文艺晚会精彩图片
梁水生校长致词[图]
校庆竞技赛[图]
校庆游园活动[图]
篮球友谊赛[图]
50周年校庆招待会[图]
50周年校庆文艺晚会
辉煌母校50年
罗定市中等职业技术学校简介

广东省罗定市中等职业技术学校(即罗定职中),是一所集中专、中技于一体的全日制公立省级重点职业学校。学校管理规范,设备齐全,收费合理(执行物价局核定标准),就业门路广,是粤西职业教育的一颗明珠。

育人环境良好  学校地处罗定市区旧城中心,占地83亩,环境幽雅。建有占地26亩的新运动场和建筑面积近6000平方米的实训大楼。新学生宿舍正在筹建中,工程竣工后,校园更显壮美。学校学风正,校风好,先后被评为“广东省关心下一代先进集体”、“广东省青少年法制教育先进集体”、历年被评为云浮市、罗定市“文明学校”、“文明单位”。          

师资力量雄厚  学校现有中学高级教师30,中学一级教师130多人。教师勤教乐教,高考上省线率、上省A线率.上本科率连续三年居云浮市面上中学第一。职教学生技术等级考证合格率100%,参加高职类高考上线率达90%以上。 

教学设备充足  学校计算机及应用类、会计类、电子技术应用类、数控技术应用类设备一应俱全,总值1200多万元。还有顺德美芝制冷有限公司、江门德龙机电有限公司、鹤山雅图仕公司等校外实习基地,完全能满足教学和实习的需要。

毕业出路广阔  学生毕业后可由学校安排就业。目前,我校已与顺德海信科龙有限公司建立联合办学基地。其他定向到我校招收员工的企业有顺德美的空调、珠海格力、广州五羊本田、广州樱泰汽车饰件有限公司(丰田配套厂)、深圳益宝集团、深圳南玻集团、江门德隆机电有限公司、江门大长江集团等十多家企业,近年毕业生就业供不应求。另外,毕业生还可参加“3+证书”高考,继续到高职类院校深造。

我校校徽
广东省五四红旗团委
 青年志愿服务站
《团讯》176期 177期
《团讯》178期 179期
《团讯》180期 181期
《团讯》182期 183期
《团讯》184期
亲切的关怀

 
省教育厅副厅长叶小山
省教育厅副厅长李小鲁
市委书记、人大主任陈敏
陈作权市长
云浮市人大副主任梁海森

市委副书记李伟忠

市委常委李耀庆副市长杨东凯
友情链接
中国教育在线
中国教育信息网
广东专业资格考试网
云浮教育信息网
云浮市人事考试网
罗定教育网
美丽的校园

学校正门
教学大楼
实习基地
实训大楼

勤奋的身影

教师技能竞赛
学生上机实习
数控铣床实习
车工实习
九合一家电实习室
制冷制热实验室实习
车工技能等级考试
会计科学生填制凭证

欢迎来校参观

版权所有:广东省罗定市中等职业技术学校
学校地址:罗定市罗城镇戏院路59号  邮编:527200  E-mail: ld3782126@126.com
联系电话:(0766)3782117;3782128
粤ICP备09041039号