<%@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
 
 
 
各专业课程情况
 
数控技术应用

专业全称：数控技术应用(加工中心、数控铣) 

 课程设置：
文化课：德育、语文、数学、英语、体育与健康、计算机应用基础
基础课：机械制图与CAD、机械基础、公差配合及技术测量基础、
        金属材料与热处理、电工与电子技术。
专业课：车工工艺学、数控加工工艺学、钳工工艺、铣工工艺
         数控机床编程与操作技术
实训课：车工操作实习、数控模拟仿真实习、数控车床编程操作实习
机械加工技术

专业全称：机械加工技术

 课程设置：
文化课：德育、语文、数学、英语、体育与健康、计算机应用基础
 基础课：机械制图与CAD、机械基础、公差配合及技术测量基础、
        金属材料与热处理、电工与电子技术。
专业课：车工工艺学、钳工教学实习、机械制造工艺基础、
        金属切削原理与机床、数控机床加工技术。
实训课：车工操作实习、钳工操作实习、数控模拟仿真实习。
汽车制造与维修
 专业全称：汽车制造与维修

课程设置：
文化课：德育、语文、数学、英语、体育与健康、计算机应用基础
基础课：机械制图、机械基础、公差配合及技术测量基础、       
金属材料与热处理、电工与电子技术。
专业课：汽车发动机构造与维修、汽车底盘构造与维修、
        汽车电气设备构造与维修、汽车使用性能与检测。
实训课：汽车发动机、变速器、底盘拆装与调试技能训练。
计算机广告设计
 专业全称：计算机平面广告设计

课程设置：
文化课：德育、语文、数学、英语、体育与健康、计算机应用基础
基础课：广告策划、广告设计基础、平面构成、立体构成、图像图片处理
专业课：photoshop、freehand、flash、corldraw、3ds max
实训课：图像处理训练、平面设计训练、影视动画制作训练
计算机装潢设计

专业全称：计算机装潢设计

课程设置：
文化课：德育、语文、数学、英语、体育与健康、计算机应用基础
基础课：建筑设计基础、装潢设计艺术、室内外设计、色彩构成
        平面构成
专业课：计算机辅助设计CAD、photoshop、lights cape、coreldraw
        3ds max
实训课：辅助设计训练、平面设计训练、三维创作训练
模具钳工
 专业全称：模具钳工

课程设置：
文化课：德育、语文、数学、英语、体育与健康、计算机应用基础
基础课：机械制图与CAD、机械基础、公差配合及技术测量基础、
        金属材料与热处理、电工与电子技术。
专业课：钳工工艺学、模具制造技术、模具数控加工技术、
         模具工程技术基础、模具材料及表面处理。
实训课：钳工工艺实习、模具装配与调试技能训练、
         模具数控加工编程与操作实习。
焊接技术及设备
 专业全称：焊接技术及设备

课程设置：
文化课：德育、语文、数学、英语、体育与健康、计算机应用基础
基础课：略
专业课：略
实训课：略
     
欢迎光临,您是第 位登录我们网站的访问者
最佳浏览：1024X768， IE5.0或以上版本；欢迎对本网站提出建议
版权所有：丹东市曙光中等职业技术学校
联系电话：0415-2312177 Email：mdm_agg@163.com
<% conn.Close() Set conn = Nothing %>