%
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
%>
|
|
挑战·信念·代价·成功
(05/04/15)
中考金榜(03/09/12) 高考续写辉煌(03/09/09) 我省公安院校体能测试分数线揭晓(03/04/12) 体育类专业术科考试分数线划定 (03/04/12) 艺术类音乐专业统考分数线揭晓 (03/04/12) 美术类考试专业分数线划定 (03/04/12) 【招办主任访谈录】 北京大学:全面推进按院系招生和培养(03/04/12) 【招办主任访谈录】 清华大学:拓宽专业口径强调通识教育(03/04/12) 浙大自主招生方案出台(03/03/21) 普通高等学校招生体检工作指导意见(03/03/21) 浙师大今年招生有新变化(03/03/21) 今年高考招生有六处变化 细看2003年高校招生政策新变 我省2003年普通高校招生日程安排确定 今年高校招生将有重大变革 高考艺术类专业开始报名(报名时间:2月23日至24日) 今年高考怎么考 名师解读《高考说明》 提醒广大考生:艺术类招生本月20日报名 | |||
| | |||
| |||