%
set counter=server.createobject("mswc.counters")
counter.increment(counts)
'response.buffer=true
sub gcounter
picture=slt
picnum=6
'POWERED BY SLIGHTBOY
set conn=Server.CreateObject("ADODB.connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("..\database\tj.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sql= "select * from data where id=1"
rs.open sql,conn,3,3
'防刷代码开始
ip=Request.ServerVariables("REMOTE_ADDR")
'比对新老IP
if not ip=session("OldIp") then
session("OldIp")=ip
rs("counter")=rs("counter")+1
rs.update
counternum=rs("counter")
rs.close
else
counternum=rs("counter")
rs.close
end if
counternum=cstr(counternum)
response.write counternum
' digits=6
' for i=digits-1 to 0 step -1
' temp=fix(counternum/10^i)
' response.write ""
' counternum=counternum-temp*10^i
' next
end sub
%>
|
|
| | ||||
《教苑探微》简介 《教苑探微--教育教学优秀论文集(三)》系我校"素质教育探索丛书"之六。文集总结了在"科研兴教"、"名师工程"实践中,我校教师在各学科方面的理论与实践成果,包括:课题研究结题报告,常规教学经验总结,德、智、体、美方面的探究,培养人文素质和科学素质的体会,发展学生个性心理品质和特长的思考,以及小班化教育的实践成果,管理方面的工作经验等等,既展现了我校教科研的雄厚实力,又展现了我校高质量、高起点的管理者和教师队伍形象。全书收录了62篇论文。其中刊发在各级报刊杂志上的有15篇,获区级以上竞赛奖的有19篇。 (饶邦军)
| |||||
| | |||||
| |||||