欢迎您来到邵武一中校园网    www.swyz.fj.org
　
<% Sub NumberAppend() Set files=Server.CreateObject("Scripting.FileSystemObject") Set numtxt=files.OpenTextFile(Server.MapPath("Number_sdfz.txt")) Application("Number")=numtxt.ReadLine numtxt.Close Application("Number")=Application("Number")+1 Set numtxt=files.CreateTextFile(Server.MapPath("Number_sdfz.txt"),True) numtxt.WriteLine(Application("Number")) numtxt.Close End Sub Application.Lock NumberAppend Application.UnLock Function GCounter(counter ) Dim S, i, G S = CStr( counter ) For i = 1 to Len(S) G = G & "" Next GCounter = G End Function %> <%=Gcounter(application("number"))%>


首页   /   行风建设   /   信息技术教育   /   校园文化   /   体育之窗   /   学子风采   /   校长信箱

　

  校园风光

校园风光

校园风光

　

 　 ban8.gif (2122 字节)

　

　

　

　

　

　

　

　

　

　

誓词

       我自愿加入中国共产党，拥护党的纲领，遵守党的章程，履行党员义务，执行党的决定，严守党的纪律，保守党的秘密，对党忠诚，积极工作，为共产主义奋斗终身，随时准备为党和人民牺牲一切，永不叛党。

　

 　 制度建设
　 　 制度
　 　 计划和总结
　 　 组织建设
　 　 班子建设
　 　 党员发展
　 　 思想建设
　 　 党的基础知识
　 　 党员电教

学习体会
　 　 党务资料
　 　
　 　 学习园地
　 　
　 　 时事报告…
　 　 中共党史-（转载）