<%
'**************************************
'* 最后更新 2013-10-17 by 56770.Kingdge
'* Copyright www.56770.com
'**************************************
Dim sitename,rs,SqlNum,Cache,sys_config,sys_pay,sys_gg,sys_sms
Dim Pay_chinabank(20),Pay_alipay(20),Pay_paypal(20),Pay_bill(20),Pay_tenpay(20),Pay_tenpay2(20),Pay_paypal_cn(20),Pay_ips(20),Pay_baofu(20)
Dim kehu_state,kehu_code,jmail_type,jmail_smtp,jmail_sendmail,jmail_sendpass,jmail_sendname,jmail_frommail,jmail_regon,jmail_cashon,jmail_cashoveron,acceptIp,word_filter,sys_searchwords
Dim sms_user,sms_pass,sms_sendtype,sms_sendmode,sms_receiveno,sms_state
Dim gg_s1,gg_s1url,gg_s1txt,gg_s2,gg_s2url,gg_s2txt,gg_s3,gg_s3url,gg_s3txt,gg_s4,gg_s4url,gg_s4txt,gg_tj,gg_tjurl,ifggtj,Ifggtop,ggtop_url,ggtop,gg1_w,gg1_h,ggtop_w,ggtop_h,ggtj_w,ggtj_h,sys_cnzz,cnzz_site_id,cnzz_state
Dim show_html
Set Cache = New Cls_Cache
Set LB = New DBClass
cache.name="Lebi_sys_pay"
cache.reloadtime= 5000
If cache.objisempty() Then
	    set Rs = conn.execute("select p_chinabank,p_alipay,p_paypal,p_99bill,p_tenpay,p_tenpay2,p_paypal_cn,p_ips,p_baofu from [Lebi_pay] where id=1")
	    cache.value = rs.getstring(,1,"<>@<>","","")
		SqlNum = SqlNum + 1
	    rs.close:Set rs=Nothing
