📄 zhangcheng.asp
字号:
<!--#include file="Gaobei_head.asp" --><%sub navigation()response.write " >> "response.write "研究生会组织机构"end sub%><div align="center"> <table border="0" cellpadding="0" cellspacing="0" width="778" height="50" bgcolor="#EFEFE7"> <tr> <td width="218" valign="top"><% 'call Gaobei_userlogin() %><% 'Call Gaobei_Marquee()%><% call Gaobei_Search() %><% call Gaobei_vote() %><% call Gaobei_links() %></td> <td width="560" valign="top"><div align="center"> <table border="0" cellpadding="0" cellspacing="0" width="550" height="5"> <tr> <td></td> </tr> </table></div><div align="center"> <table border="0" cellpadding="0" cellspacing="0" width="550" height="160" style="border: 1px solid #CECFCE"> <tr> <td bgcolor="#FFFFFF" width="100%"> <!--留言内容开始--><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0><TBODY><TR> <TD height=56><% dim indexfilename,indeximg,n,x,m indexfilename=right(Request.ServerVariables("PATH_TRANSLATED"),(len(Request.ServerVariables("PATH_TRANSLATED"))-instrRev(Request.ServerVariables("PATH_TRANSLATED"),"\"))) imdeximg="Images/Gaobei_skin/" '图片文件夹 n=5 '每页显示留言数 x=5 '每页显示的页数 txt=1000 '留言的最大字数 dim webtitle,webname,webyn,webgl,webyn2,view2 set rs1 = conn.execute("select * From Gaobei_Set") webtitle=rs1("title") if rs1("webname")<>"" then webname=rs1("webname") if rs1("gbyn")<>"" then webyn=rs1("gbyn") webgl=rs1("gl") rs1.close set rs1=nothing '设置页脚信息 page =Request.QueryString("page") if page="" or page=0 then page=1 action = Request.QueryString("action") action_e = Request.Form("action_e") if action_e <>"" then server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) server_v2=Cstr(Request.ServerVariables("SERVER_NAME")) if mid(server_v1,8,len(server_v2))<>server_v2 then response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>" response.write "<tr><td style='font:9pt Verdana'>" response.write "你提交的路径有误,禁止从站点外部提交数据!" response.write "</td></tr></table></center>" response.end end if end if%><script language="JavaScript"> function gbcount(message,total,used,remain) { var max; max = total.value; if (message.value.length > max) { message.value = message.value.substring(0,max); used.value = max; remain.value = 0; alert("活动信息不能超过 <%=txt%> 个字!"); } else { used.value = message.value.length; remain.value = max - used.value; } }</script> <table width="500" height="18" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" > <tr> <td width="500" height="10" align="center" valign="top"><% '主程序 Select Case action_e Case "Add_New" Call Add_New_Execute() End Select Call Main_Menu() Select Case action Case "" Call View_Words() Case "View_Words" Call View_Words() End Select%> </td> </tr> </table><% Sub Main_Menu() %><div align="center"> <table border="0" cellpadding="0" cellspacing="0" width="100%" height="10"> <tr> <td></td> </tr> </table></div><% End Sub ''''''''''''''''''''''' '查看留言 Sub View_Words() dim gbcount,y,j,k set rs = conn.execute("select COUNT(*) as gbcount From Active") gbcount=rs("gbcount") rs.close if gbcount/n = int(gbcount/n) then '计算出分页数 y=int(gbcount/n) else y=int(gbcount/n)+1 end if page2= int(page/x) if page/x>page2 then page2=page2+1 k=page2*x if k>y then k=y '打开留言字段' if page=1 then sql="select top "&n&" active_id,active_name,active_pic,active_desc,active_bumen,active_time From Active Order By active_id Desc" else sql="select active_id,active_name,active_pic,active_desc,active_bumen,active_time From Active Order By active_id Desc" end if if Page >100 then rs.Open sql,Conn,1 else Set Rs=Conn.Execute(sql) end if if Page>1 then RS.Move n*page-n%><table width="530" border="0" cellspacing="0" cellpadding="0" align="center"><tr> <td width="100%" height="20" >研究生会章程</td></tr></table><TABLE width="100%" height=10 border=0 align=center cellPadding=0 cellSpacing=1 style="border-collapse:collapse" ><TBODY> <TR> <td> 哈尔滨工业大学(威海)研究生会章程第一章 总则第一条 哈尔滨工业大学(威海)研究生会(简称研究生会)是在校党委领导下、校团委指导下的一个由全体研究生组成的“自我教育、自我管理、自我服务”的群众性组织,她直接代表全体研究生的根本利益,及时反映广大研究生的心声,解决广大研究生的实际问题,全心全意为全体研究生服务。第二条 研究生会的基本任务是:(一)以邓小平理论、“三个代表”重要思想和中共中央国务院发出的《关于进一步加强和改进大学生思想政治教育的意见》为指导,坚持以理想信念教育为核心,以爱国主义教育为重点,以思想道德建设为基础,以研究生全面发展为目标的指导思想,倡导并组织全体研究生实现“自我教育、自我管理、自我服务、自我完善”,团结和带动全体研究生努力成为全面的高素质创造性人才。坚持“踏实服务、积极探索、立足创新、展示形象”的工作方针,从学校的工作大局出发,全心全意为研究生的成长成才服务,做全体研究生的知心人和代言人;(二)做学校党委和各职能部处联系研究生的桥梁和纽带,在维护国家和人民利益的前提下,维护全体研究生的正当权益;(三)围绕将哈尔滨工业大学(威海)建设成为世界一流大学的奋斗目标和服务全体研究生成长成才的根本要求,促进我校研究生全面发展,提高综合素质,统揽工作全局,积极开展有我校研究生特色的、健康的、积极向上的课外活动,探索并实践具有哈尔滨工业大学(威海)研究生会特色的素质教育拓展模式;(四)努力加强同兄弟院校研究生会的友好往来和学术交流,同时发展同外国学生的友好关系,提高我校在国内外的知名度。第三条 本会是山东省学生联合会和中华人民共和国学生联合会的团体会员。第二章 会员第四条 凡在本校有学籍的研究生,入学后如未特殊声明,即认为承认本会章程,均为本会会员。本会的一切权力属于全体会员,会员通过研究生代表大会行使权力。第五条 会员的权利:(一)参加研究生会的有关会议和研究生会组织的有关活动;(二)有监督、讨论、建议和批评研究生会工作的权利;(三)遇到困难或不公正待遇时,有权请求本会帮助与保护;(四)有选举权和被选举权;(五)受到学校处分的研究生,在处分期间不享有上述权利。第六条 会员的义务:(一)严格遵守学校的规章制度,自觉执行学校的决定,参加研究生会组织的活动,服从组织的分配,积极完成组织分配的工作;(二)坚持学校的利益高于自己的利益,克己奉公,大胆工作,钻研工作艺术和探索工作方法。第三章 研究生会的组织机构及职能第一节 研究生会干部的选拔及要求第七条 研究生会干部实行聘任制度。聘任干部时,本着“公平竞争,取其精华”的原则。第八条 研究生会干部应思想品德好,作风正派,有较好的组织能力。第九条 研究生会干部是全心全意为学校和研究生服务的研究生代表,是文明,勤奋、创新、进取的先进研究生。第二节 研究生会秘书长第十条 研究生会设秘书长一名,副秘书长若干名。研究生会秘书长由主席团聘请,负责具体指导和协调全体研究生的工作,秘书长一般为校党委推荐的校团委老师。第十一条 研究生会秘书长对校党委、研究生会主席团负责。第十二条 研究生会秘书长的权利和义务:(一) 有审查研究生会经费使用情况的权利;(二) 有接受研究生会工作人员咨询的义务;(三) 有协调主席团和其他职能部门关系的权利和义务。第三节 研究生会的部门及职能第十三条 研究生会的部门包括主席团、办公室、科技实践部、宣传部、生活权益部和文艺体育部。第十四条 主席团的职能是以全体研究生的利益为工作根本,在负责老师的指导下,全面负责研究生会的工作,对全体研究生负责;从宏观角度总领研究生会的各项工作,协调、指导和监督各部门的工作;带好研究生会干部队伍,搞好研究生会干部培养和研究生会自身建设;保持和发扬学校的优良传统,树立研究生会健康、进取、创新的良好形象。第十五条 办公室的职能是负责制定研究生会的各项工作制度和报告,负责财务整理和有关物品收集,并提供、整理有价值和有实效的信息;组织研究生会各项会务工作,对全体研究生会干部工作情况的记录定期以书面形式向秘书长和主席团汇报;协调各部门重大活动的人事安排,协调各方面人事关系,尤其是研究生会各部门与学校各职能部门及社会各界的关系。第十六条 科技实践部的职能是以“科研能力培训,创新思维培养”为主题,以学校的一系列科技竞赛活动为契机,活跃学校科技文化氛围,丰富研究生课余生活。培养研究生基本科研能力和创新思维,如组织研究生参加高水平的科研学术会议和讲座等;组织研究生参加相关的科技竞赛,如全国“挑战杯”课外科技作品大赛等;组织研究生参加生产实习等实践活动。第十七条 宣传部的职能是负责书写各类海报、通知,印发各种宣传材料,建立研究生网站;对研究生会开展的各项活动进行宣传,扩大影响,提高研究生会的知名度。第十八条 生活权益部的职责是充分利用各种渠道收集、整理研究生反映的各种学习、生活中的问题,及时与学校相关部门沟通并将信息反馈给广大研究生;与校学生会生活部进行合作,对本科生与研究生共同存在的问题联合行动,解决问题。第十九条 文艺体育部的职能是广泛地开展有利于研究生身心健康的各项文艺体育活动,活跃校园的文化生活,提高全体研究生的身体素质。第四章 附则第二十条 本章程的解释权属于哈尔滨工业大学(威海)研究生会。第二十一条 本章程自通过之日起生效。哈尔滨工业大学(威海)研究生会二零零五年十月 </td></tr> </TBODY></TABLE><% End Sub %><br><% Conn.Close
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -