📄 gethits.asp

📁 淘客网上商店网站程序淘客网上商店网站程序淘客网上商店网站程序
💻 ASP
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Inc/Cl_ClsSysTem.asp"-->
<%
Dim ChannelID,ModuleID,InfoID,sType,IsAdd
Dim sql,rs,TempJs
Dim Hits,DayHits,WeekHits,MonthHits
ChannelID	= Cl.GetClng(Request("ChannelID"))
InfoID		= Cl.GetClng(request("InfoID"))
sType		= ","&Trim(request("Type"))&","
IsAdd		= Lcase(Trim(request("Add")))
if ChannelID=0 or InfoID=0 then
	Response.Write "document.write('0');"
	Response.end
end if
Cl.Get_ChannelSetting(ChannelID)
ModuleID=Cint(Cl.Channel.selectSingleNode("@moduleid").text)
OpenConn
Set rs = server.CreateObject("ADODB.recordset")
Select Case ModuleID
	Case 1 : GetHits_1
	Case 2 : GetHits_2
	Case 3 : GetHits_3
	Case 4 : GetHits_4
	Case 5 : GetHits_5
	Case Else : GetHits_1
End Select
Set rs=Nothing
CloseAllObj
Response.Write "document.write('" & TempJs & "');"

Sub GetHits_1()
	sql = "select Hits,DayHits,WeekHits,MonthHits,LastHitTime from Cl_Article where InfoID=" & InfoID
	rs.open sql, conn, 1, 3
	If rs.bof And rs.eof Then
		Hits = 0
	Else
		Hits = rs(0)
		DayHits = rs(1)
		WeekHits = rs(2)
		MonthHits = rs(3)
		if IsAdd="a" 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
	TempJs=Hits
End Sub

Sub GetHits_2()
	sql = "select Hits,DayHits,WeekHits,MonthHits,LastHitTime from Cl_Soft where InfoID=" & InfoID
	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 IsAdd="a" 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
	if Instr(sType,",0,")=0 And Instr(sType,",1,")=0 And Instr(sType,",2,")=0 And Instr(sType,",3,")=0 then
		TempJs="本日(" & DayHits & ")&nbsp;&nbsp;本周(" & WeekHits & ")&nbsp;&nbsp;本月(" & MonthHits & ")&nbsp;&nbsp;总计(" & Hits & ")"
	else
		TempJs=""
		if Instr(sType,",0,")>0 then
			TempJs=TempJs & "本日(" & DayHits & ")&nbsp;&nbsp;"
		end if
		if Instr(sType,",1,")>0 then
			TempJs=TempJs & "本周(" & WeekHits & ")&nbsp;&nbsp;"
		end if
		if Instr(sType,",2,")>0 then
			TempJs=TempJs & "本月(" & MonthHits & ")&nbsp;&nbsp;"
		end if
		if Instr(sType,",3,")>0 then
			TempJs=TempJs & "总计(" & Hits & ")"
		end if
	end if
End Sub

Sub GetHits_3()
	sql = "select Hits,DayHits,WeekHits,MonthHits,LastHitTime from Cl_Photo where InfoID=" & InfoID
	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 IsAdd="a" 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
	if Instr(sType,",0,")=0 And Instr(sType,",1,")=0 And Instr(sType,",2,")=0 And Instr(sType,",3,")=0 then
		TempJs="本日(" & DayHits & ")&nbsp;&nbsp;本周(" & WeekHits & ")&nbsp;&nbsp;本月(" & MonthHits & ")&nbsp;&nbsp;总计(" & Hits & ")"
	else
		TempJs=""
		if Instr(sType,",0,")>0 then
			TempJs=TempJs & "本日(" & DayHits & ")&nbsp;&nbsp;"
		end if
		if Instr(sType,",1,")>0 then
			TempJs=TempJs & "本周(" & WeekHits & ")&nbsp;&nbsp;"
		end if
		if Instr(sType,",2,")>0 then
			TempJs=TempJs & "本月(" & MonthHits & ")&nbsp;&nbsp;"
		end if
		if Instr(sType,",3,")>0 then
			TempJs=TempJs & "总计(" & Hits & ")"
		end if
	end if
End Sub

Sub GetHits_4()
	sql = "select Hits,DayHits,WeekHits,MonthHits,LastHitTime from Cl_Movie where InfoID=" & InfoID
	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 IsAdd="a" 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
	if Instr(sType,",0,")=0 And Instr(sType,",1,")=0 And Instr(sType,",2,")=0 And Instr(sType,",3,")=0 then
		TempJs="本日(" & DayHits & ")&nbsp;&nbsp;本周(" & WeekHits & ")&nbsp;&nbsp;本月(" & MonthHits & ")&nbsp;&nbsp;总计(" & Hits & ")"
	else
		TempJs=""
		if Instr(sType,",0,")>0 then
			TempJs=TempJs & "本日(" & DayHits & ")&nbsp;&nbsp;"
		end if
		if Instr(sType,",1,")>0 then
			TempJs=TempJs & "本周(" & WeekHits & ")&nbsp;&nbsp;"
		end if
		if Instr(sType,",2,")>0 then
			TempJs=TempJs & "本月(" & MonthHits & ")&nbsp;&nbsp;"
		end if
		if Instr(sType,",3,")>0 then
			TempJs=TempJs & "总计(" & Hits & ")"
		end if
	end if
End Sub

Sub GetHits_5()
	sql = "select Hits,DayHits,WeekHits,MonthHits,LastHitTime from Cl_Product where InfoID=" & InfoID
	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 IsAdd="a" 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
	if Instr(sType,",0,")=0 And Instr(sType,",1,")=0 And Instr(sType,",2,")=0 And Instr(sType,",3,")=0 then
		TempJs="本日(" & DayHits & ")&nbsp;&nbsp;本周(" & WeekHits & ")&nbsp;&nbsp;本月(" & MonthHits & ")&nbsp;&nbsp;总计(" & Hits & ")"
	else
		TempJs=""
		if Instr(sType,",0,")>0 then
			TempJs=TempJs & "本日(" & DayHits & ")&nbsp;&nbsp;"
		end if
		if Instr(sType,",1,")>0 then
			TempJs=TempJs & "本周(" & WeekHits & ")&nbsp;&nbsp;"
		end if
		if Instr(sType,",2,")>0 then
			TempJs=TempJs & "本月(" & MonthHits & ")&nbsp;&nbsp;"
		end if
		if Instr(sType,",3,")>0 then
			TempJs=TempJs & "总计(" & Hits & ")"
		end if
	end if
End Sub

'==================================================
'CreateLive CMS Version 4.0
'							Powered by Aspoo.Net
'
'邮箱: support@aspoo.cn		Info@aspoo.cn
'ＱＱ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005-2007 Aspoo.Net All Rights Reserved.
'==================================================
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -