<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form1") Then MM_editConnection = MM_conn_STRING MM_editTable = "wsbm" MM_editRedirectUrl = "" MM_fieldsStr = "姓名|value|性别|value|出生日期|value|毕业学校|value|上网|value|电视|value|招生简章|value|朋友介绍|value|老师介绍|value|选择专业|value|联系电话|value|电子邮箱|value|家庭住址|value|简历|value|留言|value" MM_columnsStr = "姓名|',none,''|性别|',none,''|出生日期|',none,''|毕业学校|',none,''|上网|none,'Y','N'|看电视|none,'Y','N'|招生简章|none,'Y','N'|朋友介绍|none,'Y','N'|老师介绍|none,'Y','N'|选择专业|',none,''|联系电话|',none,''|电子邮箱|',none,''|家庭住址|',none,''|简历|',none,''|留言|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim conn Dim conn_numRows Set conn = Server.CreateObject("ADODB.Recordset") conn.ActiveConnection = MM_conn_STRING conn.Source = "SELECT * FROM wsbm" conn.CursorType = 0 conn.CursorLocation = 2 conn.LockType = 1 conn.Open() conn_numRows = 0 %> ☆丹东市现代机械中等职业技术学校欢迎您!☆
主 页 | 学校概况 | 教学管理 | 校内实训 | 毕业去向 | 校园视频 | 校园快照 | 招生简章 | 网上报名
 
 
用户名: 
密  码: 
 


... 更多链接>>

 
 
 
地 址:
丹东市振兴区桃源街花园路12号
电 话:
0415-2312177
Email:
zhgl@ddsgjy.com
网 址:
http://www.ddsgjy.com
 
 
 

1、学校概况

   丹东市现代机械中等职业技术学校与沈阳铁路局丹东培训中心强强联合后,成为丹东市教育局所属的最大的以数控技术和汽车制造与维修专业为主的中等职业技术学校,是中国汽车工业丰田金杯汽车集团所属的丰田金杯技工培训中心丹东分校,是丹东市最先实行德国“双元制”职业教育教学模式的试点单位,是辽宁省职业教育先进单位。
   学校位于丹东市振兴区桃园街,占地15000平方米,专职教师86人,在校生1400多人。有独立的教学楼、宿舍楼、校内实训基地和餐饮服务中心;高配置的电脑200台,四个微机室,4个专业技能实训教室,一个可容纳170名学生同时上课的多媒体教学中心,建校以来累计培养的3100多名毕业生全部就业于丹东市,直接为创建新丹东服务,我校曾力挫群雄,拨得头筹,作为丹东市参加省数控技能大赛的唯一学校,获团体总分第五名,师生双获三等奖。
2、办学优势
     1、校内实训基地实行产教结合模式,市内独一无二。
  (1)专业实训教室
   学校历经十年的滚动发展,具有相当雄厚的实力,投资近400万元建立了众多专业教室,其中,数控实训教室配有数控加工中心、数控车床、线切割、电火花、车床、铣床、组合铣床、钻床等各种设备;数控仿真实训教室配有数控仿真模拟软件和专用微机32台;汽车实训教室配有整车和各种汽车典型零部件,全套汽车部件试教板教具模型;钳工实训教室配有台虎钳55台位,另外专门配备钻床、台钻和各种规格平台、方箱和量具等;四个设备先进的多媒体教室,共200台配置电脑等。
  (2)校内实训基地
  现代机械职专一直致力于建立现代化的校内实训基地,使学生实现与企业的零距离接触。2006年夏天,现代机械职专终于实现这一目标。现代机械职专现已投资300万元建立了一条现代的机械加工生产线。目前,产品已投放市场,实现了批量生产,社会反响强烈。
   生产线投产的过程,是现代机械职专校内生产实习实现飞跃性发展的过程,它使学生们能够把理论知识与实践有机的结合起来。亲眼目睹一条新式现代化生产线的诞生,亲身参与设备的安装、调试,产品的批量生产和市场投入过程。为此,现代机械职专相应地制定了一整套校内生产规范,即学生们在完成基础理论课学习之后,分期分批进入校内生产实习车间,与生产线上的师傅结成师徒对子,要在一定时间内学会基本操作技能与顶岗实习、顶岗后可得到实习补助费,然后带着一手过硬的技能,再由学校将他们分配到我市各家名企业就业,从而完成产教结合的一个完整过程。
     
我校的校内实训基地拥有众多的数控机床和各种机械加工设备以及汽车、钳工、焊接、计算机等专业技能训练教室。该校内实训基地还拥有汽车转向节生产线,可同时容纳100名学生进行生产实习,该生产线配备日本法那克系统的数控车床、三菱系统数控加工中心、电火花成型及线切割等各类数控机床及其他普通机床,使实习与教学零距离接触,真正实现产教结合。极大提高了我校学生的技能水平,在市内中职学校中独一无二。
  2、毕业即到名牌企业就业,省内首屈一指
  曙光集团、黄海集团、克隆公司、五一八公司、虎跃集团、丹东啤酒公司、丹东机床公司、凤城曙光汽车半轴厂是我校的校外实训基地。这些名牌企业先进的设备、严格科学的管理体制,是学生掌握精湛专业技能、技巧的有力保证。学生在生产实习期间,企业还发给一定数额的生活补助,使学生的劳动价值得到认可,也减轻家长的经济负担。学生毕业后,根据需要被上述各知名企业录用为合同制员工。学校自有毕业生以来,毕业率100%,中级工率100%,就业率100%,升学率98%。
  3、升大学也能安排就业
    我校学生可专业对口升入沈阳职业技术学院汽车分院为主的省内各高职院校,实现上大学梦想。毕业后可获得大专文凭和高级职业技能资格证书,安排在丰田金杯集团所属企业或效益好的外资企业、独资企业工作,实现了大学毕业就能到待遇优厚的名牌企业就业的心愿。
  4、赴日研修,成就留学梦想
    对口升入沈阳职业技术学院汽车分院的我校学生,每年均有机会获得日本丰田汽车公司赞助的赴日产业研修,进一步拓宽学生的成材之路。


 
 
 
 
 
 
 
 
 
欢迎光临,您是第 位登录我们网站的访问者
最佳浏览:1024X768, IE5.0或以上版本;欢迎对本网站提出建议
版权所有:丹东市曙光中等职业技术学校
联系电话:0415-2312177 Email:mdm_agg@163.com
<% conn.Close() Set conn = Nothing %>