<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../HSK_Cls/HSK.CommonCls.asp"-->
<%
Response.cachecontrol = "no-cache"
Response.Addheader "pragma", "no-cache"
Response.Expires = -1
Response.expiresAbsolute = Now - 1
Response.Charset = "GB2312"
Response.Addheader "Content-Type", "text/html; charset=gb2312"

Dim HSKCls
Set HSKCls = New HelperInterface
HSKCls.Run()
Set HSKCls = Nothing

Class HelperInterface
	Private HSK, KS

	Private Sub Class_Initialize()
		Set KS = New PublicCls
		Set HSK = CreateObject("HSK_HelperInterface.Interface")
		HSK.Config(DataServer & "||" & DataUser & "||" & DataBaseName & "||" & DataBasePsw)
		'=====================================================================================================
		'=====================================================================================================
		HSK.Collect_AllowCount_DianPu  		= 60	'每个收藏小号每天允许收藏多少个店铺，默认60个
		HSK.Collect_AllowCount_ShangPin 	= 60	'每个收藏小号每天允许收藏多少个商品，默认60个
		HSK.FLow_SameIPDayAllowViewCount	= 1000	'流量任务同一IP每天允许浏览多少次，默认1000次
		HSK.FLow_SameTaskAllowViewCount		= 20	'流量任务同一IP浏览同一任务最大多少次，默认20次
		'提示：收藏任务以先进先收藏方式，流量任务以随机抽取任务方式
		'=====================================================================================================
		'=====================================================================================================
	End Sub
	
	Private Sub Class_Terminate()
		Call CloseConn
		Set KS = Nothing
		HSK.Class_Terminate()
		Set HSK=Nothing
	End Sub
        
    Public Sub Run()
		Call HSK.Run()
    End Sub
End Class
%>