<%@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 %> 罗定市中等职业技术学校
招生就业
企业表彰优秀实习生
2008年招生专业设置
推荐就业
职教视线
国务院关于大力发展职业教育的决定.国发[2005]35号

 

本校快讯   校园动态新闻 更多>>

 
  
热烈欢迎评估专家来校指导工作 
   市委书记陈敏到我校调研
   市领导新学年初到我校调研
   我校团委荣获“广东省五四红旗团委”荣誉称号......  
     
   2007~2008年度我校被市委市人民政府授予“文明单位”荣誉称号
---------------------------
市委书记陈敏到我校调研
市领导新学年初到我校调研
9月1日举行08-09学年度开学典礼
我校优秀实习生获海信科龙公司表彰奖励
罗定职中大讲堂
人生哲理——梁水生
新闻知识讲座—李桃
罗定职中校史—吴轻舟
学生干部心路历程—黄超荫
50周年校庆专栏
50周年校庆筹备会
校庆文艺晚会精彩图片
梁水生校长致词[图]
校庆竞技赛[图]
校庆游园活动[图]
篮球友谊赛[图]
50周年校庆招待会[图]
50周年校庆文艺晚会
辉煌母校50年
罗定市中等职业技术学校简介

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

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

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

教学设备充足   学校电脑类、财会类、电子电工类、机械模具类设备一应俱全,总值1千多万元。还有开平帛汉电子有限公司、江门德龙机电有限公司、鹤山雅图仕公司等校外实习基地,完全能满足教学和实习的需要。

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

我校发展规划平面图
广东省五四红旗团委
 青年志愿服务站
《团讯》176期 177期
《团讯》178期 179期
《团讯》180期 181期
《团讯》182期 183期
《团讯》184期
校园风光 学校环境优美
友情链接
中国教育在线
中国教育信息网
广东专业资格考试网
云浮教育信息网
云浮市人事考试网
罗定教育网
学校设备先进、齐全

欢迎来校参观

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