<%


	'此文件的功能主要是获取基本数据
	'------------------------------------------------------
	const NotAdmin="    你没有足够的权限！"
	dim founderr, OutMsg, bottomadv
	founderr=false

	dim topic, mailbody	'邮件的标题 和 内容


	'系统参数读取
	'------------------------------------------------------------------------------------------
	dim HOST		'系统服务器
	dim SMTPServer		'邮件服务器
	dim SystemEmail		'系统邮件
	dim PermitedExt		'允许上传的文件类型
	dim Const_TestDays	'允许用户试用天数
	dim Const_MaxSMSFriend	'短消息栏目用户可以添加的好友最大个数
	dim Const_MaxSMSMsgLen
	dim Const_MaxChildColumn
	
       sql = "select HOSTNAME, SMTPServer, SystemEmail, PermitedExt, TestDays, " &_
		"MaxSMSFriend, MaxSMSMsgLen, MaxChildColumn " &_
		"from [config] where id=1"
	rs.Open sql,conn,1,1
		HOST = rs("HOSTNAME")
		SMTPServer = rs("SMTPServer")
		SystemEmail = rs("SystemEmail")
		PermitedExt = rs("PermitedExt")
		Const_TestDays = rs("TestDays")
		Const_MaxSMSFriend = rs("MaxSMSFriend")
		Const_MaxSMSMsgLen = rs("MaxSMSMsgLen")
		Const_MaxChildColumn = rs("MaxChildColumn")
	rs.Close




	'读取当前 HOST URL
	'------------------------------------------------------------------------------------------
	dim CurrentHostName, ArrCurrentHostName, HLang, Const_HOST
	CurrentHostName = lcase(request.servervariables("HTTP_HOST"))
	ArrCurrentHostName = split( CurrentHostName,"." )
	HLang = ubound(ArrCurrentHostName)
	if HLang>=1 then	'例如： >1的：www.jndiy.com / aaa.aaa.jndiy.com ::: =1 的 jndiy.com / 8n6.com
		Const_HOST = ArrCurrentHostName(HLang-1) & "." & ArrCurrentHostName(HLang)
	else
		Const_HOST = "8n6.com"
	end if
	HOST = Const_HOST	'强制设置当前 HOST 为动态获取的 HOST URL



	'定义级别
	''------------------------------------------------------------------------------------------
	dim ArrAdminFlagTitle(9)
	ArrAdminFlagTitle(1) = "总站长"
	ArrAdminFlagTitle(2) = "管理员"
	ArrAdminFlagTitle(3) = "合作伙伴"	'一级代理
	ArrAdminFlagTitle(4) = "伙伴代理"	'二级代理
	ArrAdminFlagTitle(5) = "高级代理"	'三级代理
	ArrAdminFlagTitle(6) = "普通代理"	'四级代理
	ArrAdminFlagTitle(9) = "客户"





	'定义原始菜单
	''------------------------------------------------------------------------------------------
	dim PrimaryMenu(19)
		PrimaryMenu( 0) = "intro"
		PrimaryMenu( 1) = "product"
		PrimaryMenu( 2) = "news"
		PrimaryMenu( 3) = "order"
		PrimaryMenu( 4) = "job"
		PrimaryMenu( 5) = "manage"
		PrimaryMenu( 6) = "trade"
		PrimaryMenu( 7) = "column1"
		PrimaryMenu( 8) = "column2"
		PrimaryMenu( 9) = "column3"
		PrimaryMenu(10) = "column4"
		PrimaryMenu(11) = "column5"
		PrimaryMenu(12) = "column6"
		PrimaryMenu(13) = "column7"
		PrimaryMenu(14) = "column8"
		PrimaryMenu(15) = "column9"
		PrimaryMenu(16) = "column10"
		PrimaryMenu(17) = "contactus"
		PrimaryMenu(18) = "edefault"

	dim CPrimaryMenu(14)
		CPrimaryMenu( 0) = "公司简介"
		CPrimaryMenu( 1) = "产品介绍"
		CPrimaryMenu( 2) = "公司新闻"
		CPrimaryMenu( 3) = "查看定单"
		CPrimaryMenu( 4) = "招聘信息"
		CPrimaryMenu( 5) = "网站维护"
		CPrimaryMenu( 6) = "自助交易"
		CPrimaryMenu( 7) = "自建专栏"
		CPrimaryMenu( 8) = "自建专栏"
		CPrimaryMenu( 9) = "自建专栏"
		CPrimaryMenu(10) = "自建专栏"
		CPrimaryMenu(11) = "自建专栏"
		CPrimaryMenu(12) = "自建专栏"
		CPrimaryMenu(13) = "联系方式"
		CPrimaryMenu(14) = "English"

	dim EPrimaryMenu(14)
		EPrimaryMenu( 0) = "Introduction"
		EPrimaryMenu( 1) = "Production"
		EPrimaryMenu( 2) = "News"
		EPrimaryMenu( 3) = "Order Info"
		EPrimaryMenu( 4) = "Job Info"
		EPrimaryMenu( 5) = "administer"
		EPrimaryMenu( 6) = "trade"
		EPrimaryMenu( 7) = "Diy Column"
		EPrimaryMenu( 8) = "Diy Column"
		EPrimaryMenu( 9) = "Diy Column"
		EPrimaryMenu(10) = "Diy Column"
		EPrimaryMenu(11) = "Diy Column"
		EPrimaryMenu(12) = "Diy Column"
		EPrimaryMenu(13) = "Contact Us"
		EPrimaryMenu(14) = "中文版本"



	const defaultMenu = "intro|product|news|order|job|manage|contactus|edefault"
	const defaultMenuCN = "公司简介|产品介绍|公司新闻|查看定单|招聘信息|网站维护|联系方式|English"
	const defaultMenuEN = "Introduction|Production|News|Order Info|Job Info|Administer|Contact Us|中文版本"
	Const defaultMenuSet = "intro=1;公司简介;Introduction|product=1;产品介绍;Production|news=1;公司新闻;News|order=1;查看定单;Order Info|job=1;招聘信息;Job Info|manage=1;网站维护;administer|trade=0;自助交易;trade|column1=0;自建专栏;Diy Column|column2=0;自建专栏;Diy Column|column3=0;自建专栏;Diy Column|column4=0;自建专栏;Diy Column|column5=0;自建专栏;Diy Column|column6=0;自建专栏;Diy Column|column7=0;自建专栏;Diy Column|column8=0;自建专栏;Diy Column|column9=0;自建专栏;Diy Column|column10=0;自建专栏;Diy Column|contactus=1;联系方式;Contact Us|edefault=1;English;中文版本"


	'定义原始版本类型
	''------------------------------------------------------------------------------------------
	dim System_Ver(1)
		System_Ver(0) = "CN"
		System_Ver(1) = "EN"
	dim strSystem_Ver(1)
		strSystem_Ver(0) = "中文版本"
		strSystem_Ver(1) = "英文版本"



	dim ArrArea(46)
		ArrArea( 0) = "中国.北京市"
		ArrArea( 1) = "中国.天津市"
		ArrArea( 2) = "中国.上海市"
		ArrArea( 3) = "中国.重庆市"
		ArrArea( 4) = "中国.河北"
		ArrArea( 5) = "中国.山西"
		ArrArea( 6) = "中国.内蒙古"
		ArrArea( 7) = "中国.辽宁"
		ArrArea( 8) = "中国.吉林"
		ArrArea( 9) = "中国.黑龙江"
		ArrArea(10) = "中国.江苏"
		ArrArea(11) = "中国.浙江"
		ArrArea(12) = "中国.安徽"
		ArrArea(13) = "中国.福建"
		ArrArea(14) = "中国.江西"
		ArrArea(15) = "中国.山东"
		ArrArea(16) = "中国.河南"
		ArrArea(17) = "中国.湖北"
		ArrArea(18) = "中国.湖南"
		ArrArea(19) = "中国.广东"
		ArrArea(20) = "中国.广西"
		ArrArea(21) = "中国.海南"
		ArrArea(22) = "中国.四川"
		ArrArea(23) = "中国.贵州"
		ArrArea(24) = "中国.云南"
		ArrArea(25) = "中国.西藏"
		ArrArea(26) = "中国.陕西"
		ArrArea(27) = "中国.甘肃"
		ArrArea(28) = "中国.青海"
		ArrArea(29) = "中国.宁夏"
		ArrArea(30) = "中国.新疆"
		ArrArea(31) = "中国.香港"
		ArrArea(32) = "中国.台湾"
		ArrArea(33) = "瑞士"
		ArrArea(34) = "新加坡"
		ArrArea(35) = "荷兰"
		ArrArea(36) = "日本"
		ArrArea(37) = "德国"
		ArrArea(38) = "意大利"
		ArrArea(39) = "加拿大"
		ArrArea(40) = "英国"
		ArrArea(41) = "瑞典"
		ArrArea(42) = "新西兰"
		ArrArea(43) = "韩国"
		ArrArea(44) = "法国"
		ArrArea(45) = "澳大利亚"
		ArrArea(46) = "其它地区"


	dim ArrHangye(40)
		ArrHangye( 0) = "工业设备"
		ArrHangye( 1) = "化工及日用化学品"
		ArrHangye( 2) = "广告、策划"
		ArrHangye( 3) = "公用服务事业"
		ArrHangye( 4) = "党政机关行业"
		ArrHangye( 5) = "通讯产品"
		ArrHangye( 6) = "中介、人才交流"
		ArrHangye( 7) = "化妆与养护"
		ArrHangye( 8) = "家具、木材"
		ArrHangye( 9) = "环保行业"
		ArrHangye(10) = "保险、福利"
		ArrHangye(11) = "摄影摄像用品"
		ArrHangye(12) = "律师事务所、信息咨询"
		ArrHangye(13) = "贸易与代理"
		ArrHangye(14) = "医药保健"
		ArrHangye(15) = "建筑与装饰"
		ArrHangye(16) = "房地产"
		ArrHangye(17) = "电脑、软件、网络"
		ArrHangye(18) = "食品与饮料"
		ArrHangye(19) = "农、林、牧、副、渔"
		ArrHangye(20) = "能源行业"
		ArrHangye(21) = "艺术、工艺、收藏品"
		ArrHangye(22) = "玩具和宠物"
		ArrHangye(23) = "办公用品"
		ArrHangye(24) = "包装、印刷"
		ArrHangye(25) = "教育、就业、移民"
		ArrHangye(26) = "商展、会议"
		ArrHangye(27) = "安全、保安设备"
		ArrHangye(28) = "冶金矿产"
		ArrHangye(29) = "体育用品与运动服饰"
		ArrHangye(30) = "儿童、妇女用品"
		ArrHangye(31) = "家用电器"
		ArrHangye(32) = "模具、模料"
		ArrHangye(33) = "家居用品、日常用品"
		ArrHangye(34) = "玻璃陶瓷"
		ArrHangye(35) = "电子产品"
		ArrHangye(36) = "邮政、电信"
		ArrHangye(37) = "服装、纺织、皮革"
		ArrHangye(38) = "城市建设事业"
		ArrHangye(39) = "科技开发"
		ArrHangye(40) = "其他行业"



	'定义系统错误解释
	''------------------------------------------------------------------------------------------
	const SysErr = "发生系统故障，无法连接服务器和客户端，次错误可能是由于您当前使用的系统引起，您可以重新启动计算机再试试！"







	'从 Cookies 获取用户信息
	'------------------------------------------------------------------------------------------
	dim Cook_userid, Cook_UserName, Cook_ComName, Cook_adminFlag, Cook_UserEmail  'Cookies 里的变量
	dim Cook_MemoryUserName '永久记录在 Cookies 里的用户名

	dim name, OldPassword, password, confirmPwd
	dim email, tel

	Cook_userid = request.Cookies("admin")("userid")
	Cook_UserName = request.Cookies("admin")("name")
	Cook_ComName = request.Cookies("admin")("ComName")
	Cook_adminFlag = request.Cookies("admin")("flag")
	if Cook_adminFlag <> "" then
		Cook_adminFlag = cint(Cook_adminFlag)
	end if

	Cook_MemoryUserName = Request.Cookies("XingWorld_net")("MemoryUserName")

	dim TrBgcolor(6)
	TrBgcolor(0) = "#FFFFFF"
	TrBgcolor(1) = "#F8F8F8"
	TrBgcolor(2) = "#FFFFFF"
	TrBgcolor(3) = "#FEFEFE"
	TrBgcolor(4) = "#F1F1F1"
	TrBgcolor(5) = "#EEEEEE"
	TrBgcolor(6) = "#5F8AC5"

%>