End If
sys_pay = Split(cache.value,"<>@<>")
Pay_chinabank(0)=Split(sys_pay(0),"|")(0)
Pay_chinabank(1)=Split(sys_pay(0),"|")(1)
Pay_chinabank(2)=Split(sys_pay(0),"|")(2)
Pay_chinabank(3)=Split(sys_pay(0),"|")(3)
Pay_chinabank(4)=Split(sys_pay(0),"|")(4)
Pay_chinabank(5)=Split(sys_pay(0),"|")(5)
Pay_chinabank(6)=Split(sys_pay(0),"|")(6)
Pay_chinabank(7)=Split(sys_pay(0),"|")(7)
Pay_chinabank(8)=Split(sys_pay(0),"|")(8)
Pay_chinabank(9)=Split(sys_pay(0),"|")(9)
Pay_chinabank(10)=Split(sys_pay(0),"|")(10)
Pay_chinabank(11)=Split(sys_pay(0),"|")(11)
Pay_alipay(0)=Split(sys_pay(1),"|")(0)
Pay_alipay(1)=Split(sys_pay(1),"|")(1)
Pay_alipay(2)=Split(sys_pay(1),"|")(2)
Pay_alipay(3)=Split(sys_pay(1),"|")(3)
Pay_alipay(4)=Split(sys_pay(1),"|")(4)
Pay_alipay(5)=Split(sys_pay(1),"|")(5)
Pay_alipay(6)=Split(sys_pay(1),"|")(6)
Pay_alipay(7)=Split(sys_pay(1),"|")(7)
Pay_alipay(8)=Split(sys_pay(1),"|")(8)
Pay_alipay(9)=Split(sys_pay(1),"|")(9)
Pay_alipay(10)=Split(sys_pay(1),"|")(10)
Pay_alipay(11)=Split(sys_pay(1),"|")(11)
Pay_alipay(12)=Split(sys_pay(1),"|")(12)
Pay_alipay(13)=Split(sys_pay(1),"|")(13)
Pay_alipay(14)=Split(sys_pay(1),"|")(14)
Pay_paypal(0)=Split(sys_pay(2),"|")(0)
Pay_paypal(1)=Split(sys_pay(2),"|")(1)
Pay_paypal(2)=Split(sys_pay(2),"|")(2)
Pay_paypal(3)=Split(sys_pay(2),"|")(3)
Pay_paypal(4)=Split(sys_pay(2),"|")(4)
Pay_paypal(5)=Split(sys_pay(2),"|")(5)
Pay_paypal(6)=Split(sys_pay(2),"|")(6)
Pay_paypal(7)=Split(sys_pay(2),"|")(7)
Pay_paypal(8)=Split(sys_pay(2),"|")(8)
Pay_paypal(9)=Split(sys_pay(2),"|")(9)
Pay_paypal(10)=Split(sys_pay(2),"|")(10)
Pay_paypal(11)=Split(sys_pay(2),"|")(11)
Pay_bill(0)=Split(sys_pay(3),"|")(0)
Pay_bill(1)=Split(sys_pay(3),"|")(1)
Pay_bill(2)=Split(sys_pay(3),"|")(2)
Pay_bill(3)=Split(sys_pay(3),"|")(3)
Pay_bill(4)=Split(sys_pay(3),"|")(4)
Pay_bill(5)=Split(sys_pay(3),"|")(5)
Pay_bill(6)=Split(sys_pay(3),"|")(6)
Pay_bill(7)=Split(sys_pay(3),"|")(7)
Pay_bill(8)=Split(sys_pay(3),"|")(8)
Pay_bill(9)=Split(sys_pay(3),"|")(9)
Pay_bill(10)=Split(sys_pay(3),"|")(10)
Pay_tenpay(0)=Split(sys_pay(4),"|")(0)
Pay_tenpay(1)=Split(sys_pay(4),"|")(1)
Pay_tenpay(2)=Split(sys_pay(4),"|")(2)
Pay_tenpay(3)=Split(sys_pay(4),"|")(3)
Pay_tenpay(4)=Split(sys_pay(4),"|")(4)
Pay_tenpay(5)=Split(sys_pay(4),"|")(5)
Pay_tenpay(6)=Split(sys_pay(4),"|")(6)
Pay_tenpay(7)=Split(sys_pay(4),"|")(7)
Pay_tenpay(8)=Split(sys_pay(4),"|")(8)
Pay_tenpay(9)=Split(sys_pay(4),"|")(9)
Pay_tenpay(10)=Split(sys_pay(4),"|")(10)
Pay_tenpay(11)=Split(sys_pay(4),"|")(11)
Pay_tenpay2(0)=Split(sys_pay(5),"|")(0)
Pay_tenpay2(1)=Split(sys_pay(5),"|")(1)
Pay_tenpay2(2)=Split(sys_pay(5),"|")(2)
Pay_tenpay2(3)=Split(sys_pay(5),"|")(3)
Pay_tenpay2(4)=Split(sys_pay(5),"|")(4)
Pay_tenpay2(5)=Split(sys_pay(5),"|")(5)
Pay_tenpay2(6)=Split(sys_pay(5),"|")(6)
Pay_tenpay2(7)=Split(sys_pay(5),"|")(7)
Pay_tenpay2(8)=Split(sys_pay(5),"|")(8)
Pay_tenpay2(9)=Split(sys_pay(5),"|")(9)
Pay_tenpay2(10)=Split(sys_pay(5),"|")(10)
Pay_tenpay2(11)=Split(sys_pay(5),"|")(11)
Pay_paypal_cn(0)=Split(sys_pay(6),"|")(0)
Pay_paypal_cn(1)=Split(sys_pay(6),"|")(1)
Pay_paypal_cn(2)=Split(sys_pay(6),"|")(2)
Pay_paypal_cn(3)=Split(sys_pay(6),"|")(3)
Pay_paypal_cn(4)=Split(sys_pay(6),"|")(4)
Pay_paypal_cn(5)=Split(sys_pay(6),"|")(5)
Pay_paypal_cn(6)=Split(sys_pay(6),"|")(6)
Pay_paypal_cn(7)=Split(sys_pay(6),"|")(7)
Pay_paypal_cn(8)=Split(sys_pay(6),"|")(8)
Pay_paypal_cn(9)=Split(sys_pay(6),"|")(9)
Pay_paypal_cn(10)=Split(sys_pay(6),"|")(10)
Pay_paypal_cn(11)=Split(sys_pay(6),"|")(11)
Pay_ips(0)=Split(sys_pay(7),"|")(0)
Pay_ips(1)=Split(sys_pay(7),"|")(1)
Pay_ips(2)=Split(sys_pay(7),"|")(2)
Pay_ips(3)=Split(sys_pay(7),"|")(3)
Pay_ips(4)=Split(sys_pay(7),"|")(4)
Pay_ips(5)=Split(sys_pay(7),"|")(5)
Pay_ips(6)=Split(sys_pay(7),"|")(6)
Pay_ips(7)=Split(sys_pay(7),"|")(7)
Pay_ips(8)=Split(sys_pay(7),"|")(8)
Pay_ips(9)=Split(sys_pay(7),"|")(9)
Pay_ips(10)=Split(sys_pay(7),"|")(10)
Pay_ips(11)=Split(sys_pay(7),"|")(11)
Pay_ips(12)=Split(sys_pay(7),"|")(12)
Pay_ips(13)=Split(sys_pay(7),"|")(13)
Pay_baofu(0)=Split(sys_pay(8),"|")(0)
Pay_baofu(1)=Split(sys_pay(8),"|")(1)
Pay_baofu(2)=Split(sys_pay(8),"|")(2)
Pay_baofu(3)=Split(sys_pay(8),"|")(3)
Pay_baofu(4)=Split(sys_pay(8),"|")(4)
Pay_baofu(5)=Split(sys_pay(8),"|")(5)
Pay_baofu(6)=Split(sys_pay(8),"|")(6)
Pay_baofu(7)=Split(sys_pay(8),"|")(7)
Pay_baofu(8)=Split(sys_pay(8),"|")(8)
Pay_baofu(9)=Split(sys_pay(8),"|")(9)
Pay_baofu(10)=Split(sys_pay(8),"|")(10)
Pay_baofu(11)=Split(sys_pay(8),"|")(11)
Pay_baofu(12)=Split(sys_pay(8),"|")(12)
cache.name="Lebi_sys_config"
cache.reloadtime= 5000
If cache.objisempty() Then
	    set Rs = conn.execute("select sys_searchwords,sys_jmail,lockip,word_filter,runmode,sys_sms,sys_cnzz,sys_soft,id from [Lebi_system] where id=1")
	    cache.value = rs.getstring(,1,"><@><","","")
		SqlNum = SqlNum + 1
	    rs.close:Set rs=Nothing
