count.asp

来自「一个很好的班级同学录」· ASP 代码 · 共 43 行

<!--#include file="../public/conn.asp" -->
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql= "select * from counter where id=1"
rs.open sql,secondconn,3,3

dim counter
dim sql
dim rs


ip=Request.ServerVariables("REMOTE_ADDR")
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

set rs=conn.execute(sql)

CountLen=len(counternum)

for i=1 to 4-countLen
    pic="<img src=counter/countimages/0.gif  align='absmiddle'></img>"
    dispic="document.write(""" & pic & """);"
    response.write dispic
next 

for i=1 to countlen
	pic="<img src=counter/countimages/" & mid(counternum,i,1) & ".gif  align='absmiddle'></img>"
    dispic="document.write(""" & pic & """);"
    response.write dispic
next 

set rs=conn.execute(sql)
conn.close
set conn=nothing
%>