<%
'//hittime 日期型【rì qī xíng】：获得上【huò dé shàng】次访问🐉时间【shí jiān】🐿
'//hits 数字型【shù zì xíng】✔：获得总浏览量【liú lǎn liàng】💦
'//hitsday 数字型【shù zì xíng】✔：获得今天浏览【tiān liú lǎn】量💦
'//hitsweeks 数字型【shù zì xíng】✔：获得本【huò dé běn】周浏览量【liú lǎn liàng】💦
'//hitmonths 数字型【shù zì xíng】✔：获得本【huò dé běn】月浏览【yuè liú lǎn】量💦
'数据库【shù jù kù】👜中 添加这5个字段。
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from qwbmnewssss where id=26",conn,1,3
if rs1.eof and rs1.bof then
response.write "erry"
else
hittime = rs1("hittime") '获得上【huò dé shàng】次访问🐉时间【shí jiān】🐿
dim dayNow,monthNow,weeknow
dayNow = day(date()) '现在几号【hào】
monthNow = month(date()) '现在几月【yuè】
weekNow = weekday(date()) '现在星期几🤓 0为星期天
rs1("hits") = rs1("hits") + 1 '总浏览次数 + 1

if datediff("d",hittime,now()) = 0 then '比较最后访问日期与现在的🥦时间【shí jiān】🐿 天数
rs1("hitsday") = rs1("hitsday") + 1 '今天的🏍浏览量【liú lǎn liàng】💦 + 1
else
rs1("hitsday") = 1 '今天的🏍浏览量【liú lǎn liàng】💦 = 1
end if

if monthNow = month(hittime) then
rs1("hitmonths") = rs1("hitmonths") + 1 '本月【yuè】的🤤浏览量【liú lǎn liàng】💦 + 1
else
rs1("hitmonths") = 1 '本月【yuè】的🤤浏览量【liú lǎn liàng】💦 + 1
end if

if datediff("d",hittime,now()) > 6 then '在处理📎星期的【xīng qī de】期的时候有一【hòu yǒu yī】个问题🚠，如果上【rú guǒ shàng】🔣一个时🥊间是星【jiān shì xīng】期五，下一次【xià yī cì】访问🐉是下个星期的【xīng qī de】星期二🌒，记录还【jì lù hái】💼是叠加。
rs1("hitsweeks") = 1
else
if weekNow <> 1 then
rs1("hitsweeks") = rs1("hitsweeks") + 1
else
weekNowss = weekday(hittime) '上次访问🐉的星期几🤓
if weekNow = weekNowss then
rs1("hitsweeks") = rs1("hitsweeks") + 1
else
rs1("hitsweeks") = 1
end if
end if
end if

rs1("hittime") = now() '更新最【gèng xīn zuì】后的访【hòu de fǎng】问题意
rs1.update
%>
时间【shí jiān】🐿比较：<%=datediff("d",hittime,now())%><br />
当前时💸间【jiān】：<%=now()%><br />
最后点📞击时间【jī shí jiān】🐱：<%=hittime%><br />
当前天【dāng qián tiān】🐪：<%=dayNow%><br />
当前月【yuè】：<%=monthNow%><br />
当前周♎：<%=weekNow%><br />

总共浏【zǒng gòng liú】览量💦：<%=rs1("hits")%><br />
今天访【jīn tiān fǎng】问量【wèn liàng】🌽：<%=rs1("hitsday")%><br />
星期访【xīng qī fǎng】问量【wèn liàng】🌽：<%=rs1("hitsweeks")%><br />
当月【yuè】访问量【wèn liàng】🌽：<%=rs1("hitmonths")%><br />
<%
end if
rs1.close
set rs1=nothing
%>