asp与cookie访问次数代码

asp,cookie,访问次数,代码
<%
dim hl
hl = request.cookies("hlf")("visitedtime")
if hl > "0" then
hl = hl + 1
response.write("<p>您已是第<b>" & hl & "</b>次访问本站了</p>")
else
hl = 1
response.write("<p>欢迎您第一次访问本站</p>")
end if

response.cookies("hlf")("visitedtime") = hl
response.cookies("hlf").expires = date() + 365
%>
dim hl
‘获取COOKIES数据
hl = request.cookies("hlf")("visitedtime")
‘这里的判断最好修正下,有的浏览器处理数据方式不同
if not isnumeric(hl) then
hl=1 ‘首次登陆
else
hl=Clng(hl)+1 ‘多次登陆自动加数
end if
response.write("<p>您已是第<b>" & hl & "</b>次访问本站了</p>")
response.cookies("hlf")("visitedtime") = hl
response.cookies("hlf").expires = date() + 365