自己使用的一套ASP网页计数器代码每次刷新都会增加访问数,帮忙看看在count.asp中加入怎样的代码才能防刷新计数?
自己使用的ASP网页计数器代码coun.asp
document.write("");
以上代码文件中涉及到的文件conn.asp(也许无用,仅列于此,供参考)
", ">")
fString = replace(fString, "
")
fString = Replace(fString, CHR(10), "
")
HTMLEncode = fString
end function
'检查输入email是否合法
function IsValidEmail(email)
Dim names
Dim name
Dim i
Dim c
IsValidEmail = true
names = Split(email, "@")
if UBound(names)1 then
IsValidEmail = false
exit function
end if
for each name in names
if Len(name)2 and i3 then
IsValidEmail = false
exit function
end if
if InStr(email, "..") > 0 then
IsValidEmail = false
end if
end function
%>
|