End If
sys_config = Split(cache.value,"><@><")
sys_searchwords = sys_config(0)
jmail_type = split(sys_config(1),"$")(0)
If jmail_type = "" Or Not IsNumeric(jmail_type) Then jmail_type = 0
jmail_smtp = split(sys_config(1),"$")(1)
jmail_sendmail = split(sys_config(1),"$")(2)
jmail_sendpass = split(sys_config(1),"$")(3)
jmail_sendname = split(sys_config(1),"$")(4)
jmail_frommail = split(sys_config(1),"$")(5)
jmail_regon = split(sys_config(1),"$")(6)
If jmail_regon = "" Or Not IsNumeric(jmail_regon) Then jmail_regon = 0
jmail_cashon = split(sys_config(1),"$")(7)
If jmail_cashon = "" Or Not IsNumeric(jmail_cashon) Then jmail_cashon = 0
jmail_cashoveron = split(sys_config(1),"$")(8)
If jmail_cashoveron = "" Or Not IsNumeric(jmail_cashoveron) Then jmail_cashoveron = 0
acceptIp = sys_config(2)
word_filter = sys_config(3)
Select Case sys_config(4)
Case "1" show_html = 1 : ISAPI_Rewrite = 0
Case "2" show_html = 0 : ISAPI_Rewrite = 1
Case Else show_html = 0 : ISAPI_Rewrite = 0
End Select 
sys_sms = sys_config(5)
sms_user = split(sys_config(5),"$")(0)
sms_pass = split(sys_config(5),"$")(1)
sms_sendtype = split(sys_config(5),"$")(2)
sms_sendmode = split(sys_config(5),"$")(3)
sms_receiveno = split(sys_config(5),"$")(4)
sms_state = split(sys_config(5),"$")(5)
sys_cnzz = sys_config(6)
cnzz_site_id = split(sys_config(6),"$$$")(1)
cnzz_state = split(sys_config(6),"$$$")(3)
sys_soft = sys_config(7)

