<% ID=SafeRequest("ID","get") action=SafeRequest("action","get") if ID="" then Response.Write "" Response.End else if not isInteger(ID) then Response.Write "" Response.End end if end if if action="dj" then Set CmsDjMusic = New CmsDj_Com_Dj Set Rs = CmsDjMusic.GetRs("CD_ID,CD_Hits,CD_DownHits,CD_FavHits,CD_DayHits,CD_WeekHits,CD_MonthHits,CD_LastHitTime",0,"CD_ID="&ID) rs("CD_Hits")=rs("CD_Hits")+1 If DateDiff("D", rs("CD_LastHitTime"), Now()) <= 0 Then rs("CD_DayHits") = rs("CD_DayHits") + 1 Else rs("CD_DayHits") = 1 End If If DateDiff("ww", rs("CD_LastHitTime"), Now()) <= 0 Then rs("CD_WeekHits") = rs("CD_WeekHits") + 1 Else rs("CD_WeekHits") = 1 End If If DateDiff("m", rs("CD_LastHitTime"), Now()) <= 0 Then rs("CD_MonthHits") = rs("CD_MonthHits") + 1 Else rs("CD_MonthHits") = 1 End If rs("CD_LastHitTime") = Now() rs.Update Response.Write "document.write('"&rs("CD_hits")&"');" rs.close set rs=nothing elseif action="favhits" then Set CmsDjMusic = New CmsDj_Com_Dj Set Rs = CmsDjMusic.GetRs("CD_ID,CD_FavHits",0,"CD_ID="&ID) CD_FavHits=rs("CD_FavHits") Response.Write "document.write('"&CD_FavHits&"');" rs.close set rs=nothing elseif action="downhits" then Set CmsDjMusic = New CmsDj_Com_Dj Set Rs = CmsDjMusic.GetRs("CD_ID,CD_DownHits",0,"CD_ID="&ID) CD_DownHits=rs("CD_DownHits") Response.Write "document.write('"&CD_DownHits&"');" rs.close set rs=nothing elseif action="special" then Set CmsDjSpecial = New CmsDj_Com_Special Set Rs = CmsDjSpecial.GetRs("CD_ID,CD_Hits",0,"CD_ID="&ID) rs("CD_Hits")=rs("CD_Hits")+1 rs.Update Response.Write "document.write('"&rs("CD_hits")&"');" rs.close set rs=nothing elseif action="news" then Set CmsDjNews = New CmsDj_Com_News Set Rs = CmsDjNews.GetRs("CD_ID,CD_Hits",0,"CD_ID="&ID) rs("CD_Hits")=rs("CD_Hits")+1 rs.Update Response.Write "document.write('"&rs("CD_hits")&"');" rs.close set rs=nothing end if %>