<%
dim visiter
dim sql
dim rs
dim thepage
thepage=Request.Servervariables("SERVER_NAME")
sql="select visiter from visiter"
set rs=conn.execute(sql)
count=rs("visiter")
CountLen=len(count)
for i=1 to 6-countLen
response.write " "
next
for i=1 to countlen
response.write "![](num\") "
next
sql="update visiter set visiter=visiter+1"
Response.Cookies("aaafriendly").Expires=DateAdd("n", 30,now())
if request.cookies("aaafriendly")="" then
set rs=conn.execute(sql)
response.cookies("aaafriendly")="tag"
end if
conn.close
set conn=nothing
%> |