rem	<-{ 会员组信息 2008-2-27 by 56770.WangLei
Dim Sys_UserGroup,temp_row_1,UserGroupNumber
cache.name="Lebi_sys_UserGroup"& LangTxt
cache.reloadtime= 5000
If cache.objisempty() Then
	    set Rs = conn.execute("select grade_dj,price_txt"& LangTxt &",price_qx,is_buy,is_fav,gw_jifen,login_jifen, login_del_jifen,lowprice,is_jifen_zh,jifen_zh,is_auto_accounts,accounts_jifen,accounts_cash,is_plsh, is_advance_booking,is_auto_upgrade,upgrade_jifen,is_del_jifen,grade_name"& LangTxt &",is_auto_degrade,auto_degrade_days,auto_degrade_cash,grade_ico,is_advance,advance_percent,fav_qty from [Lebi_user_grade] order by grade_dj")
	    cache.value = rs.getrows
		SqlNum = SqlNum + 1
	    rs.close:Set rs=Nothing
End If
Sys_UserGroup = cache.value
UserGroupNumber = ubound(Sys_UserGroup,2)
Dim cache_ugrade_dj(20),cache_ugrade_txt(20),cache_ugrade_qx(20),cache_ugrade_buy(20),cache_ugrade_fav(20),cache_buy_jifen(20),cache_login_jifen(20),cache_login_del_jifen(20),cache_low_price(20),cache_is_jifen_zh(20),cache_jifen_zh(20),cache_auto_accounts(20),cache_accounts_jifen(20),cache_accounts_cash(20),cache_comments_auditing(20),cache_advance_booking(20),cache_auto_upgrade(20),cache_upgrade_jifen(20),cache_del_jifen(20),cache_grade_name(20),cache_auto_degrade(20),cache_degrade_days(20),cache_degrade_cash(20),cache_grade_ico(20),cache_is_advance(20),cache_advance_percent(20),cache_fav_qty(20)
For temp_row_1 = 0 To UserGroupNumber
		cache_ugrade_dj(temp_row_1) = Sys_UserGroup(0,temp_row_1)
		cache_ugrade_txt(temp_row_1) = Sys_UserGroup(1,temp_row_1)
		cache_ugrade_qx(temp_row_1) = Sys_UserGroup(2,temp_row_1)
		If Html_page = "1" Or Show_html = "1" Then
				cache_ugrade_buy(temp_row_1) = 1
		Else
				cache_ugrade_buy(temp_row_1) = Sys_UserGroup(3,temp_row_1)
		End If
		cache_ugrade_fav(temp_row_1) = Sys_UserGroup(4,temp_row_1)
		cache_buy_jifen(temp_row_1) = Sys_UserGroup(5,temp_row_1)
		cache_login_jifen(temp_row_1) = Sys_UserGroup(6,temp_row_1)
		cache_login_del_jifen(temp_row_1) = Sys_UserGroup(7,temp_row_1)
		cache_low_price(temp_row_1) = Sys_UserGroup(8,temp_row_1)
		cache_is_jifen_zh(temp_row_1) = Sys_UserGroup(9,temp_row_1)
		cache_jifen_zh(temp_row_1) = Sys_UserGroup(10,temp_row_1)
		cache_auto_accounts(temp_row_1) = Sys_UserGroup(11,temp_row_1)
		cache_accounts_jifen(temp_row_1) = Sys_UserGroup(12,temp_row_1)
		cache_accounts_cash(temp_row_1) = Sys_UserGroup(13,temp_row_1)
		cache_comments_auditing(temp_row_1) = Sys_UserGroup(14,temp_row_1)
		cache_advance_booking(temp_row_1) = Sys_UserGroup(15,temp_row_1)
		cache_auto_upgrade(temp_row_1) = Sys_UserGroup(16,temp_row_1)
		cache_upgrade_jifen(temp_row_1) = Sys_UserGroup(17,temp_row_1)
		cache_del_jifen(temp_row_1) = Sys_UserGroup(18,temp_row_1)
		cache_grade_name(temp_row_1) = Sys_UserGroup(19,temp_row_1)
		cache_auto_degrade(temp_row_1) = Sys_UserGroup(20,temp_row_1)
		cache_degrade_days(temp_row_1) = Sys_UserGroup(21,temp_row_1)
		cache_degrade_cash(temp_row_1) = Sys_UserGroup(22,temp_row_1)
		cache_grade_ico(temp_row_1) = Sys_UserGroup(23,temp_row_1)
		cache_is_advance(temp_row_1) = Sys_UserGroup(24,temp_row_1)
		cache_advance_percent(temp_row_1) = Sys_UserGroup(25,temp_row_1)
		cache_fav_qty(temp_row_1) = Sys_UserGroup(26,temp_row_1)
Next
rem	}->

