sethits.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

<!--#include file="Conn.asp"-->
<!--#include file="Inc/Cl_ClsSysTem.asp"-->
<%
Dim ChannelID,ModuleID,InfoID
Dim SQL,Rs,TempJs
Dim Hits,DayHits,WeekHits,MonthHits
ChannelID	= Cl.GetClng(Request("ChannelID"))
InfoID		= Cl.GetClng(request("InfoID"))
Call SetInfoHits()
CloseAllObj
TempJs = "var Hits = "&Hits&";" & VbCrlf
TempJs = TempJs + "var DayHits = "&DayHits&";" & VbCrlf
TempJs = TempJs + "var WeekHits = "&WeekHits&";" & VbCrlf
TempJs = TempJs + "var MonthHits = "&MonthHits&";" & VbCrlf
TempJs = TempJs + "var obj = null;" & VbCrlf
TempJs = TempJs + "obj = document.getElementById('InfoHits');" & VbCrlf
TempJs = TempJs + "if (obj){obj.innerText = Hits;}" & VbCrlf
TempJs = TempJs + "obj = document.getElementById('InfoDayHits');" & VbCrlf
TempJs = TempJs + "if (obj){obj.innerText = DayHits;}" & VbCrlf
TempJs = TempJs + "obj = document.getElementById('InfoWeekHits');" & VbCrlf
TempJs = TempJs + "if (obj){obj.innerText = WeekHits;}" & VbCrlf
TempJs = TempJs + "obj = document.getElementById('InfoMonthHits');" & VbCrlf
TempJs = TempJs + "if (obj){obj.innerText = MonthHits;}" & VbCrlf
Response.Write(TempJs)

Sub SetInfoHits()
	if ChannelID=0 or InfoID=0 then
		Hits=0 : DayHits=0 : WeekHits=0 : MonthHits=0 : Exit Sub
	end if
	Cl.Get_ChannelSetting(ChannelID)
	Set rs = server.CreateObject("ADODB.recordset")
	SQL = "select Top 1 Hits,DayHits,WeekHits,MonthHits,LastHitTime from ["&Cl.Channel.selectSingleNode("@infotable").text&"] where InfoID=" & InfoID
	OpenConn : rs.open sql, conn, 1, 3
	If rs.bof And rs.eof Then
		Hits=0 : DayHits=0 : WeekHits=0 : MonthHits=0
	Else
		Hits = rs(0)
		DayHits = rs(1)
		WeekHits = rs(2)
		MonthHits = rs(3)
		If Cl.Channel.selectSingleNode("@moduleid").text<>"2" then
		rs(0) = Hits + 1
		If DateDiff("D",rs("LastHitTime"),Now())<=0 Then 
			rs(1) = DayHits + 1
		Else 
			rs(1) = 1
		End If 
		If DateDiff("ww",rs("LastHitTime"),Now())<=0 Then 
			rs(2) = WeekHits + 1
		Else 
			rs(2) = 1
		End If 
		If DateDiff("m",rs("LastHitTime"),Now())<=0 Then 
			rs(3) = MonthHits + 1
		Else 
			rs(3) = 1
		End If
		Rs.Update
		End if
	end if
	rs.close : Set rs=Nothing
End Sub

'==================================================
'CreateLive CMS Version 4.0
'							Powered by Aspoo.Net
'
'邮箱: [e-mail]		[e-mail]
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005-2007 Aspoo.Net All Rights Reserved.
'==================================================
%>