%
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
%>
|
|
|
|
||
不再做"井底之蛙" 初二(9)班 苏瑞兆 "井底下的青蛙只能看到井口那么大的一块天……"这个故事大家应该都听过吧,这是形容见识短浅的人的。用这个词来形容我也不为过,然而相逢不如巧遇,这次的澳洲之旅正好给了我一个放眼世界的机会。 |
|||
|
|
|||
|
版权所有:温州育英国际实验学校 制作:计算机管理中心 E-mail:
mkgzs@wzyuying.com
中国·浙江·温州市瓯海区 邮编:325014 电话:0577-86362803 传真:0577-86362372 |
|||