%@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
%>
罗定市中等职业技术学校
|
罗定市中等职业技术学校简介 |
|
|
广东省罗定市中等职业技术学校(即罗定职中),是一所集中专、中技于一体的全日制公立省级重点职业学校。学校管理规范,设备齐全,收费合理(执行物价局核定标准),就业门路广,是粤西职业教育的一颗明珠。
育人环境良好 学校地处罗定市区旧城中心,占地83亩,环境幽雅。建有占地26亩的新运动场和建筑面积近6000平方米的实训大楼。新学生宿舍正在筹建中,工程竣工后,校园更显壮美。学校学风正,校风好,先后被评为“广东省关心下一代先进集体”、“广东省青少年法制教育先进集体”、历年被评为云浮市、罗定市“文明学校”、“文明单位”。 |
师资力量雄厚 学校现有中学高级教师30人,中学一级教师130多人。教师勤教乐教,高考上省线率、上省A线率.上本科率连续三年居云浮市面上中学第一。职教学生技术等级考证合格率100%,参加高职类高考上线率达90%以上。
教学设备充足 学校计算机及应用类、会计类、电子技术应用类、数控技术应用类设备一应俱全,总值1200多万元。还有顺德美芝制冷有限公司、江门德龙机电有限公司、鹤山雅图仕公司等校外实习基地,完全能满足教学和实习的需要。
毕业出路广阔 学生毕业后可由学校安排就业。目前,我校已与顺德海信科龙有限公司建立联合办学基地。其他定向到我校招收员工的企业有顺德美的空调、珠海格力、广州五羊本田、广州樱泰汽车饰件有限公司(丰田配套厂)、深圳益宝集团、深圳南玻集团、江门德隆机电有限公司、江门大长江集团等十多家企业,近年毕业生就业供不应求。另外,毕业生还可参加“3+证书”高考,继续到高职类院校深造。 |
|
| |
我校校徽 |
|
亲切的关怀 |
|
|
|
|
|