<%
'*****************************************
'* 软件名称 乐彼网上开店软件(56770 EShop)
'* 软件开发 http://www.56770.com
'* 版权所有 http://www.56770.com
'* 文件名称 config.asp
'* 最后更新 2012-05-22 by 56770.kingdge
'*****************************************
Dim App_DataCount,App_Language,LanguageName(10),LanguageTxt(10),LanguagePath(10),LanguageFile(10),LanguageMoney(10),LanguageRate(10),LanguageSkin(10),LanguageMark(10),LanguageID(10),LicenseData,ArrData
Dim sys_upgrade,IsUpgrade,AutoCheck,Upgrade_User,Upgrade_Pwd
set rs = conn.execute("select l_name,l_txt,l_path,l_file,l_money,l_rate,template,l_mark,l_id from [Lebi_language] where l_state = 1 order by l_id asc")
If Not (rs.eof And rs.bof) Then
		App_Language = rs.getrows()
		App_DataCount = 1
Else
		App_DataCount = 0
End If
rs.close : Set rs = Nothing
If App_DataCount = 1 Then
		For i = 0 To UBound(App_Language,2)
		LanguageName(i+1) = App_Language(0,i)
		LanguageTxt(i+1) = App_Language(1,i)
		LanguagePath(i+1) = App_Language(2,i)
		LanguageFile(i+1) = App_Language(3,i)
		LanguageMoney(i+1) = App_Language(4,i)
		LanguageRate(i+1) = App_Language(5,i)
		LanguageSkin(i+1) = App_Language(6,i)
		LanguageMark(i+1) = App_Language(7,i)
		LanguageID(i+1) = App_Language(8,i)
		Next
		TotalLang = UBound(App_Language,2)+1
Else
		TotalLang = 1
End If
Dim lock
Set rs = conn.execute("select lock from [Lebi_system]")
If Not rs.eof Then
		lock = rs(0)
End If
rs.close : Set rs = Nothing
LangFilePath = request.cookies(cookiesname)("LangFilePath")
If LangFilePath = "" Then LangFilePath = Session(cookiesname&"_admin"&"LangFilePath")
If LangFilePath = "" Then LangFilePath = "zh-cn"
LicenseData = GetLicenseData("56770eshop","key")
ArrData = Split(LicenseData,"|")
Set rs = conn.execute("select sys_upgrade from [lebi_system]")
sys_upgrade = rs(0)
rs.close : Set rs = Nothing
IsUpgrade = Split(sys_upgrade,"|")(0)
AutoCheck = Split(sys_upgrade,"|")(1)
Upgrade_User = Split(sys_upgrade,"|")(2)
Upgrade_Pwd = Split(sys_upgrade,"|")(3)
%>