<% '**************************************************** ' Software name:Jing CMS 1.1 '**************************************************** Dim KS Set JL=New PublicCls Dim ChannelID,ID,Hits,RS,SqlStr,HitsByDay,HitsByWeek,HitsByMonth,Action ChannelID=JL.ChkClng(JL.S("M")) ID = JL.ChkClng(JL.S("ID")) Action=JL.G("Action") If Action="commentnum" Then '评论数 Dim PostID:PostID=JL.ChkClng(JL.S("PostID")) If PostID=0 OR JL.ChkClng(JL.C_S(Channelid,6))<>1 Then JL.Die "document.write('我要评论(" & conn.execute("select count(id) as num FROM JL_comment where channelid=" & channelid & " and infoid=" & id)(0) & ")');" Else Set RS=Conn.Execute("Select top 1 PostTable From " & JL.C_S(ChannelID,2) & " Where PostID=" & PostID & " and ID=" & ID) If Not RS.Eof Then Dim PostTable:PostTable=RS(0) RS.Close:Set RS=Nothing JL.Die "document.write('参与跟帖(" & Conn.Execute("Select Count(ID) From "& PostTable & " Where Verific=1 And parentid<>0 and TopicId=" & PostID)(0) & ")');" End If End If JL.Die "" End If If ID = 0 Or ChannelID=0 Then Hits = 0 Else Set RS = Server.CreateObject("ADODB.Recordset") SqlStr = "SELECT top 1 Hits,HitsByDay,HitsByWeek,HitsByMonth,LastHitsTime FROM [" & JL.C_S(ChannelID,2) & "] Where ID=" & ID If JL.ChkClng(JL.C_S(ChannelID,6))=3 Then RS.Open SqlStr, conn, 1,1 If RS.bof And RS.EOF Then Hits = 0 Else Hits=rs(0) HitsByDay=rs(1) HitsByWeek=rs(2) HitsByMonth=rs(3) End If Else RS.Open SqlStr, conn, 1, 3 If RS.bof And RS.EOF Then Hits = 0 Else IF Action="Count" Then rs(0) = rs(0) + 1 If JL.ChkClng(DateDiff("Ww", rs(4), Now())) <= 0 Then rs(2) = rs(2) + 1 Else rs(2) = 1 End If If DateDiff("M", rs(4), Now()) <= 0 Then rs(3) = rs(3) + 1 Else rs(3) = 1 End If If DateDiff("D", rs(4), Now()) <= 0 Then rs(1) = rs(1) + 1 Else rs(1) = 1 rs(4) = Now() End If rs.Update Conn.Execute("Update [jl_ItemInfo] Set Hits=" & RS(0) & ",HitsByDay=" & RS(1) & ",HitsByWeek=" & RS(2) & ",HitsByMonth=" & RS(3) & ",LastHitsTime=" & SQLNowString&" Where channelid=" & ChannelID & " and InfoID=" & ID) End IF Hits=rs(0) HitsByDay=rs(1) HitsByWeek=rs(2) HitsByMonth=rs(3) End If End If rs.Close:Set rs = Nothing End If Select Case JL.ChkClng(JL.S("GetFlag")) Case 0 Response.Write "document.write('" & Hits & "');" Case 1 Response.Write "document.write('" & HitsByDay & "');" Case 2 Response.Write "document.write('" & HitsByWeek & "');" Case 3 Response.Write "document.write('" & HitsByMonth & "');" End Select Call CloseConn() Set JL=Nothing %>