<%@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
 
 

 

 
我 校 助 学 金 申 报 的 成 果

     07 年 6 月份,市教育局召开了专题会议,传达了国务院和省里关于助学金工作的指示精神后,学校领导立即向全校师生进行了宣传贯彻,并制定了“助学特讯”和“奖学金申请表”与 07 年招生简章一起发放,大张旗鼓地向社会和初三应届毕业生与家长及在校学生广泛地进行宣传,让更多的人了解熟悉国家的这一利国惠民的政策,希望更多的应往届学生能到职业学校来就读。
    一、根据 2007 年 7 月 17 日按市教育局的会议精神要求。在网上下载“国发” 13 号文件精神,助学指南等相关文件资料,组织全校教职工,认真学习文件,领会精神,提高认识,并着手布置。让 06 届学生准备相关有效的证明材料,已备 9 月 1 日新学期开始的申报工作做好准备。在 9 月 1 日新学期开始通过广播和班会向全校师生反复宣传讲解, 9 月 4 日成立学校助学金工作管理领导小组,根据省市规定结合我校实际情况,又制定了我校的“助学金管理暂行办法”和实施要求。一、二年级学生向所在班级提供申请表和证明户籍性质的复印件等相关材料,学生处负责对学生学籍的审查;领导小组责成专人负责受助学生资格审核;学校组织人员对合乎条件的人员进行资料整理、录入、校对、再审、反复校对。由于前期准备工作比较充分。于 9 月 9 日完成了对提出助学申请的学生的评审和材料的整理工作。 9 月 10 日至 9 月 18 日进行了 7 个工作日的公示,没有异议。按市教育局的要求 9 月 15 日及时上报并建档。我校在校学生来自农村和县镇的 407 人,城市 333 人中有 54 人(有低保或特困证)共有 461 人受助,占在籍生的 43.5% ,占在校生的 62% 。
    二、国家助学金管理及校内提取 5%~10% 资金的使用情况。
    根据“国发” 13 号和《辽宁省中等职业学校国家助学金管理暂行办法》,国家助学金及校内提取 5%~10% 资金使用情况如下:
    •  国家助家金拨入我校为 341250 元,实际发放 340950 元,余 300 元转入下年发放(余款为减少学生与新增学生互顶差额款)。
     •  贫困补助金国家拨入我校 12600 元,实际发放 12600 元。
     2007 年我校全年学费收入: 794366 元,按 5.235% 共计提取减免学费、助、奖学金额为 41585.06 元。实际发放 41585 元,其中减免学费 20900 元,发放助、奖学金 20685 元。

????????????????????????

 

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