%
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
%>
|
|
| | ||||
《育英教科简讯》简介 《育英教科简讯》是由学校教科室主办,反映最新教科研动态,发表校内外(以校内为主)教科研理论文章,展示我校教研科成果的一本校内教学科研刊物。主要栏目设置有:教科热线、教星璀璨、春华秋实、向您推荐、专题报道、名家热线、教研沙龙等十几个栏目。 《育英教科简讯》1998年创刊,现已印行10期,刊出各类文章200多篇,成为"名优教师的益友,教科兴校的窗口"。 [周清菊] | |||||
| | |||||
| |||||