Question

asp如何实现点击量排行？

用户访问的时候获取当前时间，
总点击量+1，
判断当前时间和最后点击时间对比
如果是新的一天则天点击量重置为1，否则天点击量+1
如果是新的一周则周点击量重置为1，否则周点击量+1
如果是新的一月则月点击量重置为1，否则月点击量+1
更新最后点击时间为当前时间
如何判断当前时间和最后点击时间对比我不会！
Function TimeShow_Hits(Idd)
set RsHitss=server.createobject("adodb.recordset")
sql="select MovieDateHits,MovieWeekHits,MovieMonthHits,MovieHits,MovieHitsTime from BOBO_Movie Where ID="&Idd
RsHitss.Open sql,conn,3,3
If Not RsHitss.Eof Then
Show_Hitss=""&RsHitss("MovieHits")&""
RsHitss("MovieHits")=RsHitss("MovieHits")+1
RsHitss("MovieHitsTime")=Now()
RsHitss.update
Else
TimeShow_Hitss="发生错误!"
End If
RsHitss.close
Set RsHitss=Nothing
End Function

Answer 1

原理大概就是这样，但程序我没调试，你试试看：
Function TimeShow_Hits(Idd)
set RsHitss=server.createobject("adodb.recordset")
sql="select MovieDateHits,MovieWeekHits,MovieMonthHits,MovieHits,MovieHitsTime from BOBO_Movie Where ID="&Idd
RsHitss.Open sql,conn,3,3
If Not RsHitss.Eof Then
If DateDiff("m", RsHitss("MovieHitsTime"), Now)=0 Then
RsHitss("MovieMonthHits")=RsHitss("MovieMonthHits")+1
Else
RsHitss("MovieMonthHits")=1
End If
If DateDiff("ww", RsHitss("MovieHitsTime"), Now)=0 Then
RsHitss("MovieWeekHits")=RsHitss("MovieWeekHits")+1
Else
RsHitss("MovieWeekHits")=1
End If
If DateDiff("d", RsHitss("MovieHitsTime"), Now)=0 Then
RsHitss("MovieDateHits")=RsHitss("MovieDateHits")+1
Else
RsHitss("MovieDateHits")=1
End If
RsHitss("MovieHits")=RsHitss("MovieHits")+1
RsHitss("MovieHitsTime")=Now()
RsHitss.update
Else
TimeShow_Hitss="发生错误!"
End If
RsHitss.close
Set RsHitss=Nothing
End Function