<%@LANGUAGE="VBSCRIPT"%> <% Dim ggcx Dim ggcx_numRows Set ggcx = Server.CreateObject("ADODB.Recordset") ggcx.ActiveConnection = MM_conn_STRING ggcx.Source = "SELECT 编号, 标题, 发布日期 FROM 公告" ggcx.CursorType = 0 ggcx.CursorLocation = 2 ggcx.LockType = 1 ggcx.Open() ggcx_numRows = 0 %> <% Dim tbtj__MMColParam tbtj__MMColParam = "True" If (Request("MM_EmptyValue") <> "") Then tbtj__MMColParam = Request("MM_EmptyValue") End If %> <% Dim tbtj Dim tbtj_numRows Set tbtj = Server.CreateObject("ADODB.Recordset") tbtj.ActiveConnection = MM_conn_STRING tbtj.Source = "SELECT 编号, 标题, 发布日期 FROM 特别推荐 WHERE 显示 = " + Replace(tbtj__MMColParam, "'", "''") + "" tbtj.CursorType = 0 tbtj.CursorLocation = 2 tbtj.LockType = 1 tbtj.Open() tbtj_numRows = 0 %> <% Dim xxdt__MMColParam tbtj__MMColParam = "1" If (Request.QueryString("id") <> "") Then tbtj__MMColParam = Request.QueryString("id") End If %> <% Dim xxdt Dim xxdt_numRows 'SS=request.QueryString("id") Set tbtj = Server.CreateObject("ADODB.Recordset") tbtj.ActiveConnection = MM_conn_STRING tbtj.Source = "SELECT * FROM 特别推荐 WHERE 编号 = " + Replace(tbtj__MMColParam, "'", "''") + "" tbtj.CursorType = 0 tbtj.CursorLocation = 3 tbtj.LockType = 1 tbtj.Open() tbtj_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 ggcx_numRows = ggcx_numRows + Repeat1__numRows %> <% Dim Repeat7__numRows Dim Repeat7__index Repeat7__numRows = -1 Repeat7__index = 0 tbtj_numRows = tbtj_numRows + Repeat7__numRows %> 萍乡市经济开发区光丰小学 >> 德育之窗
今天是：

  学校正以“人性化管理，研究型教师、学习化校园”的崭新理念，朝着“环境美、服务好、质量高、有特色”，并让每一位学生的潜能都得到和谐发展的理想境界迈进。
您现在的位置： 光丰小学 >> 德育之窗
 
 关于转发省教育厅《关于举办第三届〈中国教师报〉读报用报征文比赛的通知》的通知
   
版权所有：萍乡市经济开发区光丰小学 <% '一个简单的计数器程序 Set fs=CreateObject("Scripting.FileSystemObject") Set a=fs.openTextFile(server.mappath("count.txt")) count=a.readline response.write "现在的访问量是：" & count count=count+1 Set fs = CreateObject("Scripting.FileSystemObject") Set a=fs.createTextfile(server.mappath("count.txt")) a.writeline (count) %>
<% ggcx.Close() Set ggcx = Nothing %> <% tbtj.Close() Set tbtj = Nothing %>