<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="TaskConfig.asp"-->
<!--#include file="../HSK_Cls/HSK.MemberCls.asp"-->
<!--#include file="../HSK_Cls/HSK.Label.CommonCls.asp"-->
<%
Dim KSCls
Set KSCls = New BinDingCls
KSCls.Run()
Set KSCls = Nothing

Class BinDingCls
	Private HSK
	Private KS,KSUser,LoginTF,StartTime
	
	Private Sub Class_Initialize()
		Set KS = New PublicCls
		Set KSUser = New UserCls
		Set HSK = CreateObject("ASP_AiCaiBa.AiCaiBa")
		Set HSK = HSK.AiCaiBa (TaskConfig,1002)	
	End Sub
	
	Private Sub Class_Terminate()
		Call CloseConn()
		Set KS=Nothing
		Set KSUser=Nothing
		HSK.Class_Terminate()
		Set HSK=Nothing
	End Sub
	
	Public Sub Run()
		LoginTF=Cbool(KSUser.UserLoginChecked)
		IF LoginTF=false  Then
		  GCls.ComeUrl=GCls.GetUrl()
		  Response.Redirect("/user/login/")
		  Exit Sub
		End If
		Call HSK.CheckAction()
		
		Dim Template,KSR
		FCls.RefreshType = "Index"
		Set KSR = New Refresh
		Template = KSR.LoadTemplate("Template/刷客买卖号绑定页.html")
		Template = KSR.KSLabelReplaceAll(Template)
		Set KSR = Nothing
		StartTime = Timer()
		Call HSK.InitialSearch()
		Call HSK.Scan(Template)
	End Sub

End Class
%>
