<%@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
 
 
实习单位 实习时间 实习人员名单
曙光集团
2009.8.11

>>详细资料>>

曙光集团
2009.5.8
>>详细资料>>
曙光集团
2009.5.8
>>详细资料>>
曙光集团
2003.10   

>>详细资料>>

曙光集团
2004.10   
>>详细资料>>
曙光集团
2005.3    
>>详细资料>>
曙光集团
2005.5    
>>详细资料>>
曙光集团
2005.6    
>>详细资料>>
曙光集团
2005.7    
>>详细资料>>
曙光集团

2005.8  

 >>详细资料>>
曙光集团

2005.9  

 >>详细资料>>
曙光集团

2005.9  

 >>详细资料>>
曙光集团
2005.11  
 >>详细资料>>
曙光集团
2006.2  
 >>详细资料>>
曙光集团
2006.7  
 >>详细资料>>
曙光集团
2006.7 
 >>详细资料>>
曙光凤城半轴厂
2002.9  
 >>详细资料>>
曙光凤城半轴厂
2004.2  
 >>详细资料>>
曙光凤城半轴厂
2006.6  
 >>详细资料>>
曙光凤城半轴厂

2004.8  

 >>详细资料>>
黄海集团
2009.5.10
>>详细资料>>
黄海集团
2005.10
 >>详细资料>>
黄海集团
2005.10
 >>详细资料>>
黄海集团
2005.10
 >>详细资料>>
黄海集团
2006.11
 >>详细资料>>
黄海集团
2006.11
 >>详细资料>>
黄海集团
2006.11
 >>详细资料>>
黄海集团
2008.5.12
>>详细资料>>
五一八集团
2009.8.10
 >>详细资料>>
五一八集团
2009.8.4
 >>详细资料>>
五一八集团
2004.2
 >>详细资料>>
五一八集团
2004.2
 >>详细资料>>
五一八集团
2004.3
 >>详细资料>>
五一八集团
2004.3
 >>详细资料>>
五一八集团
2004.7
 >>详细资料>>
五一八集团
2004.9
 >>详细资料>>
五一八集团
2004.9
 >>详细资料>>
五一八集团
2004.9
 >>详细资料>>
五一八集团
2004.9
 >>详细资料>>
五一八集团
2004.9
 >>详细资料>>
五一八集团
2004.11
 >>详细资料>>
五一八集团
2006.2
 >>详细资料>>
五一八集团
2006.3
 >>详细资料>>
五一八集团
2006.3
 >>详细资料>>
五一八集团
2006.3
 >>详细资料>>
五一八集团
2006.4
 >>详细资料>>
五一八集团
2006.4
 >>详细资料>>
五一八集团
2006.11
 >>详细资料>>
五一八集团
2006.11
 >>详细资料>>
五一八集团
2006.11
 >>详细资料>>
五一八集团
2006.11
 >>详细资料>>
五一八集团
2007.3.7
 >>详细资料>>
五一八集团
2007.3.28
>>详细资料>>
五一八集团
2008.1.18
>>详细资料>>
五一八集团
2008.5.19
>>详细资料>>
五一八集团
2008.5.26
>>详细资料>>
克隆集团
2004.7   
>>详细资料>>
克隆集团
2004.8  
>>详细资料>>
克隆集团
2005.7   
>>详细资料>>
克隆集团
2007.3  
>>详细资料>>
克隆集团
2008.4.21
>>详细资料>>
丹东啤酒厂
2009.4.16
>>详细资料>>
丹东啤酒厂
2005.11  
>>详细资料>>
丹东啤酒厂
2006.3   
>>详细资料>>
丹东啤酒厂
2008.11   
>>详细资料>>
恒星泵业
2004.9   
>>详细资料>>
海德集团
2005.10  
>>详细资料>>
沈阳金德
2005.6   
>>详细资料>>
沈阳金德
2005.7   
>>详细资料>>
沈阳金德
2005.9   
>>详细资料>>
沈阳金德
2005.9   
>>详细资料>>
丹东机床厂
2006.11  
>>详细资料>>
丹东机床厂
2006.12   
>>详细资料>>
丹东机床厂
2006.3.28
>>详细资料>>
水电六局
2008.4.20
>>详细资料>>
水电六局
2008.5.7
>>详细资料>>
水电六局
2008.5.26
>>详细资料>>
申海塑业
2008.4.15
>>详细资料>>
申海塑业
2008.5.7
>>详细资料>>
大连造船厂
2009.4.22
>>详细资料>>
大连造船厂
2008.11.4
>>详细资料>>
电业局
2009.4.17
>>详细资料>>
天津压缩机
2009.6
>>详细资料>>
     
   02级毕业生
专业
总人数
 
升学人数
汽车制造与维修
106
42
机电技术及应用
54
22
旅游服务与管理
15
0
计算机及应用
22
22
合计
197
86
   03级毕业生
专业
总人数
升学人数
汽车制造与维修
303
88
机电技术及应用
217
39
计算机及应用
43
36
合计
563
163
 04级毕业生
专业
总人数
升学人数
汽车制造与维修
   
机电技术及应用
   
计算机及应用
   
合计
     
 05级毕业生
专业
总人数
升学人数
汽车制造与维修
   
机电技术及应用
   
计算机及应用
   
合计
     
欢迎光临,您是第 位登录我们网站的访问者
最佳浏览:1024X768, IE5.0或以上版本;欢迎对本网站提出建议
版权所有:丹东市现代机械中等职业技术学校
联系电话:0415-2312177 Email:mdm_agg@163.com
<% conn.Close() Set conn = Nothing %>