<%
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Path = "Data Source=" & Server.MapPath("data\count.mdb")
Set conn= Server.CreateObject("ADODB.Connection")
p1=Provider&Path
conn.Open P1
dim visiter 'visiter=访问人数
dim sql 'sql
dim rs
sql="select visiter from visiter"
set rs=conn.execute(sql)
visiter=rs("visiter")
CountLen=len(visiter)
for i=1 to 7 - CountLen
response.write "

"
next
if IsEmpty(Session("connected")) then
application.lock
sql="update visiter set visiter=visiter+1"
set rs=conn.execute(sql)
conn.close
set conn=nothing
application.unlock
end if
for i=1 to countlen
response.write "

"
next
%>