<%@LANGUAGE="VBSCRIPT"%> <% Dim article__MMColParam article__MMColParam = "1" If (Request.QueryString("id") <> "") Then article__MMColParam = Request.QueryString("id") End If %> <% Dim article Dim article_numRows Set article = Server.CreateObject("ADODB.Recordset") article.ActiveConnection = MM_lconn_STRING article.Source = "SELECT * FROM wenzhang WHERE id = " + Replace(article__MMColParam, "'", "''") + "" article.CursorType = 0 article.CursorLocation = 2 article.LockType = 1 article.Open() article_numRows = 0 %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim article_total Dim article_first Dim article_last ' set the record count article_total = article.RecordCount ' set the number of rows displayed on this page If (article_numRows < 0) Then article_numRows = article_total Elseif (article_numRows = 0) Then article_numRows = 1 End If ' set the first and last displayed record article_first = 1 article_last = article_first + article_numRows - 1 ' if we have the correct record count, check the other stats If (article_total <> -1) Then If (article_first > article_total) Then article_first = article_total End If If (article_last > article_total) Then article_last = article_total End If If (article_numRows > article_total) Then article_numRows = article_total End If End If %> <% Dim MM_paramName %> <% ' *** Move To Record and Go To Record: declare variables Dim MM_rs Dim MM_rsCount Dim MM_size Dim MM_uniqueCol Dim MM_offset Dim MM_atTotal Dim MM_paramIsDefined Dim MM_param Dim MM_index Set MM_rs = article MM_rsCount = article_total MM_size = article_numRows MM_uniqueCol = "id" MM_paramName = "id" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Specific Record: handle detail parameter If (MM_paramIsDefined And MM_rsCount <> 0) Then ' get the value of the parameter MM_param = Request.QueryString(MM_paramName) ' find the record with the unique column value equal to the parameter value MM_offset = 0 Do While (Not MM_rs.EOF) If (CStr(MM_rs.Fields.Item(MM_uniqueCol).Value) = MM_param) Then Exit Do End If MM_offset = MM_offset + 1 MM_rs.MoveNext Loop ' if not found, set the number of records and reset the cursor If (MM_rs.EOF) Then If (MM_rsCount < 0) Then MM_rsCount = MM_offset End If If (MM_size < 0 Or MM_size > MM_offset) Then MM_size = MM_offset End If MM_offset = 0 ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Close MM_rs.Open End If End If End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page MM_index = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size)) MM_rs.MoveNext MM_index = MM_index + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = MM_index If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF And MM_index < MM_offset) MM_rs.MoveNext MM_index = MM_index + 1 Wend End If %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record article_first = MM_offset + 1 article_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (article_first > MM_rsCount) Then article_first = MM_rsCount End If If (article_last > MM_rsCount) Then article_last = MM_rsCount End If End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> 广东外语外贸大学章程(试行) -- 广东外语外贸大学 依法治校专题网站
广东外语外贸大学 依法治校专题网站
欢迎光临广东外语外贸大学 依法治校 专题网站!
|搜索文章
 
|校内链接
·党委办公室、校长办公室
·广东外语外贸大学校务公开网
·广东外语外贸大学校友网
·广东外语外贸大学校园网
·广东外语外贸大学新闻网
·广东外语外贸大学简介
·广东外语外贸大学学校风光
·广东外语外贸大学校领导简介
 
|校外链接
·中华人民共和国教育部
·中国高等教育学生信息网
·中央人民政府网
·中国人大网
·广东省教育厅
·广东省普通高校
·中国法院网
·中国普法网
 

广东外语外贸大学章程(试行)

第一章 总 则

第一条 为了保障学校依法自主办学,保障举办者和学校的合法权益,规范学校办学行为,依据《中华人民共和国教育法》、《中华人民共和国高等教育法》及其他法律法规的规定,制定本章程。
第二条 学校中文名称:广东外语外贸大学。
英文名称:GUANGDONG UNIVERSITY OF FOREIGN STUDIES.英文缩略名为:GDUFS.
注册地址:广州市白云区白云大道北2号。
校区:北校区位于广州市白云区白云大道北2号,南校区位于广州市番禺区小谷围岛大学城内;大朗校区位于广州市白云区大朗。
第三条 广东外语外贸大学是广东省人民政府举办的全日制普通高等学校。
学校行政主管部门是广东省教育厅。
第四条 学校是以公益性为目的的事业单位法人。
校长是学校的法定代表人。
第五条 学校以马克思列宁主义、毛泽东思想、邓小平理论和“三个代表”重要思想为指导,遵循国家教育方针,育人为本、依法治校,发展科学技术文化,培养德、智、体、美全面发展的社会主义建设者和接班人,为广东经济、社会发展和国家社会主义现代化建设服务。
第六条 学校实行中国共产党广东外语外贸大学委员会(简称学校党委)领导下的校长负责制。
学校实行校、院两级管理体制。
第七条 校训:明德尚行,学贯中西。
第八条 校庆日:11月的第一个星期六。
第九条 学校校旗旗面为柠檬黄色,旗上图案由校徽及校名组成,校徽位于旗面左上角。
学校校徽为圆形,由学校中、英文名称、平面地球仪和字母“W”组成;中、英文名称为红色,校徽主体以中蓝色为基调,图案为白色。

第二章 学校与举办者的关系及学校的权利义务

第十条 学校的办学活动接受举办者的领导和监督。
举办者支持学校依法按照章程自主办学,保护学校的合法权益。
第十一条 学校享有下列权利:
(一)依法按照学校章程管理学校;
(二)依法设置和调整学科、专业;
(三)根据教学需要,制定教学计划、选编教材、组织实施教育教学活动;
(四)根据社会需求、办学条件和国家核定的办学规模,制定招生方案,调节系科招生比例,招收学生、学员;
(五)对受教育者进行学籍管理,实施奖励或者处分;
(六)对受教育者颁发相应的学业证书;
(七)拒绝任何组织和个人对教育教学活动的非法干涉;
(八)按照国家有关规定,评聘教师和其他专业技术人员的职务,调整津贴及工资分配,聘任教师及其他职工,实施奖励或者处分;
(九)开展科学研究、技术开发和社会服务;
(十)在政府和社会的支持下,建立各级科学研究基地;
(十一)与企业事业组织、社会团体及其他社会组织在科学研究、技术开发和推广等方面进行多种形式的合作;
(十二)依法开展与境内外高等学校和科研文化机构之间的科学技术文化交流与合作;
(十三)根据学校实际需要和精简、效能的原则,确定教学、科学研究、行政职能部门等内部组织机构的设置和人员配备;
(十四)对举办者提供的财产、国家财政性资助依法管理和使用,管理、使用本单位的设施和经费;
(十五)依法接受捐赠,对受捐赠财产依法管理和使用;
(十六)依法收取学费及有关费用;
(十七)法律、法规规定的其他权利。
第十二条 学校履行下列义务:
(一)遵守法律、法规;
(二)遵守学校章程;
(三)贯彻国家的教育方针,执行国家教育教学标准,保证教育教学质量;
(四)保护受教育者、教师、职员和职工的合法权益;
(五)为受教育者提供必要信息;
(六)遵守国家收费规定,公开收费项目;
(七)实行校务公开,民主管理;
(八)依法接受举办者、主管部门、师生员工、学生家长和社会监督。

 

 
-
广东外语外贸大学党委办公室、校长办公室 | 广州市白云大道北2号(510420)| 联系电话:(020)36207006,传真:(020)36207367

广东外语外贸大学 依法治校网 版权所有
<% article.Close() Set article = Nothing %>