%
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
%>
|
|
| |||||
|
2005年与2004年高考《考试大纲》(政史地)考点对比
(05/02/23) 2005年国家《高考大纲》出炉(05/02/23) 高中分校获区会考"先进集体"光荣称号(05/01/07) 2005年浙江省高考命题展望(05/01/07) 2005年高考最新信息(04/11/24) 林永德副校长获得市"高中会考先进工作者"光荣称号(04/11/16) 赵存琳老师代表瓯海区作会考经验介绍(04/11/05) 高考金榜(04/09/15) 1999-2002年高考成绩比较表 1999-2002年中考成绩比较表 高中毕业生考入大学名单(2002) 初中毕业生考入省、市重点高中名单
| |||||
| | |||||
| |||||