<!--#include file="../connShop.asp"-->
<!--#include file="../Admin/Inc/Config.asp"-->
<!--#include file="../Admin/Inc/Function.asp"-->
<!--#include file="../include/Lebi_Config.asp"-->
<!--#include file="../include/Lebi_temp_cls.asp"-->
<!--#include file="../include/Lebi_md5.asp"-->
<%
'**************************************
'* 最后更新 2012-11-26 by 56770.Kingdge
'* Copyright www.56770.com
'**************************************
%>
<html>
<head>
<meta content="乐彼网店系统采用UTF-8国际编码，是国际化的网上开店系统，简称网店系统或56770 Eshop。具有中文网店系统及多语言网店系统（日文、英文、韩文、繁体），是网上开店的利器，是快速开网上花店、网上书店、网上服装店、礼品店等网店的最佳开店平台。" name="description">
<meta name="author" content="Kingdge,kingdge@gmail.com">
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<title>乐彼多语言网店系统(56770 Eshop) 安装程序 - Powered by 56770.com</title>
<style>
body{margin-top:20px;font-size:12px;background-color: #f8f8f8;color: #666666;}
p{margin:0;padding:0}
ul{margin:0 0 -1px 0;padding:0}
a:link{font-size: 12px;font-family: 宋体;color: #ff6600;text-decoration: underline;}
a:visited{font-size: 12px;font-family: 宋体;color: #ff6600;text-decoration: underline;}
a:hover{font-size: 12px;font-family: 宋体;color: #0000ff;text-decoration: underline;}
a:active{font-size: 12px;font-family: 宋体;color: #ff6600;text-decoration: underline; }
tr.classrow {background-color:expression((this.rowIndex%2==0)?"#F5F5F5":"#FFFFFF");ryo:expression(onmouseover=function(){this.style.backgroundColor='#F5F5F5'},onmouseout=function(){this.style.backgroundColor=(this.style.backgroundColor='#F5F5F5'?((this.rowIndex%2==0)?"#F5F5F5":"#FFFFFF"):'#F5F5F5')},onclick=function(){this.style.backgroundColor='#F5F5F5'})}
td.classrow {FONT-SIZE: 11px; BORDER-BOTTOM: #e5e5e5 1px solid; FONT-FAMILY:"Verdana";line-height:180%;padding-left:10px;}
.button{font-size: 10pt;color: #000000;background-color: #FFFFFF;cursor: hand;padding: 2px -3px 0px -3px;height: 21px;border: 1px solid #D4D1CB;FILTER: progid:DXImageTransform.Microsoft.Gradient(GradientType='0', StartColorStr='#FFFFFF', EndColorStr='#D4D1CB');}
.head{background:url(images/bg.gif);color:#FFF;font-weight:bold;font-size:12px;padding:5px;}
.thisstep{background:#F5F5F5;BORDER-top: #e5e5e5 1px solid;BORDER-BOTTOM: #e5e5e5 1px solid;color:#5FB2C9;font-size:12px;font-weight:bold;padding:5px;}
.list{background:#FFF;color:#666666;font-size:12px;padding:5px;line-height:25px;}
.foot{background:#F5F5F5;color:#FF9900;font-size:12px;padding:5px;}
.form{border: 1px #B2B2A6 solid;height:20px;}
#tablist,#tablistmain,.tablist{margin-top: 5px;margin-left:0px;list-style-type: none;text-align: left;}
#tablist li,#tablistmain li,.tablist li{display: inline;margin: 0;}
#tablist li a,#tablistmain li a,.tablist li a{font-size:12px;height:25px;margin-bottom:-1px;margin-right:5px;padding: 2px 10px 1px 10px;color:#000000;background-color:#FFFFFF;border: 1px solid #E5E5E5;}
#tablist li a:visited,#tablistmain li a:visited,.tablist li a:visited{background-color:#FFFFFF;border: 1px solid #B4B99E;}
#tablist li a:hover,#tablistmain li a:hover,.tablist li a:hover{color:#000000;background-color:#F5F5F5;border: 1px solid #B4B99E;}
#tablist li.selected,#tablistmain li.selected,.tablist li.selected{padding: 0px;margin-right:0px;}
#tablist li.selected a,#tablistmain li.selected a,.tablist li.selected a{font-size:12px;height:25px;margin-bottom:-1px;padding:2px 10px 1px 10px;font-weight:bold;background-color:#F5F5F5;color:#5FB2C9;text-align:center;border: 1px solid #E5E5E5;}
#tablist li.selected a:hover,#tablistmain li.selected a:hover,.tablist li.selected a:hover{text-decoration: none;color:#000000;}
#tablist li.selected a:visited,#tablistmain li.selected a:visited,.tablist li.selected a:visited{text-decoration: none;color:#000000;}
#tabcontentcontainer{width: 100%;margin-right: 10px;margin-bottom: 5px;padding: 0;background: #FFFFFF;border: 1px solid #E5E5E5;}
.tabcontent{margin: 0;display:none; background: #FFFFFF;}
</style>
</head>
<body>
<%
Response.Write("<table cellspacing='0' cellpadding='0' align='center' width='602'>")
Response.Write("<tr><td height='79' align='center'><a href='http://www.56770.com/' target='_blank'><img src='images/index_01.gif' height='79' width='602' alt='乐彼网上开店系统(56770 Eshop)，用户最喜爱的网上开店软件！' border='0'></a></td></tr>")
Response.Write("<tr><td valign='top' background='images/index_02.gif'>")
Response.Write("<table cellspacing='0' cellpadding='0' align='center' width='580'>")
rem <-{检测是否已执行安装向导 2010-11-7 by 56770.kingdge
If request("step") = "DelInstall" Then
		If IsObjInstalled("Scripting.FileSystemObject") Then
				allowfso = 1
		Else
				allowfso = 0
		End If
		If allowfso = 1 Then
                set fso=Server.CreateObject ("Scripting.FileSystemObject")
				fso.DeleteFolder(server.mappath("../install/"))
				Set fso = Nothing
                Response.Write("<script>alert('已成功删除安装文件！');document.location.href='../';</script>")
		        Response.Redirect"../"
		        Response.End
		Else
                Response.Write("<script>alert('当前空间不支持FSO组件，系统无法删除安装文件夹，请手动删除！');document.location.href='../';</script>")
				Response.End
		End If
Else
		AdminNum = conn.execute("select count(id) from [Lebi_adminuser]")(0)
		AdminNum = checknum(AdminNum,0)
		If AdminNum = 0 Then
				Select Case request("step")
					   Case "Config" Config()
					   Case "Database" Database()
					   Case "InstallEnd" InstallEnd()
					   Case "UpdateConfig" UpdateConfig()
					   Case "UpdateTpl" UpdateTpl()
					   Case "Administrator" Administrator()
					   Case "ConfigDatabase" ConfigDatabase()
					   Case "AddAdministrator" AddAdministrator()
					   Case Else
							main()
				End Select
		Else
				InstallEnd()
		End If
End If
rem }->
Response.Write("</table>")
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("<tr><td height='11' align='center'><img src='images/index_03.gif' height='11' width='602' alt='乐彼网上开店系统(56770 Eshop)，用户最喜爱的网上开店软件！' border='0'></td></tr>")
Response.Write("</table>")
Function LoadText(strFile)
		Dim strTempPath,objFSO,objStm
		strTempPath = Server.MapPath("../Admin/text/" & strFile)
		Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
		Set objStm = Server.CreateObject("ADODB.Stream")
			If objFso.FileExists(strTempPath) Then
				objStm.charset = "UTF-8"
				objStm.open
				objStm.LoadFromFile strTempPath
				LoadText = objStm.ReadText
			End If
		Set objStm = Nothing
		Set objFSO = Nothing
End Function
Function LoadFile(strFile)
		Dim strTempPath,objFSO,objStm
		strTempPath = Server.MapPath(strFile)
		Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
		Set objStm = Server.CreateObject("ADODB.Stream")
			If objFso.FileExists(strTempPath) Then
				objStm.charset = "UTF-8"
				objStm.open
				objStm.LoadFromFile strTempPath
				LoadFile = objStm.ReadText
			End If
		Set objStm = Nothing
		Set objFSO = Nothing
End Function
Sub main()
		Response.Write("<tr>")
		Response.Write("<td height='25' class='thisstep' colspan='2'> (1) 授权许可")
		Response.Write("</td>")
		Response.Write("</tr>")
		Response.Write("<tr>")
		Response.Write("<td class='list' colspan='2'>")
		Response.Write("版权所有 2003-"& Year(Date()) &"，56770.com保留所有权利。</span><br />")
		Response.Write("感谢您选择&quot;56770&quot;系列产品。希望我们的努力能够为您提供一个高效、快速、安全、稳定的软件程序。<br /><br />")
		Response.Write("乐彼软件产品授权许可是乐彼开源软件采取的使用授权方式。乐彼软件产品通过发放产品许可协议赋予用户使用乐彼软件产品的权利，授权期限为终身许可。乐彼的商业授权是针对独立域名进行授权的。当用户的使用条件和环境满足乐彼软件产品<a href=""http://www.56770.com/license.html"" target=""_blank"">《授权许可协议》</a>的规定的时候，用户就可以一直的使用乐彼软件产品。<br /><br />")
		Response.Write("<strong>在以下情况中（但不仅仅限于以下情况），您需要购买乐彼软件产品正版授权： </strong><br />")
		Response.Write("<p style=""padding:5px 10px;"">")
		Response.Write("1、当您需要将网站用于商业用途时，您必须购买乐彼软件产品授权许可。例如，当您使用乐彼软件产品来架设企业、店面（门市）等单位的网站时，您就需要购买乐彼产品的授权许可。<br />")
		Response.Write("2、当您使用乐彼软件产品或者基于乐彼软件产品为他人建站并收取一定费用时，您必须购买乐彼产品授权许可。例如，您是一家经营IDC或者企业建站服务的互联网公司。如果使用乐彼产品为客户或者客户要求使用乐彼软件产品建设网站时，您就需要购买乐彼软件产品授权许可。 <br />")
		Response.Write("3、当您使用乐彼软件产品提供SaaS（软件做为服务）服务时，必须购买乐彼软件产品授权许可。<br />")
		Response.Write("4、当您是非个人用户的时候，您需要购买乐彼软件产品授权许可。<br />")
		Response.Write("5、当您将乐彼软件产品用于多个网站的情况下，您需要为每个网站购买一个授权许可。</p>")
		Response.Write("<p style=""padding:5px 10px;"">")
		Response.Write("点此<a href=""http://www.56770.com/service/"" target=""_blank"">查看乐彼多语言网上开店系统购买价格</a>。")
		Response.Write("</p><br />")
		Response.Write("<strong>为什么需要购买商业授权许可？</strong><br />")
		Response.Write("<p style=""padding:5px 10px;"">")
		Response.Write("1、能够合法的使用乐彼软件产品。<br />")
		Response.Write("2、支持正版、支持国内软件事业，让乐彼也有了继续发展的资金来源，可以为用户开发出更好的软件产品、提供更好的服务。<br />")
		Response.Write("3、乐彼软件产品为您节省了成本，创造了价值，您应该回报乐彼。而乐彼也需要获得资金来源以能够持续发展。<br />")
		Response.Write("4、乐彼软件产品对个人使用已经免费，若对单位用户使用也不收费，而纯粹只靠销售服务的话，在现有的国情下，服务收入根本无力承担巨大的软件研发费用成本、市场推广成本和很多免费服务需要的成本。这样乐彼公司将无法存活下去，更不用谈什么可持续发展。而软件一旦不能持续开发和维护，最终损害的也将是用户的利益。<br />")
		Response.Write("5、购买乐彼软件产品授权许可，您还将获得以下一系列好处：")
		Response.Write("乐彼公司授权许可的正版软件，提供严密的多重安全机制能够捍卫您的业务安全，保护您重要的客户资源，或企业数据、重要信息，强大的安全策略在乐彼正版软件中得到充分发挥，对系统进行全方位监控，有效抵制恶意攻击，提高系统使用的安全性，阻止最新的威胁。<br />")
		Response.Write("乐彼正版软件由乐彼公司提供强而有力的支持。通过全面增强的新功能，实现对用户密码的MD5加密；SQL参数化查询方式、安全登陆、连接字符串加密等等，实现最坚固保护。<br />")
		Response.Write("乐彼完善的更新服务，帮助您有效防范危害安全、非授权许可的入侵，您的重要信息数据将能得到全面保护。<br />")
		Response.Write("<strong>&middot; 持续安全更新</strong><br />")
		Response.Write("授权许可的正版软件能确保网站远离安全隐患，提供安全保障：支持服务、安全更新、新增功能、性能升级及其他丰富的安全优势。<br />")
		Response.Write("<strong>&middot; 安全服务</strong><br />")
		Response.Write("安全服务是提供解决安全漏洞和安全事件的优质专业服务方案。利用最先进的技术和专业人员提供高质量的安全更新、安全预防性指导，帮助用户将安全漏洞和安全事件风险降到最低。<br />")
		Response.Write("<strong>&middot; 技术中心</strong><br />")
		Response.Write("技术中心为正版用户提供升级服务，在其中可以找到产品的更新信息、升级信息等。<br />")
		Response.Write("<strong>&middot; 下载补丁包</strong><br />")
		Response.Write("及时下载补丁包，更新系统，拥有更完善的功能体系，可有效防止恶意攻击，保护系统安全。 <br />")
		Response.Write("乐彼软件产品的卓越性能、特色功能，及技术支持将助您一臂之力，让您在企业宣传、业务开展策划中，都可拥有高效而稳定的系统功能为保障。<br />")
		Response.Write("<strong>&middot; 节省时间机遇</strong><br />")
		Response.Write("乐彼授权许可的正版软件为您带来专业的建站体验，它所拥有易用性、扩展性足以实现您多层次需求和应用需要，达到轻松快速构建特色网站。<br />")
		Response.Write("<strong>&middot; 获得专业帮助</strong><br />")
		Response.Write("惟有乐彼授权许可的正版软件商业用户，才能通过网络和电话咨询来享有乐彼的全面技术支持和服务帮助，让乐彼专业团队协助您轻松解决问题，事半功倍。<br />")
		Response.Write("<strong>&middot; 在线服务</strong><br />")
		Response.Write("网络多方式支持，QQ、MSN、电子邮件，得到乐彼的技术支持和服务提供。以及无限次数的电话支持和上门服务。<br />")
		Response.Write("乐彼在此提醒您，重视知识产权，抵制一切非授权许可的窃取行为，是尊重、也是一种确保声誉的不二途径。<br />")
		Response.Write("<strong>&middot; 维护可信声誉</strong><br />")
		Response.Write("使用授权许可的正版软件给您带来可信的声誉及诚信的名誉。它会向您的客户、合作伙伴及雇主传达一个强有力的信息：您尊重知识产权，是正直可信任的。<br />")
		Response.Write("<strong>&middot; 支持原创研发</strong><br />")
		Response.Write("支持并购买授权许可的正版软件，正是在向社会强烈呼吁：原创研发不可窃取。阻止盗版行为就是为国家原创研发提供支持，帮助中国获得更高的经济主导权和全球竞争力。<br />")
		Response.Write("<strong>&middot; 消除心理压力</strong><br />")
		Response.Write("保护知识产权是每个公民的责任。中国的软件产业也需要广大用户自觉使用正版。使用乐彼授权许可正版软件将会保护和提升您的企业形象，无论是对竞争对手还是对合作伙伴都会提高您的声誉。</p><br />")
		Response.Write("<strong>如何获得商业授权许可？</strong><br />")
		Response.Write("</td>")
		Response.Write("</tr>")
		Response.Write("<form action='Install.asp' method='post' name='license'>")
		Response.Write("<tr>")
		Response.Write("<td height='30' class='foot' align='left'> <input type='submit' value='阅读<授权许可> (15)' name='nextstep' class='button'><input type='hidden' name='step' value='Database'>")
		Response.Write("</td>")
		Response.Write("<td height='30' class='foot' align='right'> Powered by <span style='color:#0954A6;font-weight:bold;'>56770</span> <span style='color:#FFA32B;font-weight:bold;'>Eshop</span></td>")
		Response.Write("</tr>")
		Response.Write("</form>")
		Response.Write("<script language='javascript'>")
		Response.Write("var secs = 15;document.license.nextstep.disabled=true;for(i=1;i<=secs;i++) {window.setTimeout(""update("" + i + "")"", i * 1000);}")
		Response.Write("function update(num) {if(num == secs) {document.license.nextstep.value =' 下一步 ';document.license.nextstep.disabled=false;}else { printnr = secs-num; document.license.nextstep.value = ""阅读<授权许可> ("" + printnr +"")""; }}")
		Response.Write("</script>")
End Sub
Sub Database()
		Dim RanNum
		Randomize
		RanNum = Int(900*rnd)+10000
		Response.Write("<tr>")
		Response.Write("<td height='25' class='thisstep' colspan='2'> (2) 参数配置")
		Response.Write("</td>")
		Response.Write("</tr>")
		Response.Write("<form action='Install.asp' method='post' name='Admin'>")
		Response.Write("<tr class='classrow'>")
		Response.Write("<td class='classrow' width='18%' height='30' style='padding-left:5px;'>外站提交：</td>")
		Response.Write("<td class='classrow'>&nbsp;<input type='radio' name='OutSubmit' value='0' checked> 允许&nbsp;<input type='radio' name='OutSubmit' value='1'> 禁止</td>")
		Response.Write("</tr>")
		Response.Write("<tr class='classrow'>")
		Response.Write("<td class='classrow' width='18%' height='30' style='padding-left:5px;'>网站根目录：</td>")
		Response.Write("<td class='classrow'>&nbsp;<input type='hidden' name='Eshop_url' value='"&Replace(Get_Eshop_url(),"install/","")&"' size='60' class='form'>"&Replace(Get_Eshop_url(),"install/","")&"</td>")
		Response.Write("</tr>")
		Response.Write("<tr class='classrow'>")
		Response.Write("<td class='classrow' width='18%' height='30' style='padding-left:5px;'>Cookie名称：</td>")
		Response.Write("<td class='classrow'>&nbsp;<input type='text' name='cookiesname' value='56770.COM."& RanNum &"' size='60' class='form'></td>")
		Response.Write("</tr>")
		Response.Write("<tr class='classrow'>")
		Response.Write("<td class='classrow' width='18%' height='30' style='padding-left:5px;'>Cookie密钥：</td>")
		Response.Write("<td class='classrow'>&nbsp;<input type='text' name='Eshop_token' value='56770.COM."& RanNum &"' size='60' class='form'></td>")
		Response.Write("</tr>")
		Response.Write("<tr class='classrow'>")
		Response.Write("<td class='classrow' height='30' style='padding-left:5px;'>数据库类型：</td>")
		Response.Write("<td class='classrow'>&nbsp;<input type='radio' name='IsSqlDataBase' value='0' checked> MS ACCESS</td>")
		Response.Write("</tr>")
		Response.Write("<tr id='UseAC_box' class='classrow'>")
		Response.Write("<td class='classrow' width='18%' height='30' style='padding-left:5px;'>网店数据库：</td>")
		Response.Write("<td class='classrow'>&nbsp;<input type='text' name='dbname' value='"& Replace(db,"database/","") &"' size='60' class='form'></td>")
		Response.Write("</tr>")
		Response.Write("<tr>")
		Response.Write("<td class='classrow' width='18%' height='30' style='padding-left:5px;'>邮件数据库：</td>")
		Response.Write("<td class='classrow'>&nbsp;<input type='text' name='db_mailname' value='#Lebi_mail.mail' size='60' class='form'></td>")
		Response.Write("</tr>")
		Response.Write("<tr class='classrow' style='display:none;'>")
		Response.Write("<td class='classrow' height='30' style='padding-left:5px;'>二级域名：</td>")
		Response.Write("<td class='classrow'>&nbsp;<input type='radio' name='Isotherdomin' value='0' onClick='javascript:NoneUseOtherdomin()' checked> 否&nbsp;<input type='radio' name='Isotherdomin' value='1' onClick='javascript:UseOtherdomin()'> 是</td>")
		Response.Write("</tr>")
		Response.Write("<tr id='UseOtherdomin_box' style='display:none;' class='classrow'>")
		Response.Write("<td class='classrow' width='18%' height='30' style='padding-left:5px;'>安装路径：</td>")
		Response.Write("<td class='classrow'>&nbsp;<input type='text' name='Eshop_Realdir' size='60' class='form'> <br>&nbsp;如二级域名为shop.56770.com系统安装路径实际为newshop 则输入  newshop</td>")
		Response.Write("</tr>")
		Response.Write("<tr><td height='30' class='foot' align='left'> <input type='submit' value=' 下一步 ' name='Config' class='button'><input type='hidden' name='step' value='ConfigDatabase'>")
		Response.Write("</td>")
		Response.Write("<td height='30' class='foot' align='right'> Powered by <span style='color:#0954A6;font-weight:bold;'>56770</span> <span style='color:#FFA32B;font-weight:bold;'>Eshop</span></td>")
		Response.Write("</tr>")
		Response.Write("</form>")
		Response.Write("<script language='javascript'>")
		Response.Write("function NoneUseOtherdomin(){UseOtherdomin_box.style.display='none';}function UseOtherdomin(){UseOtherdomin_box.style.display='';}")
		Response.Write("</script>")
End Sub
Sub ConfigDatabase()
		If IsObjInstalled("Scripting.FileSystemObject") Then
				allowfso = 1
		Else
				allowfso = 0
		End If
		If allowfso = 1 Then
                Set Fso=server.createobject("scripting.filesystemobject")
                If request("IsSqlDataBase") = "0" Then
				        Dbpath = server.mappath("../"& Db)
'						response.End
                        if fso.fileexists(Dbpath)Then
                                fso.copyfile Dbpath, server.mappath("../Database/"&Trim(request("dbname"))&"")
                        Else
                                Response.Write("<script>alert('数据库未找到!');document.location.href='?step=Database';</script>")
				                Response.End
                        End If
		        End If
				If Trim(request("db_mailname")) <> "#Lebi_mail.mail" Then
                        if fso.fileexists(server.mappath("../Database/#Lebi_mail.mail"))then
                                fso.copyfile server.mappath("../Database/#Lebi_mail.mail"), server.mappath("../Database/"&Trim(request("db_mailname"))&"")
				        		fso.deletefile server.mappath("../Database/#Lebi_mail.mail")
                        Else
                                Response.Write("<script>alert('邮件数据库未找到!');document.location.href='?step=Database';</script>")
				                Response.End
                        End If
				End If
				Set Fso = Nothing
		End If
        str_tmp = "<%"&vbcrlf
		str_tmp = str_tmp &"Rem 系统参数设置  56770 Eshop网上开店系统（www.56770.com）自动生成===================================="&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Function Get_Eshop_url()"&vbcrlf
		str_tmp = str_tmp &"Dim Get_Lebi_Eshop_Dir,Str_Get_Lebi_Eshop_Dir,Arr_Get_Lebi_Eshop_Dir,Eshop_dir"&vbcrlf
		str_tmp = str_tmp &"If Isotherdomin=""0"" Then"&vbcrlf
        str_tmp = str_tmp &"            Get_Lebi_Eshop_Dir= lcase(Request.ServerVariables(""SERVER_NAME"") & Request.ServerVariables(""URL""))"&vbcrlf
        str_tmp = str_tmp &"            Str_Get_Lebi_Eshop_Dir = Replace(Replace(Get_Lebi_Eshop_Dir,""admin/"",""""),""js_html/"","""")"&vbcrlf
        str_tmp = str_tmp &"            If instr(Str_Get_Lebi_Eshop_Dir,""/"")>0 Then"&vbcrlf
        str_tmp = str_tmp &"                    Arr_Get_Lebi_Eshop_Dir = split(Str_Get_Lebi_Eshop_Dir,""/"")"&vbcrlf
        str_tmp = str_tmp &"                    If ubound(Arr_Get_Lebi_Eshop_Dir)<=1 Then"&vbcrlf
        str_tmp = str_tmp &"                            Eshop_dir = """""&vbcrlf
        str_tmp = str_tmp &"	            ElseIf ubound(Arr_Get_Lebi_Eshop_Dir)<=2 Then"&vbcrlf
        str_tmp = str_tmp &"                            Eshop_dir = Arr_Get_Lebi_Eshop_Dir(ubound(Arr_Get_Lebi_Eshop_Dir)-1)"&vbcrlf
        str_tmp = str_tmp &"	            ElseIf ubound(Arr_Get_Lebi_Eshop_Dir)<=3 Then"&vbcrlf
        str_tmp = str_tmp &"                            Eshop_dir = Arr_Get_Lebi_Eshop_Dir(ubound(Arr_Get_Lebi_Eshop_Dir)-2) &""/""& Arr_Get_Lebi_Eshop_Dir(ubound(Arr_Get_Lebi_Eshop_Dir)-1)"&vbcrlf
        str_tmp = str_tmp &"	            ElseIf ubound(Arr_Get_Lebi_Eshop_Dir)<=4 Then"&vbcrlf
        str_tmp = str_tmp &"                            Eshop_dir = Arr_Get_Lebi_Eshop_Dir(ubound(Arr_Get_Lebi_Eshop_Dir)-3) &""/""& Arr_Get_Lebi_Eshop_Dir(ubound(Arr_Get_Lebi_Eshop_Dir)-2) &""/""& Arr_Get_Lebi_Eshop_Dir(ubound(Arr_Get_Lebi_Eshop_Dir)-1)"&vbcrlf
        str_tmp = str_tmp &"	            End If"&vbcrlf
        str_tmp = str_tmp &"            Else"&vbcrlf
        str_tmp = str_tmp &"                    Eshop_dir = ""/"""&vbcrlf
        str_tmp = str_tmp &"            End If"&vbcrlf
        str_tmp = str_tmp &"            If Eshop_dir = """" Then"&vbcrlf
        str_tmp = str_tmp &"                    Eshop_dir = ""/"""&vbcrlf
        str_tmp = str_tmp &"            Else"&vbcrlf
        str_tmp = str_tmp &"                    Eshop_dir = ""/""& Eshop_dir &""/"""&vbcrlf
        str_tmp = str_tmp &"            End If"&vbcrlf
        str_tmp = str_tmp &"    Else"&vbcrlf
        str_tmp = str_tmp &"            Eshop_dir = ""/""& Eshop_Realdir &""/"""&vbcrlf
        str_tmp = str_tmp &"    End if"&vbcrlf
        str_tmp = str_tmp &"    Get_Eshop_url = Eshop_dir"&vbcrlf
        str_tmp = str_tmp &"End Function"&vbcrlf
        str_tmp = str_tmp &"Dim Eshop_url"&vbcrlf
        'str_tmp = str_tmp &"Eshop_url = Get_Eshop_url()"&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Eshop_url = """& Trim(request("eshop_url")) &""""&vbcrlf&vbcrlf

		str_tmp = str_tmp &"Dim MyDbPath"&vbcrlf
		str_tmp = str_tmp &"MyDbPath = """& Trim(request("eshop_url")) &""""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem Cookies 名称"&vbcrlf
		str_tmp = str_tmp &"Const cookiesname = """& Trim(request("cookiesname")) &""""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem Cookies用户密钥前缀"&vbcrlf
		str_tmp = str_tmp &"Const Eshop_token = """& Trim(request("Eshop_token")) &""""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem 数据库类型 0 为 ACCESS数据库 1 为 SQL SERVER数据库"&vbcrlf
		str_tmp = str_tmp &"Const IsSqlDataBase = """& Trim(request("IsSqlDataBase")) &""""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem 是否允许WEB登陆 0 为允许 1 为不允许"&vbcrlf
		str_tmp = str_tmp &"Const weblogin = ""0"""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem 是否启用二级域名 0 为否 1 为是"&vbcrlf
		str_tmp = str_tmp &"Const Isotherdomin = """& Trim(request("Isotherdomin")) &""""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem 实际安装路径，未启用二级域名则不需输入 如二级域名为shop.Lebi.com系统安装路径实际为newshop 则输入  newshop"&vbcrlf
		str_tmp = str_tmp &"Const Eshop_Realdir = """& Trim(request("Eshop_Realdir")) &""""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem 数据库设置=================================================="&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem ACCESS数据库设置"&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem 邮件列表数据库设置"&vbcrlf
		str_tmp = str_tmp &"Const db_mailname = """& Trim(request("db_mailname")) &""""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem 主数据库设置"&vbcrlf
		str_tmp = str_tmp &"Const dbname = """& Trim(request("dbname")) &""""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem SQL SERVER数据库设置"&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem 数据库名称"&vbcrlf
		str_tmp = str_tmp &"Const SqlDatabaseName = """& Trim(request("SqlDatabaseName")) &""""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem 数据库密码"&vbcrlf
		str_tmp = str_tmp &"Const SqlPassword = """& Trim(request("SqlPassword")) &""""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem 数据库用户名"&vbcrlf
		str_tmp = str_tmp &"Const SqlUsername = """& Trim(request("SqlUsername")) &""""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem 服务器地址"&vbcrlf
		str_tmp = str_tmp &"Const SqlLocalName = """& Trim(request("SqlLocalName")) &""""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem 数据只读 0 为否 1 为是"&vbcrlf
		str_tmp = str_tmp &"Const OnlyRead = ""0"""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem 外站提交 0 为允许 1 为禁止"&vbcrlf
		str_tmp = str_tmp &"Const OutSubmit = """& CLng(request("OutSubmit")) &""""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem 图片文件夹"&vbcrlf
		str_tmp = str_tmp &"Const PicPath = ""Pic"""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem 验证码路径名称"&vbcrlf
		str_tmp = str_tmp &"Const Codepath = ""include/code.asp"""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem 后台管理文件夹"&vbcrlf
		str_tmp = str_tmp &"Const Adminpath = ""Admin"""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem 是否整合论坛  0为否 1为是"&vbcrlf
		str_tmp = str_tmp &"Const usedvbbs = ""0"""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"Rem 论坛数据库路径"&vbcrlf
		str_tmp = str_tmp &"Const dv_db = ""bbs/data/Dvbbs7_Lebi.asa"""&vbcrlf&vbcrlf
		str_tmp = str_tmp &"%\>"&vbcrlf
		str_tmp = str_tmp &"<!--#include file=""HtmlConfig.inc""-->"
		Savehtml "../include/Lebi_Data.asp",str_tmp
		On Error Resume Next
		If Err.number>0 Then
		        response.write("<tr><Td class=""classrow""><font color=red>错误：写入文件失败。<br><a href=""http://www.56770.com/faq/list/?id=116"" target=""_blank""><font color=blue>查找解决办法？</font></a></td></tr>")
		        response.End
		End If
		If allowfso = 1 Then
		        Response.Redirect"Install.asp?step=Config&dbname="& Trim(request("dbname")) &"&IsSqlDataBase="& Trim(request("IsSqlDataBase")) &""
		        Response.End
		Else
                Response.Write("<script>alert('当前空间不支持FSO组件，系统无法更改数据库名称，请手动更改!');document.location.href='Install.asp?step=Config&dbname="& Trim(request("dbname")) &"&IsSqlDataBase="& Trim(request("IsSqlDataBase")) &"';</script>")
				Response.End
		End If
End Sub
Sub Config()
        If Trim(request("dbname")) <> "" Then
                If Trim(request("dbname")) <> "#lebi_v150.data" Then
                        Set Fso=server.createobject("scripting.filesystemobject")
                        If request("IsSqlDataBase") = "0" Then
				                Dbpath = server.mappath("../Database/#lebi_v150.data")
                                if fso.fileexists(Dbpath)Then
                                        fso.deletefile Dbpath
                                End If
		                End If
				End If
		End If
		sql="select top 1 * from [Lebi_system]"
		Set rs = conn.execute(sql)
		Response.Write("<tr>")
		Response.Write("<td height='25' class='thisstep' colspan='2'> (3) 网站信息设置")
		Response.Write("</td>")
		Response.Write("</tr>")
		Response.Write("<form action='Install.asp' method='post' name='Config'>")
		Response.Write("<script language=""javascript"" src=""../admin/inc/js/tab.js""></script>")
		Response.Write("<tr>")
		Response.Write("<td class=""classrow"" colspan=""2"">")
		Response.Write("<ul id=""tablist"">")
		For LangT = 1 To TotalLang
				Response.Write("<li")
				If LangT = 1 Then response.write(" class=""selected""") End If
				Response.Write("><a rel=""tcontent"& LangT &""" style=""CURSOR:hand;"">"& LanguageName(LangT) &"</a></li>")
		Next
		Response.Write("</ul>")
		Response.Write("<div id=""tabcontentcontainer"">")
		For LangT = 1 To TotalLang
				Response.Write("<div id=""tcontent"& LangT &""" class=""tabcontent"">")
				Response.Write("<table cellspacing=""0"" cellpadding=""4"" width=""100%"" border=""0"">")
				Response.Write("<tr class=""classrow"">")
				Response.Write("<td width=""20%"" class=""classrow"" height=""30"">网站名称：</td>")
				Response.Write("<td width=""80%"" class=""classrow"" height=""30"">")
				Response.Write("<input type=""text"" name=""sitename"& LanguageTxt(LangT) &""" size=""60"" value="""& rs("sitename" & LanguageTxt(LangT)) &""" class=""form""></td>")
				Response.Write("</tr>")
				Response.Write("<tr class=""classrow"">")
				Response.Write("<td class=""classrow"" height=""30"">网站描述：</td>")
				Response.Write("<td class=""classrow"" height=""30"">")
				Response.Write("<textarea name=""sys_description"& LanguageTxt(LangT) &""" cols=""48"" rows=""3"">"& trim(rs("sys_description" & LanguageTxt(LangT))) &"</textarea> <img src=""../admin/images/help.gif"" align=""absmiddle"" alt=""针对搜索引擎进行优化，有利于提高搜索排名""></td>")
				Response.Write("</tr>")
				Response.Write("<tr class=""classrow"">")
				Response.Write("<td class=""classrow"" height=""30"">网站关键词：</td>")
				Response.Write("<td class=""classrow"" height=""30"">")
				Response.Write("<textarea name=""sys_keywords"& LanguageTxt(LangT) &""" cols=""48"" rows=""3"">"& trim(rs("sys_keywords" & LanguageTxt(LangT))) &"</textarea> <img src=""../admin/images/help.gif"" align=""absmiddle"" alt=""针对搜索引擎进行优化，有利于提高搜索排名""></td>")
				Response.Write("</tr>")
				Response.Write("</tr>")
				Response.Write("<tr class=""classrow"">")
				Response.Write("<td class=""classrow"" height=""30"">底部版权：</td>")
				Response.Write("<td class=""classrow"" height=""30"">")
				Response.Write("<textarea name=""sitecopy"& LanguageTxt(LangT) &""" cols=""48"" rows=""3"">"& LoadStyle("../include/Lebi_Data/SiteCopy"& LanguageTxt(LangT) &".data") &"</textarea></td>")
				Response.Write("</tr>")
				Response.Write("<tr class=""classrow"">")
				Response.Write("<td class=""classrow"" height=""30"">网站地址：</td>")
				Response.Write("<td class=""classrow"" height=""30"">")
				Response.Write("<input type=""text"" name=""web"& LanguageTxt(LangT) &""" size=""35"" value="""& weburl &""" class=""form""> <em>如：http://www.56770.com/</em></td>")
				Response.Write("</tr>")
				Response.Write("<tr class=""classrow"">")
				Response.Write("<td class=""classrow"" height=""30"">联系QQ：</td>")
				Response.Write("<td class=""classrow"" height=""30"">")
				Response.Write("<input type=""text"" name=""sys_qq"& LanguageTxt(LangT) &""" size=""35"" value="""& rs("sys_qq" & LanguageTxt(LangT)) &""" class=""form""></td>")
				Response.Write("</tr>")
				Response.Write("<tr class=""classrow"">")
				Response.Write("<td class=""classrow"" height=""30"">联系电话：</td>")
				Response.Write("<td class=""classrow"" height=""30"">")
				Response.Write("<input type=""text"" name=""sys_tel"& LanguageTxt(LangT) &""" size=""35"" value="""& rs("sys_tel" & LanguageTxt(LangT)) &""" class=""form""></td>")
				Response.Write("</tr>")
				Response.Write("<tr class=""classrow"">")
				Response.Write("<td class=""classrow"" height=""30"">联系传真：</td>")
				Response.Write("<td class=""classrow"" height=""30"">")
				Response.Write("<input type=""text"" name=""fax"& LanguageTxt(LangT) &""" size=""35"" value="""& rs("fax" & LanguageTxt(LangT)) &""" class=""form""></td>")
				Response.Write("</tr>")
				Response.Write("<tr class=""classrow"">")
				Response.Write("<td class=""classrow"" height=""30"">电子邮件：</td>")
				Response.Write("<td class=""classrow"" height=""30"">")
				Response.Write("<input type=""text"" name=""mail"& LanguageTxt(LangT) &""" size=""35"" value="""& rs("mail" & LanguageTxt(LangT)) &""" class=""form""></td>")
				Response.Write("</tr>")
				Response.Write("<tr class=""classrow"">")
				Response.Write("<td class=""classrow"" height=""30"">联系人：</td>")
				Response.Write("<td class=""classrow"" height=""30"">")
				Response.Write("<input type=""text"" name=""name"& LanguageTxt(LangT) &""" size=""35"" value="""& rs("name" & LanguageTxt(LangT)) &""" class=""form""></td>")
				Response.Write("</tr>")
				Response.Write("</table>")
				Response.Write("</div>")
		Next
		Response.Write("</div>")
		Response.Write("<script>showtabcontent(""tablist"")</script>")
		Response.Write("<ul id=""tablistmain"">")
		Response.Write("<li class=""selected""><a rel="""">通用信息</a></li>")
		Response.Write("</ul>")
		Response.Write("<div id=""tabcontentcontainer"">")
		Response.Write("<table cellspacing=""0"" cellpadding=""4"" width=""100%"" border=""0"">")
		Response.Write("<tr class='classrow'>")
		Response.Write("<td width=""20%"" class='classrow' height='30'>邮件组件：</td>")
		Response.Write("<td width=""80%"" class='classrow'>&nbsp;<select name='jmail_type' id='jmail_type' onChange=""chkselect(options[selectedIndex].value,'know1');""><option value='0'>不支持</option><option value='1'>JMAIL</option><option value='2'>CDONTS</option><option value='3'>ASPEMAIL</option></select> &nbsp; <span id=know1></span></td>")
		Response.Write("</tr>")
		Response.Write("<tr class='classrow'>")
		Response.Write("<td class='classrow' height='30'>Smtp地址：</td>")
		Response.Write("<td class='classrow'>&nbsp;<input type='text' name='jmail_smtp' size='60' value='smtp.163.com' class='form'></td>")
		Response.Write("</tr>")
		Response.Write("<tr class='classrow'>")
		Response.Write("<td class='classrow' height='30'>邮件名称：</td>")
		Response.Write("<td class='classrow'>&nbsp;<input type='text' name='jmail_sendmail' size='60' value='kingdge@163.com' class='form'></td>")
		Response.Write("</tr>")
		Response.Write("<tr class='classrow'>")
		Response.Write("<td class='classrow' height='30'>邮件密码：</td>")
		Response.Write("<td class='classrow'>&nbsp;<input type='text' name='jmail_sendpass' size='60' class='form'></td>")
		Response.Write("</tr>")
		Response.Write("<tr class='classrow'>")
		Response.Write("<td class='classrow' height='30'>接收邮箱：</td>")
		Response.Write("<td class='classrow'>&nbsp;<input type='text' name='jmail_frommail' size='60' class='form'></td>")
		Response.Write("</tr>")
		Response.Write("<tr class='classrow'>")
		Response.Write("<td class='classrow' height='30'>发 件 人：</td>")
		Response.Write("<td class='classrow'>&nbsp;<input type='text' name='jmail_sendname' size='60' class='form'></td>")
		Response.Write("</tr>")
		Response.Write("<tr class='classrow'>")
		Response.Write("<td class='classrow' height='30'>发送设置：</td>")
		Response.Write("<td class='classrow'>&nbsp;会员注册邮件：<input type='checkbox' value='1' name='jmail_regon'> 开启&nbsp;购物订单邮件：<input type='checkbox' value='1' name='jmail_cashon'> 开启&nbsp;订单确认邮件：<input type='checkbox' value='1' name='jmail_cashoveron'> 开启</td>")
		Response.Write("</tr>")
		Response.Write("</table>")
		Response.Write("</div>")
		Response.Write("</td>")
		Response.Write("</tr>")
		Response.Write("<tr>")
		Response.Write("<td height='30' class='foot' align='left'> <input type='submit' value=' 下一步 ' name='Config' class='button'><input type='hidden' name='step' value='UpdateConfig'>")
		Response.Write("</td>")
		Response.Write("<td height='30' class='foot' align='right'> Powered by <span style='color:#0954A6;font-weight:bold;'>56770</span> <span style='color:#FFA32B;font-weight:bold;'>Eshop</span></td>")
		Response.Write("</tr>")
		Response.Write("</form>")
		Response.Write("<span id='Issubport0' style='display:none'>不支持！</span>")
		Dim InstalledObjects(3)
		InstalledObjects(1) = "JMail.Message"				'JMail 4.3
		InstalledObjects(2) = "CDONTS.NewMail"				'CDONTS
		InstalledObjects(3) = "Persits.MailSender"			'ASPEMAIL
		For i=1 to 3
				Response.Write "<span id=""Issubport"&i&""" style=""display:none"">"
				If IsObjInstalled(InstalledObjects(i)) Then Response.Write InstalledObjects(i)&":<font color=red><b>√</b>服务器支持!</font>" Else Response.Write InstalledObjects(i)&"<b>×</b>服务器不支持!"
				Response.Write "</span>"
		Next
		Response.Write("<script language='javascript'>")
		Response.Write("function chkselect(s,divid){var divname=""Issubport"";var chkreport;s=Number(s);if (divid==""know1""){divname=divname+s;}if (divid==""know2""){s+=4;if (s==1003){s=999;}divname=divname+s;}if (divid==""know3""){s+=9;if (s==1008){s=999;}divname=divname+s;}document.getElementById(divid).innerHTML=divname;chkreport=document.getElementById(divname).innerHTML;document.getElementById(divid).innerHTML=chkreport;}")
		Response.Write("</script>")
End Sub

Sub UpdateConfig()
		C_jmail_type = safereplace(request("jmail_type"))
		C_jmail_smtp = safereplace(request("jmail_smtp"))
		C_jmail_sendmail = safereplace(request("jmail_sendmail"))
		C_jmail_sendpass = safereplace(request("jmail_sendpass"))
		C_jmail_sendname = safereplace(request("jmail_sendname"))
		C_jmail_frommail = safereplace(request("jmail_frommail"))
		C_jmail_regon = safereplace(request("jmail_regon"))
		If C_jmail_regon = "1" Then
		        C_jmail_regon = "1"
		Else
		        C_jmail_regon = "0"
		End If
		C_jmail_cashon = safereplace(request("jmail_cashon"))
		If C_jmail_cashon = "1" Then
		        C_jmail_cashon = "1"
		Else
		        C_jmail_cashon = "0"
		End If
		C_jmail_cashoveron = safereplace(request("jmail_cashoveron"))
		If C_jmail_cashoveron = "1" Then
		        C_jmail_cashoveron = "1"
		Else
		        C_jmail_cashoveron = "0"
		End If
		C_jmail_sys = C_jmail_type&"$"&C_jmail_smtp&"$"&C_jmail_sendmail&"$"&C_jmail_sendpass&"$"&C_jmail_sendname&"$"&C_jmail_frommail&"$"&C_jmail_regon&"$"&C_jmail_cashon&"$"&C_jmail_cashoveron&"$"
		C_sys_qq=trim(request("sys_qq"))
		On Error Resume Next
		Set rs = server.CreateObject("adodb.recordset")
		sql="select * from [Lebi_system] where id=1"
		rs.open sql, conn, 1, 3
		For LangT = 1 To TotalLang
				rs("sitename" & LanguageTxt(LangT)) = safereplace(request("sitename" & LanguageTxt(LangT)))
				rs("name" & LanguageTxt(LangT)) = safereplace(request("name" & LanguageTxt(LangT)))
				rs("sys_description" & LanguageTxt(LangT)) = NoEnter(safereplace(request("sys_description" & LanguageTxt(LangT))))
				rs("sys_keywords" & LanguageTxt(LangT)) = NoEnter(safereplace(request("sys_keywords" & LanguageTxt(LangT))))
				rs("sys_tel" & LanguageTxt(LangT)) = safereplace(request("sys_tel" & LanguageTxt(LangT)))
				rs("fax" & LanguageTxt(LangT)) = safereplace(request("fax" & LanguageTxt(LangT)))
				rs("mail" & LanguageTxt(LangT)) = safereplace(request("mail" & LanguageTxt(LangT)))
				rs("web" & LanguageTxt(LangT)) = safereplace(request("web" & LanguageTxt(LangT)))
				rs("sys_qq" & LanguageTxt(LangT)) = safereplace(request("sys_qq" & LanguageTxt(LangT)))
				Savehtml "../include/Lebi_Data/SiteCopy"& LanguageTxt(LangT) &".data",request("sitecopy" & LanguageTxt(LangT))
		Next
		rs("sys_jmail")=C_jmail_sys
		rs("sys_oicq")=Split(rs("sys_oicq"),"$$")(0)&"$$"&Split(rs("sys_oicq"),"$$")(1)&"$$"&Split(rs("sys_oicq"),"$$")(2)&"$$"&Split(rs("sys_oicq"),"$$")(3)&"$$"&C_sys_qq&"$$"&Split(rs("sys_oicq"),"$$")(5)&"$$"&Split(rs("sys_oicq"),"$$")(6)&"$$"&Split(rs("sys_oicq"),"$$")(7)&"$$,"&Split(rs("sys_oicq"),"$$")(8)&",$$"
		rs.update
		rs.close:Set rs=Nothing
		If Err.Number>0 Then
		        response.write("<tr><Td class=""classrow""><font color=red>错误：当前记录集不支持更新。<br>这可能是提供程序的限制，也可能是选定锁定类型的限制。</font><br><a href=""http://www.56770.com/faq/list/?id=117"" target=""_blank""><font color=blue>查找解决办法？</font></a></td></tr>")
		        response.End
		End If
		CreateConfig()
		template = LanguageSkin(LangT)
		LB_XML.Path = server.MapPath("../skins/"& template &"/data.xml")
		LB_XML.Data = "data"
		LB_XML.open
		LB_XML.SelectTable("config")
		stylefolder = LB_XML.read("stylefolder")
		templatefolder = LB_XML.read("templatefolder")
		LB_XML.close
        set rs = conn.execute("select * from [Lebi_gg] where id=1")
		If Not rs.eof Then
				I_gg1_w = rs("gg1_w") : I_gg1_h = rs("gg1_h")
				I_gg_s1 = rs("gg_s1") : I_gg_s1url = rs("gg_s1url") : I_gg_s1txt = rs("gg_s1txt")
				I_gg_s2 = rs("gg_s2") : I_gg_s2url = rs("gg_s2url") : I_gg_s2txt = rs("gg_s2txt")
				I_gg_s3 = rs("gg_s3") : I_gg_s3url = rs("gg_s3url") : I_gg_s3txt = rs("gg_s3txt")
				I_gg_s4 = rs("gg_s4") : I_gg_s4url = rs("gg_s4url") : I_gg_s4txt = rs("gg_s4txt")
				I_gg_tj = rs("gg_tj") : I_gg_tjurl = rs("gg_tjurl")
				I_ifggtj = rs("ifggtj")
				I_ggtj_w = rs("ggtj_w") : I_ggtj_h = rs("ggtj_h")
				I_ifggtop = rs("ifggtop")
				I_ggtop = rs("ggtop") : I_ggtop_url = rs("ggtop_url")
				I_ggtop_w = rs("ggtop_w") : I_ggtop_h = rs("ggtop_h")
        End If
        rs.close:set rs=Nothing
		CreateConfig()
		rem <-{生成网站BANNER 2008-5-7 by 56770.kingdge
		Iframe_sitebanner = LCase(LoadStyle(Eshop_url & FilePath &"Lebi.SiteBanner.0.style"))
		Iframe_sitebanner = Replace(Iframe_sitebanner,"{$gg1_w}",I_gg1_w)
		Iframe_sitebanner = Replace(Iframe_sitebanner,"{$gg1_h}",I_gg1_h)
		If InStr(Iframe_sitebanner,"{$eshop_url}{$gg_s1}") > 0 Then
				Iframe_sitebanner = Replace(Iframe_sitebanner,"{$gg_s1}",I_gg_s1)
		Else
				Iframe_sitebanner = Replace(Iframe_sitebanner,"{$gg_s1}",eshop_url & I_gg_s1)
		End If
		If InStr(Iframe_sitebanner,"{$eshop_url}{$gg_s2}") > 0 Then
				Iframe_sitebanner = Replace(Iframe_sitebanner,"{$gg_s2}",I_gg_s2)
		Else
				Iframe_sitebanner = Replace(Iframe_sitebanner,"{$gg_s2}",eshop_url & I_gg_s2)
		End If
		If InStr(Iframe_sitebanner,"{$eshop_url}{$gg_s3}") > 0 Then
				Iframe_sitebanner = Replace(Iframe_sitebanner,"{$gg_s3}",I_gg_s3)
		Else
				Iframe_sitebanner = Replace(Iframe_sitebanner,"{$gg_s3}",eshop_url & I_gg_s3)
		End If
		If InStr(Iframe_sitebanner,"{$eshop_url}{$gg_s4}") > 0 Then
				Iframe_sitebanner = Replace(Iframe_sitebanner,"{$gg_s4}",I_gg_s4)
		Else
				Iframe_sitebanner = Replace(Iframe_sitebanner,"{$gg_s4}",eshop_url & I_gg_s4)
		End If
		Iframe_sitebanner = Replace(Iframe_sitebanner,"{$eshop_url}",eshop_url)
		Iframe_sitebanner = Replace(Iframe_sitebanner,"{$gg_s1url}",I_gg_s1url)
		Iframe_sitebanner = Replace(Iframe_sitebanner,"{$gg_s2url}",I_gg_s2url)
		Iframe_sitebanner = Replace(Iframe_sitebanner,"{$gg_s3url}",I_gg_s3url)
		Iframe_sitebanner = Replace(Iframe_sitebanner,"{$gg_s4url}",I_gg_s4url)
		Iframe_sitebanner = Replace(Iframe_sitebanner,"{$gg_s1txt}",I_gg_s1txt)
		Iframe_sitebanner = Replace(Iframe_sitebanner,"{$gg_s2txt}",I_gg_s2txt)
		Iframe_sitebanner = Replace(Iframe_sitebanner,"{$gg_s3txt}",I_gg_s3txt)
		Iframe_sitebanner = Replace(Iframe_sitebanner,"{$gg_s4txt}",I_gg_s4txt)
        filebody = "<!--自动生成于 "& Date() &" by 56770 Eshop http://www.56770.com-->"&vbcrlf
		filebody = filebody &"<html>"&vbcrlf
		filebody = filebody &"<head>"&vbcrlf
		filebody = filebody &"<link href="""& eshop_url &"skins/"& skin_dir &"/css/css.css"" rel=""stylesheet"" type=""text/css"">"&vbcrlf
		filebody = filebody &"</head>"&vbcrlf
		filebody = filebody &"<body style=""margin:0;"">"&vbcrlf
		filebody = filebody &splits(Iframe_sitebanner)&vbcrlf
		filebody = filebody &"</body>"&vbcrlf
		filebody = filebody &"</html>"
		Savehtml "../include/Lebi_html/SiteBanner.html",filebody
		rem }->
		rem <-{生成顶部横栏广告脚本 2008-5-7 by 56770.kingdge
        If ifggtop="1" Then
                If I_ggtop_url="" And I_ggtop<>"" Then
		                JS_SiteAdv = "document.write('<div class=""SiteAdvborder""><img src="""& Eshop_url & I_ggtop &""" border=""0"" width="""& I_ggtop_w &""" height="""& I_ggtop_h &""" class=""SiteAdvborder""></div>');"
		        ElseIf I_ggtop_url<>"" And I_ggtop<>"" Then
			            JS_SiteAdv = "document.write('<div class=""SiteAdvborder""><a href="""& I_ggtop_url &""" target=""_blank""><img src="""& Eshop_url & I_ggtop &""" border=""0"" width="""& I_ggtop_w &""" height="""& I_ggtop_h &""" class=""SiteAdvborder""></a></div>');"
                End if
        Else
                If I_ggtop<>"" Then
			            JS_SiteAdv = "document.write('<div class=""SiteAdvborder""><object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0, 29, 0"" width="""& I_ggtop_w &""" height="""& I_ggtop_h &"""><param name=""movie"" value="""& Eshop_url & I_ggtop &"""><param name=""quality"" value=""high""><embed src="""& Eshop_url & I_ggtop &""" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width="""& I_ggtop_w &""" height="""& I_ggtop_h &"""></embed></object></div>');"
                End if
        End If
		Savehtml "../include/Lebi_html/SiteAdv.js",JS_SiteAdv
		rem }->
		rem <-{生成促销商品区广告脚本 2008-5-7 by 56770.kingdge
        JS_SaleAdv="<div class=""SaleAdv"">"
        If I_gg_tj<>"" And I_gg_tjurl="" and I_ifggtj="1" Then
                JS_SaleAdv=JS_SaleAdv&"<img src="""& I_gg_tj &""" border=""0"" width="""& I_ggtj_w &""" height="""& I_ggtj_h &""">"
        ElseIf I_gg_tj<>"" And I_gg_tjurl<>"" and I_ifggtj="1" Then
                JS_SaleAdv=JS_SaleAdv&"<a href="""& I_gg_tjurl &""" target=""_blank""><img src="""& I_gg_tj &""" border=""0""  width="""& I_ggtj_w &""" height="""& I_ggtj_h &"""></a>"
        ElseIf I_gg_tj<>"" and I_ifggtj="0" Then
                JS_SaleAdv=JS_SaleAdv&"<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0, 29, 0"" width="""& I_ggtj_w &""" height="""& I_ggtj_h &"""><param name=""movie"" value="""& I_gg_tj &"""><param name=""quality"" value=""high""><param name=""wmode"" value=""transparent""><embed src="""& I_gg_tj &""" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width="""& I_ggtj_w &""" height="""& I_ggtj_h &"""></embed></object>"
        End If
        SaleAdv=SaleAdv&"</div>"
		Savehtml "../include/Lebi_html/FooterAdv.js","document.write('"& JS_SaleAdv &"');"
		rem }->
		rem <-{生成页头文件 2009-8-3 by 56770.kingdge
		For LangT = 1 To TotalLang
				response.write("<iframe src=""UPText.asp?LangT="& LangT &""" width=""0"" height=""0""></iframe>")
		Next
		rem }->
		Response.Write("<tr>")
		Response.Write("<td height='25' class='thisstep' colspan='2'> (4) 生成配置文件")
		Response.Write("</td>")
		Response.Write("</tr>")
		response.write"<tr><td colspan=""2"" class=""list"">生成进度：<ol type=""1""><li>系统配置文件生成成功</li><li>系统广告文件生成成功</li>"& mes &""
		response.write"<li>正在生成页头文件，<font color=red><span id=""backtime"">0</span></font> 秒后，<a href=""?step=UpdateTpl"">系统将自动执行下一步...</a></li></td></tr>"
		response.write"<script language=""JavaScript"">Url=""?step=UpdateTpl"";if (!Url){Url=document.referrer}function countDown(secs){document.getElementById(""backtime"").innerHTML=secs;if(--secs>0) {setTimeout(""countDown(""+secs+"")"",1000);}else {window.location.href=Url;}}countDown(3);</script>"
End Sub

Sub UpdateTpl()
		Response.Write("<tr>")
		Response.Write("<td height='25' class='thisstep' colspan='2'> (5) 生成模板文件")
		Response.Write("</td>")
		Response.Write("</tr>")
		response.write"<tr><td colspan=""2"" class=""list"">生成进度：<ol type=""1""><li>正在生成模板文件：<br />"
		rem <-{生成界面文件 2009-8-3 by 56770.kingdge
		action = "all"
		For LangT = 1 To TotalLang
				If template = "" Then template = LanguageSkin(LangT)
				LB_XML.Path = server.MapPath("../skins/"& template &"/data.xml")
				LB_XML.Data = "data"
				LB_XML.open
				LB_XML.SelectTable("config")
				stylefolder = LB_XML.read("stylefolder")
				LB_XML.close
				If filename = "error.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/error.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,skin_body,"Message/Error.asp"
						Set Tpl = Nothing
						response.write"·error.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If 
				If filename = "success.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/success.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,skin_body,"Message/Success.asp"
						Set Tpl = Nothing
						response.write"·success.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If 
				If filename = "generic.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/generic.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,tpl_rem,"Message/OpenMsg.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,skin_body,"basket/pay.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.Assign("strwebtitle") = Lebi_pro(92) &"-"
						Tpl.DisPlay template,skin_body,"Product/Rating/default.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.Assign("strwebtitle") = Lebi_pro(109) &"-"
						Tpl.DisPlay template,skin_body,"comp.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,skin_body,"basket/Shipment.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,tpl_rem,"Product/Html/ProductInfo.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,tpl_rem &"{[Connclose()]}","count.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,tpl_rem,"Rss.asp"
						Else
								Tpl.DisPlay template,tpl_rem,"category/rss/default.asp"
						End If
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Query"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"Search/order.asp"
						Set Tpl = Nothing
						response.write"·generic.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "default.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/default.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_default"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"default.asp"
						Set Tpl = Nothing
						response.write"·default.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "product_category.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/product_category.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Category"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"Mulu.asp"
						Else
								Tpl.DisPlay template,skin_body,"category/default.asp"
						End If
						Set Tpl = Nothing
						response.write"·product_category.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "brand.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/brand.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Brand"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"Brand.asp"
						Else
								Tpl.DisPlay template,skin_body,"brand/default.asp"
						End If
						Set Tpl = Nothing
						response.write"·brand.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "brand_list.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/brand_list.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_brand_list"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"brand/list/default.asp"
						Set Tpl = Nothing
						response.write"·brand_list.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "product_list.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/product_list.htm")
						If Config_Lebi_Eshop(16) = 0 Then
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								s_text=LoadText("Lebi_Pro_List"& LanguageTxt(LangT) &".text")
								If s_text <> "" Then
									Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
									Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
									Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
									Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								End If
								Tpl.DisPlay template,skin_body,"Showsort.asp"
								Set Tpl = Nothing
						Else
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								s_text=LoadText("Lebi_Pro_List"& LanguageTxt(LangT) &".text")
								If s_text <> "" Then
									Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
									Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
									Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
									Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
									Tpl.Assign("sort_id") = 0
								End If
								Tpl.DisPlay template,skin_body,"Category/0/default.asp"
								Set Tpl = Nothing
								Set rs = conn.execute("select c_id,c_skin,c_info,c_foldername from [Lebi_category]")
								Do While Not rs.eof
										If rs(1) <> "" Then
											skin_body = LoadStyle(Eshop_url & stylefolder &"category/"&rs(1))
										Else
											skin_body = LoadFile("../skins/"& template &"/template/product_list.htm")
										End If
										Set Tpl = New Cache_Tpl
										Tpl.Template = Eshop_url
										Tpl.LangTxt = LanguageTxt(LangT)
										Tpl.LangFile = LanguageFile(LangT)
										Tpl.LangName = LanguageName(LangT)
										Tpl.LangPath = LanguagePath(LangT)
										If s_text <> "" Then
											Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
										End If
										Tpl.Assign("strwebtitle") = Trim(Split(rs(2),"$")(0))
										Tpl.Assign("description") = Trim(Split(rs(2),"$")(2))
										Tpl.Assign("keywords") = Trim(Split(rs(2),"$")(1))
										Tpl.Assign("sort_id") = rs(0)
										Tpl.DisPlay template,skin_body,"Category/"&rs(3)&"/default.asp"
										Set Tpl = Nothing
								rs.movenext
								Loop
								rs.close : Set rs = Nothing
						End If
						response.write"·product_list.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				rem	<-{ 根据sortid生成自定义模版 2008-6-23 by 56770.WangLei
				If action = "tpl_showsort_one" Then
						Dim tpl_Lebi_Eshop_showsort_one_t,c_id
						c_id = CInt(request("c_id"))
						Set rs = conn.execute("select c_id,c_skin,c_info,c_foldername from [Lebi_category] where c_id="&c_id)
						If Not rs.eof Then
								If rs(1) <> "" Then
									skin_body = LoadStyle(Eshop_url & stylefolder &"category/"&rs(1))
								Else
									skin_body = LoadFile("../skins/"& template &"/template/product_list.htm")
								End If
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								s_text=LoadText("Lebi_Pro_List"& LanguageTxt(LangT) &".text")
								If s_text <> "" Then
									Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
								End If
								Tpl.Assign("strwebtitle") = Trim(Split(rs(2),"$")(0))
								Tpl.Assign("description") = Trim(Split(rs(2),"$")(2))
								Tpl.Assign("keywords") = Trim(Split(rs(2),"$")(1))
								Tpl.Assign("sort_id") = rs(0)
								Tpl.DisPlay template,skin_body,"Category/"&rs(3)&"/default.asp"
								Set Tpl = Nothing
						End If
						rs.close : Set rs = Nothing
				End If
				rem	}->
				If filename = "product_new.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/product_new.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_New"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"NewProduct.asp"
						Else
								Tpl.DisPlay template,skin_body,"new/default.asp"
						End If
						Set Tpl = Nothing
						response.write"·product_new.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "product_recommend.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/product_recommend.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Recom"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"Recom.asp"
						Else
								Tpl.DisPlay template,skin_body,"recom/default.asp"
						End If
						Set Tpl = Nothing
						response.write"·product_recommend.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "product_sale.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/product_sale.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Sale"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"Tjia.asp"
						Else
								Tpl.DisPlay template,skin_body,"sale/default.asp"
						End If
						Set Tpl = Nothing
						response.write"·product_sale.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "product_detail.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/product_detail.htm")
						ViewHistory = "<script src=""include/Lebi_Html/ProductViewHistory.asp?id={$ProductInfoItemId}&product_name={$EncodeProductInfoItemName}&product_type=&pic={$ProductInfoItemPic}""></script>"
						skin_body = skin_body & ViewHistory
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Info"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"ShowProduct.asp"
						Else
								Tpl.DisPlay template,skin_body,"product/default.asp"
						End If
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Info"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,tpl_rem,"product/post.asp"
						response.write"·product_detail.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "product_showpic.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/product_showpic.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Info"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"ShowPic.asp"
						Else
								Tpl.DisPlay template,skin_body,"product/showpic/default.asp"
						End If
						Set Tpl = Nothing
						response.write"·product_showpic.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If 
				If filename = "user_register.htm" Or action ="all" Then
						Select Case sys_soft
						Case "0" skin_body = LoadFile("../skins/"& template &"/template/user_register.htm")
						Case "1" skin_body = LoadFile("../skins/"& template &"/template/user_register_europe.htm")
						End Select 
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_reg"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"user/reg.asp"
						Set Tpl = Nothing
						skin_body = LoadFile("../skins/"& template &"/template/generic.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_reg"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"user/regok.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,tpl_rem,"user/check.asp"
						Set Tpl = Nothing
						response.write"·user_register.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "user_signin.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/user_signin.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_login"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"user/login.asp"
						Set Tpl = Nothing
						skin_body = LoadFile("../skins/"& template &"/template/generic.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_login"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"user/cklogin.asp"
						Set Tpl = Nothing
						response.write"·user_signin.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "order_basket.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/order_basket.htm")
'						If InStr(LCase(skin_temp),"include/js/basket.js") = 0 Then 
'								skin_temp = "<script type=""text/javascript"" src=""include/js/basket.js""></script>"&vbcrlf & skin_temp
'						End If 
'						Basket_content = Replace(skin_temp,"{str_lowprice}",formatnumber2(str_lowprice))
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_basket"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"basket/default.asp"
						Tpl.DisPlay template,"","basket/post.asp"
						Set Tpl = Nothing
						skin_body = LoadFile("../include/Lebi_Data/print.data")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,skin_body,"basket/Print.asp"
						Set Tpl = Nothing
						response.write"·order_basket.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "order_checkout.htm" Or action ="all" Then
						Select Case sys_soft
						Case "0" skin_body = LoadFile("../skins/"& template &"/template/order_checkout.htm")
						Case "1" skin_body = LoadFile("../skins/"& template &"/template/order_checkout_europe.htm")
						End Select
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Cash"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"basket/cash.asp"
						Set Tpl = Nothing
						response.write"·order_checkout.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "order_preview.htm" Or action ="all" Then
						Select Case sys_soft
						Case "0" skin_body = LoadFile("../skins/"& template &"/template/order_preview.htm")
						Case "1" skin_body = LoadFile("../skins/"& template &"/template/order_preview_europe.htm")
						End Select
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Cashview"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"basket/cashview.asp"
						Set Tpl = Nothing
						response.write"·order_preview.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "order_submit.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/order_submit.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Cashsave"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"basket/cashsave.asp"
						Set Tpl = Nothing
						response.write"·order_submit.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "user_panel.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/user_panel.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_User"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"user/default.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_User"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"user/pay.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_User"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"user/post.asp"
						Set Tpl = Nothing
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						Tpl.DisPlay template,"","user/Html/UserLogin.asp"
						Set Tpl = Nothing
						response.write"·user_panel.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "gift.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/gift.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_gift"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"Gift.asp"
						Else
								Tpl.DisPlay template,skin_body,"gift/default.asp"
						End If
						Set Tpl = Nothing
						response.write"·gift.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "news_default.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/news_default.htm")
						If Config_Lebi_Eshop(16) = 0 Then
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								s_text=LoadText("Lebi_News"& LanguageTxt(LangT) &".text")
								If s_text <> "" Then
									Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
									Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
									Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
									Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								End If
								Tpl.DisPlay template,skin_body,"Zhuanti.asp"
								Set Tpl = Nothing
						Else
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								s_text=LoadText("Lebi_News"& LanguageTxt(LangT) &".text")
								If s_text <> "" Then
									Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
									Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
									Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
									Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								End If
								If Config_Lebi_Eshop(16) = 0 Then
										Tpl.DisPlay template,skin_body,"Zhuanti.asp"
								Else
										Tpl.DisPlay template,skin_body,"news/default.asp"
								End If
								Set Tpl = Nothing
						End If 
						response.write"·news_default.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If 
				If filename = "news_list.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/news_list.htm")
						If Config_Lebi_Eshop(16) <> 0 Then
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
								Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
								Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								Tpl.DisPlay template,skin_body,"news/class/default.asp"
								Set Tpl = Nothing
								rem <-{ 专题分类模板 2008-02-29 by 56770.icystar
								Dim tpl_Lebi_Eshop_news_t
								Set rs = conn.execute("select ClassID,ClassSkin,n_foldername from [Lebi_newsclass]")
								Do While Not rs.eof
								If rs(1) <> "" Then
									skin_body = LoadStyle(Eshop_url & stylefolder &"news/"&rs(1))
								Else
									skin_body = LoadFile("../skins/"& template &"/template/news_list.htm")
								End If
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								s_text=LoadText("Lebi_News"& LanguageTxt(LangT) &".text")
								Tpl.Assign("classid") = rs(0)
								Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
								Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
								Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								Tpl.DisPlay template,skin_body,"news/"&rs(2)&"/default.asp"
								Set Tpl = Nothing
								rs.movenext
								Loop
								rs.close : Set rs = Nothing
								rem }->
								response.write"·news_list.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
								response.flush
						End If 
				End If 
				If filename = "news_detail.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/news_detail.htm")
						If Config_Lebi_Eshop(16) <> 0 Then
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
								Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
								Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								Tpl.Assign("IsDiy") = 0
								Tpl.DisPlay template,skin_body,"news/list/default.asp"
								Set Tpl = Nothing
								rem <-{ 专题内容模板 2008-3-6 by 56770.icystar
								Set rs = conn.execute("select id,n_skin from [Lebi_news] where n_skin <> ''")
								Do While Not rs.eof
								skin_body = LoadStyle(Eshop_url & stylefolder &"news/list/"&rs(1))
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								Tpl.Assign("id") = rs(0)
								Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
								Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
								Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								Tpl.Assign("IsDiy") = 1
								Tpl.DisPlay template,skin_body,"news/list/"&rs(0)&"/default.asp"
								Set Tpl = Nothing
								rs.movenext
								Loop
								rs.close : Set rs = Nothing
								rem }->
								response.write"·news_detail.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
								response.flush
						End If
				End If
				rem <-{ 专题类别classid模板生成 2011-08-21 by 56770.Kingdge
				If action = "tpl_news_class_one" Then
						id = CheckNum(request("id"),0)
						Set rs = conn.execute("select ClassSkin,n_foldername from [Lebi_newsclass] where classid = "& id &"")
						If Not rs.eof Then
								If rs(0) <> "" Then
									skin_body = LoadStyle(Eshop_url & stylefolder &"news/"&rs(0))
								Else
									skin_body = LoadFile("../skins/"& template &"/template/news_list.htm")
								End If
								Set Tpl = New Cache_Tpl
									Tpl.Template = Eshop_url
									Tpl.LangTxt = LanguageTxt(LangT)
									Tpl.LangFile = LanguageFile(LangT)
									Tpl.LangName = LanguageName(LangT)
									Tpl.LangPath = LanguagePath(LangT)
									s_text=LoadText("Lebi_News"& LanguageTxt(LangT) &".text")
									Tpl.Assign("classid") = id
									Tpl.Assign("Showpath") = "<a href='"& eshop_url & LangPath &"'>"& Lebi_word(0) &"</a> → <a href='"& eshop_url & url_7 &"'>"& Lebi_word(18) &"</a>"
									Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
									Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
									Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
									Tpl.DisPlay template,skin_body,"news/"& rs(1) &"/default.asp"
								Set Tpl = Nothing
						End If
						rs.close : Set rs = Nothing
						response.write"·news_list.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				rem }->
				If filename = "help_default.htm" Or filename = "help_list.htm" Or filename = "help_system.htm" Or action ="all" Then
						If Config_Lebi_Eshop(16) = 0 Then
								skin_body = "{[if request(""action"") = """" Then]}"& LoadFile("../skins/"& template &"/template/help_default.htm") &"{[End If]}"& vbcrlf & "{[if request(""action"") = ""help_class"" Then]}"& LoadFile("../skins/"& template &"/template/help_list.htm") &"{[End If]}"& vbcrlf & "{[if request(""action"") = ""system"" Then]}"& LoadFile("../skins/"& template &"/template/help_system.htm") &"{[End If]}"
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								s_text=LoadText("Lebi_help"& LanguageTxt(LangT) &".text")
								If s_text <> "" Then
									Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
									Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
									Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
									Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								End If
								Tpl.DisPlay template,skin_body,"Help.asp"
								Set Tpl = Nothing
						Else
								skin_body = LoadFile("../skins/"& template &"/template/help_default.htm")
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								s_text=LoadText("Lebi_help"& LanguageTxt(LangT) &".text")
								If s_text <> "" Then
									Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
									Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
									Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
									Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								End If
								Tpl.DisPlay template,skin_body,"help/default.asp"
								Set Tpl = Nothing
						End If 
						response.write"·help_default.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If 
				If filename = "help_list.htm" Or action ="all" Then
						If Config_Lebi_Eshop(16) <> 0 Then
								skin_body = LoadFile("../skins/"& template &"/template/help_list.htm")
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
								Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
								Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								Tpl.DisPlay template,skin_body,"help/class/default.asp"
								Set Tpl = Nothing
								response.write"·help_list.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
								response.flush
						End If 
				End If 
				If filename = "help_system.htm" Or action ="all" Then
						If Config_Lebi_Eshop(16) <> 0 Then
								skin_body = LoadFile("../skins/"& template &"/template/help_system.htm")
								Set Tpl = New Cache_Tpl
								Tpl.Template = Eshop_url
								Tpl.LangTxt = LanguageTxt(LangT)
								Tpl.LangFile = LanguageFile(LangT)
								Tpl.LangName = LanguageName(LangT)
								Tpl.LangPath = LanguagePath(LangT)
								If s_text <> "" Then
									Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
									Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
									Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
									Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
								End If
								Tpl.DisPlay template,skin_body,"help/system/default.asp"
								Set Tpl = Nothing
								response.write"·help_system.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
								response.flush
						End If
				End If
				If filename = "guestbook.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/guestbook.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_GuestBook"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"Book.asp"
						Else
								Tpl.DisPlay template,skin_body,"book/default.asp"
						End If
						Tpl.DisPlay template,skin_body,"book/post.asp"
						Set Tpl = Nothing
						response.write"·guestbook.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "advancedsearch.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/advancedsearch.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Query"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"Search.asp"
						Else
								Tpl.DisPlay template,skin_body,"search/default.asp"
						End If
						Set Tpl = Nothing
						response.write"·advancedsearch.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "searchresult.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/searchresult.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Querylist"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"SearchShop.asp"
						Else
								Tpl.DisPlay template,skin_body,"search/list/default.asp"
						End If
						Set Tpl = Nothing
						response.write"·searchresult.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "link.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/link.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_link"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						If Config_Lebi_Eshop(16) = 0 Then
								Tpl.DisPlay template,skin_body,"Links.asp"
						Else
								Tpl.DisPlay template,skin_body,"Link/default.asp"
						End If
						Tpl.DisPlay template,"","Link/post.asp"
						Set Tpl = Nothing
						response.write"·link.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "product_unite.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/product_unite.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Unite"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"unite/default.asp"
						Set Tpl = Nothing
						response.write"·product_unite.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "product_unite_detail.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/product_unite_detail.htm")
						ViewHistory = "<script src=""include/Lebi_Html/ProductViewHistory.asp?id={$ProductInfoItemId}&product_name={$EncodeProductInfoItemName}&product_type=unite&pic={$ProductInfoItemPic}""></script>"
						skin_body = skin_body & ViewHistory
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_pro_info_u"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("strwebtitle") = Trim(Split(s_text,"$$$")(1))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.Assign_Dim("product_type") = "unite"
						Tpl.DisPlay template,skin_body,"unite/show/default.asp"
						Set Tpl = Nothing
						response.write"·product_unite_detail.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If
				If filename = "writemsg.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/writemsg.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_Pro_Info"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"message/WriteMsg.asp"
						Set Tpl = Nothing
						response.write"·writemsg.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If 
				If filename = "order_pay.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/order_pay.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_basket"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"basket/paymoney.asp"
						Set Tpl = Nothing
						response.write"·order_pay.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If 
				If filename = "vote.htm" Or action ="all" Then
						skin_body = LoadFile("../skins/"& template &"/template/vote.htm")
						Set Tpl = New Cache_Tpl
						Tpl.Template = Eshop_url
						Tpl.LangTxt = LanguageTxt(LangT)
						Tpl.LangFile = LanguageFile(LangT)
						Tpl.LangName = LanguageName(LangT)
						Tpl.LangPath = LanguagePath(LangT)
						s_text=LoadText("Lebi_default"& LanguageTxt(LangT) &".text")
						If s_text <> "" Then
							Tpl.Assign("sitename") = Trim(Split(s_text,"$$$")(0))
							Tpl.Assign("description") = Trim(Split(s_text,"$$$")(2))
							Tpl.Assign("keywords") = Trim(Split(s_text,"$$$")(3))
						End If
						Tpl.DisPlay template,skin_body,"message/vote.asp"
						Set Tpl = Nothing
						response.write"·vote.htm <span style='color:#ff0000;font-weight:bold;'>√</span><br />"
						response.flush
				End If 
		Next
		rem }->
		conn.close:Set conn=Nothing
		Response.Write"<br><font color=red><span id=""backtime"">0</span></font> 秒后，<a href=""?step=Administrator"">系统将自动执行下一步...</a></li></td></tr>"
		response.write"<script language=""JavaScript"">Url=""?step=Administrator"";if (!Url){Url=document.referrer}function countDown(secs){document.getElementById(""backtime"").innerHTML=secs;if(--secs>0) {setTimeout(""countDown(""+secs+"")"",1000);}else {window.location.href=Url;}}countDown(5);</script>"
End Sub

Sub Administrator()
		Response.Write("<tr>")
		Response.Write("<td height='25' class='thisstep' colspan='2'> (6) 添加网站管理员")
		Response.Write("</td>")
		Response.Write("</tr>")
		Response.Write("<form action='Install.asp' method='post' name='Admin'>")
		Response.Write("<tr class='classrow'>")
		Response.Write("<td class='classrow' width='18%' height='30' align='center'>帐号名称：</td>")
		Response.Write("<td class='classrow'>&nbsp;<input type='text' name='admin_name' size='60' class='form'></td>")
		Response.Write("</tr>")
		Response.Write("<tr class='classrow'>")
		Response.Write("<td class='classrow' width='18%' height='30' align='center'>帐号密码：</td>")
		Response.Write("<td class='classrow'>&nbsp;<input type='password' name='admin_pass' size='60' class='form'></td>")
		Response.Write("</tr>")
		Response.Write("<tr class='classrow'>")
		Response.Write("<td class='classrow' width='18%' height='30' align='center'>确认密码：</td>")
		Response.Write("<td class='classrow'>&nbsp;<input type='password' name='admin_repass' size='60' class='form'></td>")
		Response.Write("</tr>")
		Response.Write("<tr>")
		Response.Write("<td height='30' class='foot' align='left'> <input type='submit' value=' 下一步 ' name='Config' class='button'><input type='hidden' name='step' value='AddAdministrator'>")
		Response.Write("</td>")
		Response.Write("<td height='30' class='foot' align='right'> Powered by <span style='color:#0954A6;font-weight:bold;'>56770</span> <span style='color:#FFA32B;font-weight:bold;'>Eshop</span></td>")
		Response.Write("</tr>")
		Response.Write("</form>")
End Sub
Sub AddAdministrator()
        admin_pass=safereplace(Trim(request("admin_pass")))
	    admin_name=safereplace(trim(request("admin_name")))
		admin_repass=safereplace(trim(request("admin_repass")))
		If admin_name = "" Then
                Response.Write("<script>alert('请输入帐号名称!');document.location.href='Install.asp?step=Administrator';</script>")
				Response.End
		End If
		If admin_pass = "" Then
                Response.Write("<script>alert('请输入帐号密码!');document.location.href='Install.asp?step=Administrator';</script>")
				Response.End
		End If
		If admin_pass <> admin_repass Then
                Response.Write("<script>alert('您两次输入的密码不一致,请重新输入!');document.location.href='Install.asp?step=Administrator';</script>")
				Response.End
		End If
		On Error Resume Next
	    set	rs=server.createobject("adodb.recordset")
	    sql="select admin_name,admin_pass,AcceptIP,a_state,flag,pflag,menutype from [Lebi_adminuser]"
	    rs.open	sql,conn,1,3
	            Rs.addnew
	    	    Rs("admin_name") = admin_name
	    	    Rs("admin_pass") = md5(admin_pass)
	    	    Rs("AcceptIP") = ""
	    	    Rs("a_state") = 0
				Rs("flag") = "0.1,1.1,1.2,1.3,1.4,1.5,1.6,1.7,1.8,1.9,1.10,1.11,2.1,2.2,2.3,2.8,2.4,2.5,2.6,2.7,3.1,3.2,3.3,3.4,3.5,3.6,3.7,3.8,3.9,3.10,3.11,4.1,4.2,4.3,4.4,4.5,5.1,5.2,5.3,5.4,5.5,6.1,6.2,6.3,6.4,6.5,7.1,7.2,7.3,7.4,7.5,7.6,7.7,8.1,8.2,8.3,8.4,8.5,8.6,8.7,8.8,8.9,8.10,8.13,8.11,8.12,9.1,9.2,9.3,9.4,9.5,9.6,9.7,10.1,10.2,10.3,10.4,10.5,10.7,10.8,10.9,10.10,11.1,11.2,12.1,12.2,12.3,12.4,12.5,12.6,13.1,13.2,13.3,13.4,13.5,x1.1,x1.2,x1.3,x1.4,x1.5,x2.1,x2.2,x2.3,x3.1,x3.2,x3.3,x4.1,x4.2,x4.3,x5.1,x5.2,x5.3,x5.4,x5.5,x5.6,x6.1,x6.2,x6.3,x6.4,x6.5,x7.1,x7.2,x7.3,x7.4,x7.5,x7.6,x8.1,x8.2,x8.3,x8.4,x8.5,x8.6,x8.7,x8.8,x8.9,x9.1,x9.2,x10.1,x10.2,x10.3,x10.4,x10.5,x10.6,x10.7,x11.1,x11.2,x11.3,x11.4,x11.5,x11.6,x11.7,w1,w3,w4,q8,q9,q1,q2,q3,q4,q5,q6,q7,u1,u2,u3,u4,u5,u6,u7,p1,99&"
				rs("pflag") = 0
				rs("menutype") = 1
	    	    Rs.update
	    rs.close : Set rs = Nothing
		If Err.Number>0 Then
		        response.write("<tr><Td class=""classrow""><font color=red>错误：当前记录集不支持更新。<br>这可能是提供程序的限制，也可能是选定锁定类型的限制。</font><br><a href=""http://www.56770.com/faq/list/?id=117"" target=""_blank""><font color=blue>查找解决办法？</font></a></td></tr>")
		        response.End
		End If
		Response.Redirect"?step=InstallEnd"
		Response.End
End Sub

Sub InstallEnd()
        Response.Write("<tr>")
		Response.Write("<td height='25' class='thisstep' colspan='2'> (6) 安装结束")
		Response.Write("</td>")
		Response.Write("</tr>")
		Response.Write("<tr>")
		Response.Write("<td class='list'>恭喜您，系统安装完成<font color=red>（请务必点击删除安装文件，或手动删除install文件夹，以免被不法分子利用危害网站安全！）</font>：<ol type=""1""><li><a href='../' target='_blank'>访问网站前台</a></li><li><a href='../admin/default.asp' target='_blank'>登陆系统后台</a></li><li><a href='?step=DelInstall'>删除安装文件</a></li></td>")
		Response.Write("</tr>")
		Response.Write("<tr>")
		Response.Write("<td height='30' class='foot' align='right' colspan='2'> Powered by <span style='color:#0954A6;font-weight:bold;'>56770</span> <span style='color:#FFA32B;font-weight:bold;'>Eshop</span>")
		Response.Write("</td>")
		Response.Write("</tr>")
End Sub

Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If Err = 0 Then IsObjInstalled = True
	If Err = -2147352567 Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function

Function Get_Eshop_url()
Dim Get_Lebi_Eshop_Dir,Str_Get_Lebi_Eshop_Dir,Arr_Get_Lebi_Eshop_Dir,Eshop_dir
If Isotherdomin="0" Then
            Get_Lebi_Eshop_Dir= lcase(Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL"))
            Str_Get_Lebi_Eshop_Dir = Replace(Replace(Get_Lebi_Eshop_Dir,"admin/",""),"js_html/","")
            If instr(Str_Get_Lebi_Eshop_Dir,"/")>0 Then
                    Arr_Get_Lebi_Eshop_Dir = split(Str_Get_Lebi_Eshop_Dir,"/")
                    If ubound(Arr_Get_Lebi_Eshop_Dir)<=1 Then
                            Eshop_dir = ""
	            ElseIf ubound(Arr_Get_Lebi_Eshop_Dir)<=2 Then
                            Eshop_dir = Arr_Get_Lebi_Eshop_Dir(ubound(Arr_Get_Lebi_Eshop_Dir)-1)
	            ElseIf ubound(Arr_Get_Lebi_Eshop_Dir)<=3 Then
                            Eshop_dir = Arr_Get_Lebi_Eshop_Dir(ubound(Arr_Get_Lebi_Eshop_Dir)-2) &"/"& Arr_Get_Lebi_Eshop_Dir(ubound(Arr_Get_Lebi_Eshop_Dir)-1)
	            ElseIf ubound(Arr_Get_Lebi_Eshop_Dir)<=4 Then
                            Eshop_dir = Arr_Get_Lebi_Eshop_Dir(ubound(Arr_Get_Lebi_Eshop_Dir)-3) &"/"& Arr_Get_Lebi_Eshop_Dir(ubound(Arr_Get_Lebi_Eshop_Dir)-2) &"/"& Arr_Get_Lebi_Eshop_Dir(ubound(Arr_Get_Lebi_Eshop_Dir)-1)
	            End If
            Else
                    Eshop_dir = "/"
            End If
            If Eshop_dir = "" Then
                    Eshop_dir = "/"
            Else
                    Eshop_dir = "/"& Eshop_dir &"/"
            End If
    Else
            Eshop_dir = "/"& Eshop_Realdir &"/"
    End if
    Get_Eshop_url = Eshop_dir
End Function
%>
</body>
</html>