|
|
|||||||||||||||||||||
|
<%
picnum=6
set rs=server.CreateObject("adodb.recordset")
conn="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb")
sql="select * from data"
rs.open sql,conn,2,3
ip=Request.ServerVariables("REMOTE_ADDR")
if not ip=session("OldIp") then
session("OldIp")=ip
rs("counter")=rs("counter")+1
rs.update
str=rs("counter")
rs.close
else
str=rs("counter")
rs.close
end if
str=cstr(str)
for i=1 to len(str)
pic=pic&" ![](count/4/"&mid(str,i,1)&".gif) "
next
response.Write(pic)
%>
|
| 京ICP备05050166号 |