<%@ Language=VBScript%> <%'该文件需要进行调整和设置 dim typename NewsID=Request.QueryString("NewsID") Page=Request.QueryString("page") if page="" then page=1 elseif not IsNumeric(page) then response.write "" response.end end if page=int(page) if newsid="" then response.write "" response.end elseif not IsNumeric(newsid) then response.write "" response.end else conn.execute("update News Set Click=click+1 where NewsID=" & NewsID ) set rs=server.CreateObject("ADODB.RecordSet") if uselevel=1 then if Request.cookies("key")="" then rs.Source="select * from News where checkked=1 and newslevel=0 and newsid="&newsid end if if Request.cookies("key")="selfreg" then if Request.cookies("reglevel")=3 then rs.Source="select * from News where checkked=1 and newslevel<=3 and newsid="&newsid end if if Request.cookies("reglevel")=2 then rs.Source="select * from News where checkked=1 and newslevel<=2 and newsid="&newsid end if if Request.cookies("reglevel")=1 then rs.Source="select * from News where checkked=1 and newslevel<=1 and newsid="&newsid end if end if if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then rs.Source="select * from News where newsid="&newsid end if else rs.Source="select * from News where newsid="&newsid end if rs.Open rs.Source,conn,1,1 if rs.bof and rs.eof then response.write "无权限访问或无此内容，请注册登陆或联系管理员" else bigclassid=rs("bigclassid") smallclassid=rs("smallclassid") title=trim(rs("title")) title=replace(title,"
","") title1=trim(rs("title")) about=trim(rs("about")) Author=trim(rs("Author")) editor=trim(rs("editor")) Original=trim(rs("Original")) image=rs("image") UpdateTime=trim(rs("UpdateTime")) News_Content=rs("Content") SpecialID=rs("SpecialID") SpecialID2=rs("SpecialID2") click=rs("click") EnCode=trim(rs("EnCode")) typeid=rs("typeid") titletype=rs("titletype") titlesize=rs("titlesize") titlecolor=rs("titlecolor") titleface=rs("titleface") editor=rs("editor") if titlesize=0 then size="18px" else if titlesize=1 then size="8px" else if titlesize=2 then size="10px" else if titlesize=3 then size="12px" else if titlesize=4 then size="14px" else if titlesize=5 then size="18px" else if titlesize=6 then size="24px" else if titlesize=7 then size="36px" end if end if end if end if end if end if end if end if rs.Close set rs=nothing set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from type where typeID=" & typeID rs.Open rs.Source,conn,1,1 typename=rs("typename") rs.Close set rs=nothing set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from bigclass Where BigClassid=" & BigClassid rs.Open rs.Source,conn,1,1 bigclassname=rs("bigclassname") rs.close set rs=nothing if smallclassid<>"" then set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from smallclass Where smallClassid=" & smallClassid rs.Open rs.Source,conn,1,1 smallclassname=rs("smallclassname") rs.close set rs=nothing end if %> 云南现代演艺学校 经贸进修学院
 
 

 

★学校简介★

    云南经贸学院是经云南省教育厅批准成立，纳入全国统一招生计划。是中国致公党云南省委创办为弘扬“致力为公”精神，发扬自身优势的新型院校；以培养边疆及边远山区少数民族艺术人才为重点；是西南地区唯一和中国人民解放军联合办学的现代军事艺术院校。经部队、文化厅批准在我院成立了战士文工团和云南经贸民族艺术团，为学院学院的发展和舞台教学创造了条件。
    学院位于中国云南昆明官渡区关上东路 64 号中国人民解放军七八一三六部队营区，距离市中心 4 公里，学院拥有现代军事艺术教学楼、排练室、演艺厅、军事作寻常，校园网等,各类设施齐备完善,是当代大中专军事艺术学员学习、生活的理想校园。
    学院十分重视军事科学和专业建设，依托致公党云南省委、云南省政协的资源优势，吸引优秀年轻教师任教，按照“多渠道引进。专兼职结合”的方针，组建了一支以年轻教师为骨干的师资队伍。他们热爱教育事业，拥有丰富的教学经验和良好的业务素质，是学院的中坚力量.以学院的优势为基础，共设置军事艺术和地方普通类等 7 个专业。军委国家和地区经济发展急需专业。随着进一步发展，学院还将开设新的专业，以满足国家和地方经济发展对人才的需求。
    学院育人和育才并举,以“勤奋创新、璞玉成器”为校训；以“高水平起步、高质量办学”为宗旨；坚持“两个基本”，德育为先，服务社会的办学理念,实施因材施教和个性化培养,积极推进教育改革,不断提高教育教学质量. 2008 年，学院进一步提出实施“质量创业工程”.学院正迈开激情奋进的步伐,努力为社会培养“四会五有”（即会学习、会做人、会做事、会与人共处；有感恩之心、有博大胸怀、有吃苦精神、有创新意识、有创业能力）的实用型、应用型和创新型人才。

学院餐厅一角                              学院大门

学院教学楼、排练厅一角                       学院学员宿舍一角
<%end if%> <%end if%>