<%@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 %> ☆丹东市现代机械中等职业技术学校欢迎您!☆
|2008新闻大盘点||主   页| 学校概况 | 教学管理 | 校内实训 | 毕业去向 | 校园视频 | 校园快照 | 招生简章 | 网上报名
 
 
用户名: 
密  码: 
 


... 更多链接>>

 
 
汽车制造与维修
 
计算机网络技术
 
计算机多媒体技术及应用
 
旅游服务与饭店管理
机械设计与制造(大专)
 
 
地 址:
丹东市振兴区桃源街花园路12号
电 话:
0415-2312177
Email:
zhgl@ddsgjy.com
网 址:
http://www.ddsgjy.com
 
 

一、专业实训教室
    学校历经十年的滚动发展,具有相当雄厚的实力,投资近400万元建立了众多专业教室,其中,数控实训教室配有数控加工中心、数控车床、线切割、电火花、车床、铣床、组合铣床、钻床等各种设备;数控仿真实训教室配有数控仿真模拟软件和专用微机32台;汽车实训教室配有整车和各种汽车典型零部件,全套汽车部件试教板教具模型;钳工实训教室配有台虎钳55台位,另外专门配备钻床、台钻和各种规格平台、方箱和量具等;四个设备先进的多媒体教室,共200台配置电脑等。

二、 校内实训基地
    曙光职专一直致力于建立现代化的校内实训基地,使学生实现与企业的零距离接触。2006年夏天,曙光职专终于实现这一目标。曙光职专现已投资300万元建立了一条现代的机械加工生产线。目前,产品已投放市场,实现了批量生产,社会反响强烈。 
  
    生产线投产的过程,是曙光职专校内生产实习实现飞跃性发展的过程,它使学生们能够把理论知识与实践有机的结合起来。亲眼目睹一条新式现代化生产线的诞生,亲身参与设备的安装、调试,产品的批量生产和市场投入过程。为此,曙光职专相应地制定了一整套校内生产规范,即学生们在完成基础理论课学习之后,分期分批进入校内生产实习车间,与生产线上的师傅结成师徒对子,要在一定时间内学会基本操作技能与顶岗实习、顶岗后可得到实习补助费,然后带着一手过硬的技能,再由学校将他们分配到我市各家名企业就业,从而完成产教结合的一个完整过程。






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