<% dim endtime dim startime startime=timer() %> <% set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)}; dbq= " & server.mappath("news/admin/data/xqxxdata.asp") %> <% dim fso,f,no,I '定义变量绝对是个好习惯 Set fso = CreateObject("Scripting.FileSystemObject") '建立对象的实例 Set f = fso.OpenTextFile(Server.MapPath("count.no"), 1, True) '建立文本文件,打开为只读. response.cookies("JSQAddress").expires=date+1 if f.AtEndOfStream then '判断这个文件是否不存在 no=1 response.cookies("JSQAddress")="fangke" else a=request.cookies("JSQAddress") IF a<>"fangke" THEN no=f.ReadLine no=no+1 response.cookies("JSQAddress")="fangke" else no=f.ReadLine no=no+0 end if end if f.Close set f=fso.OpenTextFile(Server.MapPath("count.no"),2,True) '准备写 f.Write(no) '写入 %> 新桥小学
　 　 　 　

　
姓 名：
密 码：
 
　
　
<% set rs=server.createobject("adodb.recordset") sql="select top 4 * from news where smallclassname='滚动公告栏' order by updatetime desc" rs.open sql,conn,1,1 %>
<% do while not rs.eof %>

target=_blank> <%=rs("title")%> <%=rs("updatetime")%> <% rs.movenext loop rs.close set rs=nothing %>
　
　
<% set rs2=server.CreateObject("ADODB.RecordSet") '专题 rs2.Source="select Top 3 * from Special order by SpecialID DESC " rs2.Open rs2.Source,conn,1,1 if not rs2.EOF then while not rs2.EOF Response.Write "" rs2.MoveNext wend %>
<% else Response.Write "" end if rs2.Close set rs2=nothing %>
  ■ " & trim(rs2("SpecialName")) & "
暂无专题
 　
　
　　学校坚持“人和为本，育人为本，科研为先”的办学思想，从明确教育思想，更新教育观念，改革教学内容、教学方法、教学评价，优化学科课程出发……
　
　　 在这里，你可以欣赏到我校教师在教学中尝试教法改革的点滴体会、老师们的精备课教案，还有我们自己做的优秀课件……
　　这里是孩子的天地。
　　关注孩子的成长和学习历程，请大家一起来努力吧。
　　 为了体现家长对孩子成长及学习的积极和重要，网站特设立了家长学校专栏。借以让孩子们和孩子家长们多多沟通交流，相互理解。
　

关键字:

　 　

设为首页 | 加入收藏 | 关于我们 | 联系我们 | 管理入口
<% endtime=timer() %>页面执行时间：<%= FormatNumber((endtime-startime)*1000,3) %>毫秒   本站访问量：<%=no%>