<%
Rem 系统参数设置  56770 Eshop网上开店系统（www.56770.com）自动生成====================================

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
Dim Eshop_url
Eshop_url = "../"

Dim MyDbPath
MyDbPath = "../"

Rem Cookies 名称
Const cookiesname = "56770.COM.101410"

Rem Cookies用户密钥前缀
Const Eshop_token = "56770.COM.10140"

Rem 数据库类型 0 为 ACCESS数据库 1 为 SQL SERVER数据库
Const IsSqlDataBase = "0"

Rem 是否允许WEB登陆 0 为允许 1 为不允许
Const weblogin = "0"

Rem 是否启用二级域名 0 为否 1 为是
Const Isotherdomin = "0"

Rem 实际安装路径，未启用二级域名则不需输入 如二级域名为shop.Lebi.com系统安装路径实际为newshop 则输入  newshop
Const Eshop_Realdir = ""

Rem 数据库设置==================================================

Rem ACCESS数据库设置

Rem 邮件列表数据库设置
Const db_mailname = "#Lebi_mail.mail"

Rem 主数据库设置
Const dbname = "#lebi_v150.data"

Rem SQL SERVER数据库设置

Rem 数据库名称
Const SqlDatabaseName = "56770Eshop_Lang"

Rem 数据库密码
Const SqlPassword = "sa"

Rem 数据库用户名
Const SqlUsername = "sa"

Rem 服务器地址
Const SqlLocalName = "56770-KINGDGE\LEBI"

Rem 数据只读 0 为否 1 为是
Const OnlyRead = "0"

Rem 外站提交 0 为允许 1 为禁止
Const OutSubmit = "0"

Rem 图片文件夹
Const PicPath = "Pic"

Rem 验证码路径名称
Const Codepath = "include/code.asp"

Rem 后台管理文件夹
Const Adminpath = "Admin"

Rem 是否整合论坛  0为否 1为是
Const usedvbbs = "0"

Rem 论坛数据库路径
Const dv_db = "bbs/data/Dvbbs7_Lebi.asa"

%>
<!--#include file="HtmlConfig.inc"-->