cache.name="Lebi_sys_gg"
cache.reloadtime= 5000
If Cache.ObjIsEmpty() Then
		sql = "select gg_s1,gg_s1url,gg_s2,gg_s2url,gg_s3,gg_s3url,gg_s4,gg_s4url,gg_tj,gg_tjurl,ifggtj,ifggtop,ggtop_url,ggtop,gg1_w,gg1_h,ggtop_w,ggtop_h,ggtj_w,ggtj_h,gg_s1txt,gg_s2txt,gg_s3txt,gg_s4txt,id from [Lebi_gg]"
		set Rs = conn.execute(sql)
	    cache.value = Rs.GetString(,1, "<><*><>","","")
		SqlNum = SqlNum + 1
		Rs.Close : Set rs=nothing
End If
sys_gg = Split(cache.value,"<><*><>")
gg_s1 = Eshop_url & sys_gg(0)
gg_s1url = sys_gg(1)
gg_s2 = Eshop_url & sys_gg(2)
gg_s2url = sys_gg(3)
gg_s3 = Eshop_url & sys_gg(4)
gg_s3url = sys_gg(5)
gg_s4 = Eshop_url & sys_gg(6)
gg_s4url = sys_gg(7)
gg_tj = sys_gg(8)
gg_tjurl = sys_gg(9)
ifggtj = sys_gg(10)
Ifggtop = sys_gg(11)
ggtop_url = sys_gg(12)
ggtop = sys_gg(13)
gg1_w = sys_gg(14)
gg1_h = sys_gg(15)
ggtop_w = sys_gg(16)
ggtop_h = sys_gg(17)
ggtj_w = sys_gg(18)
ggtj_h = sys_gg(19)
gg_s1txt = sys_gg(20)
gg_s2txt = sys_gg(21)
gg_s3txt = sys_gg(22)
gg_s4txt = sys_gg(23)
cache.name="Language"
cache.reloadtime= 5000
If cache.objisempty() Then
		set rs = conn.execute("select l_txt from [Lebi_language] where l_state = 1 order by l_default desc,l_order desc")
		If Not (rs.eof And rs.bof) Then
				cache.value = rs.getrows()
				cache.DataCount = 1
		Else
				cache.value = ""
				cache.DataCount = 0
		End If
		rs.close : Set rs = Nothing
End If
Lang_Data = cache.value
Lang_DataCount = cache.DataCount
If Lang_DataCount = 1 Then
		For i = 0 To UBound(Lang_Data,2)
		Arr_LangTxt = Arr_LangTxt & Lang_Data(0,i)
		If i < UBound(Lang_Data,2) Then Arr_LangTxt = Arr_LangTxt & ","
		Next
		If UBound(Lang_Data,2) > 0 Then 
			If InStr(Pay_paypal(2),",") = 0 Then 
				Pay_paypal(2) = Pay_paypal(2) &",,,,,,,,"
			End If 
			paypal_currency_code = Split(Pay_paypal(2),",")(getN(Arr_LangTxt,LangTxt,","))
		Else
			paypal_currency_code = Pay_paypal(2)
		End If 
End If
%>