<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnDatabase.asp" -->
<!--#include file="../Include/Version.asp" -->
<!--#include file="../Include/system_language.asp" -->
<!--#include file="CheckAdmin.asp"-->
<%
'*********************************************
'软件名称：博科企业网站内容管理系统（BOKECMS）
'软件开发：博科网络科技工作室
'网    址：http://www.bokew.net
'服务  QQ：530051328
'服务邮箱：bbfhq@163.com
'微信公众号：bokewlkj
'*********************************************
%>
<%
Select Case request.QueryString("Action")
	Case "Save"
		SaveSiteInfo
	Case "SaveConst"
		SaveConstInfo
	Case Else
End Select
Call SiteInfo%>
<!DOCTYPE html>
<html lang="zh-cn">
<head>
<meta charset="utf-8">
<meta http-equiv="X-UA-Compatible" content="IE=edge">
<meta name="viewport" content="width=device-width, initial-scale=1">
<meta name="description" content="<%=Bokecms_Lang_Copyright(13)%>">
<meta name="author" content="<%=Bokecms_Lang_Copyright(3)%>">
<title><%=Bokecms_Lang_Copyright(1)%> <%=Soft_Version%></title>
<!--#Include file="BokeCMS_Css.Asp"-->
</head>

<body>
<!--#Include file="BokeCMS_Top.Asp"-->

<!--#Include file="BokeCMS_Meun.Asp"-->
<div id="wrap">
	<%
	If InStr(CompanyAdminPurview, "|22,") = 0 Then
		response.Write ("<br /><br /><div style='height:100%; text-align:center' class='main'><font style=""color:red; font-size:9pt;"")>"&Bokecms_Lang_System(26)&"</font></div>")
		response.End
	End If
	%>
    <!-- start: Content -->
    <div class="main">
        <div class="row ">
            <ol class="breadcrumb">
                <li><i class="fa fa-home"></i> <%=Bokecms_Lang_Copyright(14)%></li>
                <li><%=Bokecms_Lang_Copyright(2)%></li>
                <li class="active"><%=Bokecms_Lang_System(2)%></li>
            </ol>	
        </div>	
		<div class="row">
            <div class="col-md-12">
                <div class="panel panel-default">
                    <div class="panel-heading">
                        <h2><i class="fa fa-gears"></i><span class="break"></span><strong><%=Bokecms_Lang_System(2)%></strong></h2>
                    </div>
                    <div class="panel-body">
                    <form action="?Action=SaveConst" method="post" name="ConstForm" class="form-horizontal ">
                        <div class="panel-heading">
                            <h2><i class="fa  fa-exclamation-circle"></i><span class="break"></span><strong><%=Bokecms_Lang_sys_Parameters(31)%></strong></h2>
                        </div> 
                        <div class="form-group">
                            <label class="col-md-2 control-label"><%=Bokecms_Lang_sys_Parameters(2)%>：</label>
                            <div class="col-md-10">
                                <label class="radio-inline" for="EnableCopy1">
                                    <input name="EnableCopy" id="EnableCopy1" type="radio" value="True" <%If EnableCopy = True Then%> checked<%End If%>> <%=Bokecms_Lang_System(30)%>
                                </label>
                                <label class="radio-inline" for="EnableCopy2">
                                    <input name="EnableCopy" id="EnableCopy2" type="radio" value="False" <%If EnableCopy = False Then%> checked<%End If%>> <%=Bokecms_Lang_System(31)%> 
                                </label>
                                <span class="help-block"></span>
                            </div>
                        </div>
                        <div class="form-group">
                            <label class="col-md-2 control-label"><%=Bokecms_Lang_sys_Parameters(3)%>：</label>
                            <div class="col-md-10">
                                <label class="radio-inline" for="EnableBackstageCode1">
                                    <input name="EnableBackstageCode" id="EnableBackstageCode1" type="radio" value="True" <%If EnableBackstageCode = True Then%> checked<%End If%>> <%=Bokecms_Lang_System(30)%>
                                </label>
                                <label class="radio-inline" for="EnableBackstageCode2">
                                    <input name="EnableBackstageCode" id="EnableBackstageCode2" type="radio" value="False" <%If EnableBackstageCode = False Then%> checked<%End If%>> <%=Bokecms_Lang_System(31)%> 
                                </label>
                                <span class="help-block"></span>
                            </div>
                        </div>
                        <div class="form-group">
                            <label class="col-md-2 control-label"><%=Bokecms_Lang_sys_Parameters(6)%>：</label>
                            <div class="col-md-10">
                                <label class="radio-inline" for="EnableSiteManageCode1">
                                    <input name="EnableSiteManageCode" id="EnableSiteManageCode1" type="radio" value="True" <%If EnableSiteManageCode = True Then%> checked<%End If%>> <%=Bokecms_Lang_System(30)%>
                                </label>
                                <label class="radio-inline" for="EnableSiteManageCode2">
                                    <input name="EnableSiteManageCode" id="EnableSiteManageCode2" type="radio" value="False" <%If EnableSiteManageCode = False Then%> checked<%End If%>> <%=Bokecms_Lang_System(31)%>
                                </label>
                                <span class="help-block"></span>
                            </div>
                        </div>
                        <div class="form-group">
                            <label class="col-md-2 control-label"><%=Bokecms_Lang_sys_Parameters(7)%>：</label>
                            <div class="col-md-3">
                                <input name="SiteManageCode" type="text" id="SiteManageCode" class="form-control" value="<%=SiteManageCode%>" maxlength="20"> 
                                <span class="help-block"><font color="red">*</font>请填写后台登陆认证码</span>
                            </div>
                        </div>
                        
                        <div class="panel-heading">
                            <h2><i class="fa fa-file-text"></i><span class="break"></span><strong><%=Bokecms_Lang_sys_Parameters(33)%></strong></h2>
                        </div>
                        <div class="form-group">
                            <label class="col-md-2 control-label"><%=Bokecms_Lang_sys_Parameters(16)%>：</label>
                            <div class="col-md-10">
                                <label class="radio-inline" for="ClassSeoISPY1">
                                    <input name="ClassSeoISPY" id="ClassSeoISPY1" type="radio" value="True" <%If ClassSeoISPY = True Then%> checked<%End If%>> <%=Bokecms_Lang_System(30)%>
                                </label>
                                <label class="radio-inline" for="ClassSeoISPY2">
                                    <input name="ClassSeoISPY" id="ClassSeoISPY2" type="radio" value="False" <%If ClassSeoISPY = False Then%> checked<%End If%>> <%=Bokecms_Lang_System(31)%>
                                </label>
                                <span class="help-block">如您启用汉字转换拼音功能，则选项必须为开启状态。</span>
                            </div>
                        </div>
                        <div class="form-group">
                            <label class="col-md-2 control-label"><%=Bokecms_Lang_sys_Parameters(17)%>：</label>
                            <div class="col-md-4">
                                <input name="Separated" type="text" id="Separated" class="form-control" value="<%=Separated%>">
                                <span class="help-block">如：News-1.html中的“-”即为分隔符</span>
                            </div>
                        </div>

                        <div class="panel-heading">
                            <h2><i class="fa  fa-columns"></i><span class="break"></span><strong>同步邮箱通知</strong></h2>
                        </div>
                        <div class="form-group">
                            <label class="col-md-2 control-label">是否启用同步邮箱通知：</label>
                            <div class="col-md-4">
                                <label class="radio-inline" for="JMailDisplay1" id="Show">
                                    <input name="JMailDisplay" id="JMailDisplay1" type="radio" value="True" <%If JMailDisplay = True Then%> checked<%End If%>> <%=Bokecms_Lang_System(30)%>
                                </label>
                                <label class="radio-inline" for="JMailDisplay2" id="Hide">
                                    <input name="JMailDisplay" id="JMailDisplay2" type="radio" value="False" <%If JMailDisplay = False Then%> checked<%End If%>> <%=Bokecms_Lang_System(31)%>
                                </label>
                                <span class="help-block">开启此功能后，客户的留言会发送到管理员设置好的信箱中。</span>
                            </div>
                        </div>
                        <div class="form-group" name="ShowFlag" <%If JMailDisplay = False Then response.Write "style='display:none'"%>>
                            <label class="col-md-2 control-label">SMTP服务器：</label>
                            <div class="col-md-4">
                                <input name="JMailSMTP" type="text" id="JMailSMTP" class="form-control" value="<%=JMailSMTP%>">
                                <span class="help-block"></span>
                            </div>
                        </div>
                        <div class="form-group" name="ShowFlag" <%If JMailDisplay = False Then response.Write "style='display:none'"%>>
                            <label class="col-md-2 control-label">SMTP服务器用户名：</label>
                            <div class="col-md-4">
                                <input name="JMailUser" type="text" id="JMailUser" class="form-control" value="<%=JMailUser%>">
                                <span class="help-block"></span>
                            </div>
                        </div>
                        <div class="form-group" name="ShowFlag" <%If JMailDisplay = False Then response.Write "style='display:none'"%>>
                            <label class="col-md-2 control-label">SMTP服务器密码：</label>
                            <div class="col-md-4">
                                <input name="JMailPass" type="text" id="JMailPass" class="form-control" value="<%=JMailPass%>">
                                <span class="help-block"></span>
                            </div>
                        </div>
                        <div class="form-group" name="ShowFlag" <%If JMailDisplay = False Then response.Write "style='display:none'"%>>
                            <label class="col-md-2 control-label">发送人：</label>
							<div class="col-md-4">
                            	<input name="JMailName" type="text" id="JMailName" class="form-control" value="<%=JMailName%>">
                                <span class="help-block"></span>
                            </div>
                        </div>
                        <div class="form-group" name="ShowFlag" <%If JMailDisplay = False Then response.Write "style='display:none'"%>>
                            <label class="col-md-2 control-label">接收信箱：</label>
                            <div class="col-md-4">
								<input name="JMailInFrom" type="text" id="JMailInFrom" class="form-control" value="<%=JMailInFrom%>">
                                <span class="help-block">暂不支持QQ邮箱接收</span>
                            </div>
                        </div>
                        <div class="form-group" name="ShowFlag" <%If JMailDisplay = False Then response.Write "style='display:none'"%>>
                            <label class="col-md-2 control-label">发送信箱：</label>
                            <div class="col-md-4">
								<input name="JMailOutFrom" type="text" id="JMailOutFrom" class="form-control" value="<%=JMailOutFrom%>">
                                <span class="help-block"></span>
                            </div>
                        </div>
                        <div class="form-group" name="ShowFlag" <%If JMailDisplay = False Then response.Write "style='display:none'"%>>
                            <label class="col-md-2 control-label">反馈标题头：</label>
                            <div class="col-md-4">
                          		<input name="JMailTitle" type="text" id="JMailTitle" class="form-control" value="<%= JMailTitle %>">
                                <span class="help-block"></span>
                            </div>
                        </div>

                        <div class="panel-heading">
                            <h2><i class="fa  fa-columns"></i><span class="break"></span><strong>会员管理</strong></h2>
                        </div>
                        <div class="form-group">
                            <label class="col-md-2 control-label">是否开放注册：</label>
                            <div class="col-md-10">
                                <label class="radio-inline" for="EnableViews1">
                                    <input name="userzc" id="userzc1" type="radio" value="True" <%If userzc = True Then%> checked<%End If%>> 开放
                                </label>
                                <label class="radio-inline" for="userzc2">
                                    <input name="userzc" id="userzc2" type="radio" value="False" <%If userzc = False Then%> checked<%End If%>> 关闭
                                </label>
                                 <span class="help-block"></span>
                            </div>
                        </div>  
                        <div class="form-group">
                            <label class="col-md-2 control-label">会员注册是否审核：</label>
                            <div class="col-md-10">
                                <label class="radio-inline" for="usersh1">
                                    <input name="usersh" id="usersh1" type="radio" value="True" <%If usersh = True Then%> checked<%End If%>> 开放
                                </label>
                                <label class="radio-inline" for="usersh2">
                                    <input name="usersh" id="usersh2" type="radio" value="False" <%If usersh = False Then%> checked<%End If%>> 关闭
                                </label>     
                                 <span class="help-block"></span>
                            </div>
                        </div>
                        <div class="form-group">
                            <label class="col-md-2 control-label">是否开启QQ登录：</label>
                            <div class="col-md-10">
                                <label class="radio-inline" for="EnableViews1">
                                    <input name="API_QQEnable" id="API_QQEnable1" type="radio" value="True" <%If API_QQEnable = True Then%> checked<%End If%>> 开启
                                </label>
                                <label class="radio-inline" for="API_QQEnable2">
                                    <input name="API_QQEnable" id="API_QQEnable2" type="radio" value="False" <%If API_QQEnable = False Then%> checked<%End If%>> 关闭
                                </label>
                                 <span class="help-block"></span>
                            </div>
                        </div>
                        <div class="form-group">
                            <label class="col-md-2 control-label">首次QQ登录自动创建账号：</label>
                            <div class="col-md-10">
                                <label class="radio-inline" for="EnableViews1">
                                    <input name="API_QuickLogin" id="API_QuickLogin1" type="radio" value="True" <%If API_QuickLogin = True Then%> checked<%End If%>> 开启
                                </label>
                                <label class="radio-inline" for="API_QuickLogin2">
                                    <input name="API_QuickLogin" id="API_QuickLogin2" type="radio" value="False" <%If API_QuickLogin = False Then%> checked<%End If%>> 关闭
                                </label>
                                 <span class="help-block">（目前自动创建帐号功能未开通，此项选择无效）</span>
                            </div>
                        </div> 
                        <div class="form-group">
                            <label class="col-md-2 control-label">QQ登录AppID：</label>
                            <div class="col-md-4">
                              <span class="help-int"> <input name="AppId" type="text" id="AppId" class="form-control" value="<%=AppId%>"></span>
                                <span class="help-block">&nbsp;腾讯opensns.qq.com 申请到的appid,<a href="http://connect.qq.com/" target="_blank"><font color="#0000FF">点此申请</font></a></span>                         
                            </div>
                        </div>
                        <div class="form-group">
                            <label class="col-md-2 control-label">QQ登录AppKey：</label>
                            <div class="col-md-4">
                              <span class="help-int"> <input name="AppKey" type="password" id="AppKey" class="form-control" value="<%=AppKey%>"></span>
                                <span class="help-block">&nbsp;腾讯opensns.qq.com 申请到的appkey</span>                         
                            </div>
                        </div>
                        <div class="form-group">
                            <label class="col-md-2 control-label">QQ登录后跳转的地址：</label>
                            <div class="col-md-4">
                              <input name="API_QQCallBack" type="text" id="API_QQCallBack" readonly class="form-control" value="<%="http://"&SiteUrl&SysRootDir&"api/qq/user.asp"%>">
                                <span class="help-block">&nbsp;QQ登录成功后跳转的地址,不可改</span>                         
                            </div>
                        </div>
                        <div class="panel-heading">
                            <h2><i class="fa  fa-columns"></i><span class="break"></span><strong>在线支付</strong></h2>
                        </div>

                       <div class="form-group">
                            <label class="col-md-2 control-label">支付宝帐户：</label>
                            <div class="col-md-4">
                              <span class="help-int"> <input name="alipay_id" type="text" id="alipay_id" class="form-control" value="<%=alipay_id%>"></span>
                                <span class="help-block">&nbsp;支付宝支付宝商户号,<a href="http://www.alipay.com/" target="_blank"><font color="#0000FF">点此申请</font></a></span>                         
                            </div>
                        </div>
                        <div class="form-group">
                            <label class="col-md-2 control-label">支付宝合作者身份（PID）：</label>
                            <div class="col-md-4">
                              <span class="help-int"> <input name="partner" type="password" id="partner" class="form-control" value="<%=partner_id%>"></span>
                                <span class="help-block">&nbsp;请登陆支付宝网站，在“商家服务”中查得帐户合作者身份（partnerID）</span>                         
                            </div>
                        </div>
                        <div class="form-group">
                            <label class="col-md-2 control-label">支付宝安全校验码（Key）：</label>
                            <div class="col-md-4">
                              <input name="alipay_securityCode" type="password" id="alipay_securityCode" class="form-control" value="<%=alipay_securityCode%>">
                                <span class="help-block">&nbsp;请登陆支付宝网站，在“商家服务”中查得安全校验码</span>                         
                            </div>
                        </div>
                       <div class="form-group">
                            <label class="col-md-2 control-label">支付宝到帐方式：</label>
                            <div class="col-md-10">
                                <label class="radio-inline" for="alipay_dz1">
                                    <input name="alipay_dz" id="alipay_dz1" type="radio" value="0" <%If alipay_dz =0 Then%> checked<%End If%>> 即时到账收款
                                </label>
                                <label class="radio-inline" for="alipay_dz2">
                                    <input name="alipay_dz" id="alipay_dz2" type="radio" value="1" <%If alipay_dz =1 Then%> checked<%End If%>> 中介担保收款
                                </label>
                                <label class="radio-inline" for="alipay_dz3">
                                    <input name="alipay_dz" id="alipay_dz3" type="radio" value="2" <%If alipay_dz = 2 Then%> checked<%End If%>>双接口收款
                                </label>
                                 <span class="help-block">收款到帐方式必须与支付宝帐户申请的类型相应</span>
                            </div>
                        </div>
                        <div class="form-group">
                            <label class="col-md-2 control-label">支付宝启用开关：</label>
                            <div class="col-md-10">
                                <label class="radio-inline" for="alipay_kg1">
                                    <input name="alipay_kg" id="alipay_kg1" type="radio" value="1" <%If alipay_kg = 1 Then%> checked<%End If%>> 开启
                                </label>
                                <label class="radio-inline" for="API_QuickLogin2">
                                    <input name="alipay_kg" id="alipay_kg2" type="radio" value="0" <%If alipay_kg = 0 Then%> checked<%End If%>> 关闭
                                </label>
                                 <span class="help-block">（启用或关闭此收款方式）</span>
                            </div>
                        </div>
                        <div class="form-group">
                            <label class="col-md-2 control-label">财付通商户号：</label>
                            <div class="col-md-4">
                              <span class="help-int"> <input name="tenpay_id" type="text" id="tenpay_id" class="form-control" value="<%=tenpay_id%>"></span>
                                <span class="help-block">&nbsp;财付通商户号,<a href="http://www.tenpay.com/" target="_blank"><font color="#0000FF">点此申请</font></a></span>                         
                            </div>
                        </div>
                        <div class="form-group">
                            <label class="col-md-2 control-label">财付通商户密钥：</label>
                            <div class="col-md-4">
                              <span class="help-int"> <input name="tenpay_key" type="password" id="tenpay_key" class="form-control" value="<%=tenpay_key%>"></span>
                                <span class="help-block">&nbsp;应与财付通网站用户登录后台设置的密钥相同</span>                         
                            </div>
                        </div>
                        <div class="form-group">
                            <label class="col-md-2 control-label">商户名称：</label>
                            <div class="col-md-4">
                              <input name="tenpay_name" type="text" id="tenpay_name" class="form-control" value="<%=tenpay_name%>">
                                <span class="help-block">&nbsp;填写商户名称，此项必须填写</span>                         
                            </div>
                        </div>
                       <div class="form-group">
                            <label class="col-md-2 control-label">帐号服务类型：</label>
                            <div class="col-md-10">
                                <label class="radio-inline" for="tenpay_dz1">
                                    <input name="tenpay_dz" id="tenpay_dz1" type="radio" value="0" <%If tenpay_dz =0 Then%> checked<%End If%>> 即时到账收款
                                </label>
                                <label class="radio-inline" for="tenpay_dz2">
                                    <input name="tenpay_dz" id="tenpay_dz2" type="radio" value="1" <%If tenpay_dz =1 Then%> checked<%End If%>> 中介担保收款
                                </label>
                                 <span class="help-block">收款到帐方式必须与财付通帐户申请的服务类型相应(腾讯公告中介担保收款功能已关闭)</span>
                            </div>
                        </div>
                        <div class="form-group">
                            <label class="col-md-2 control-label">启用开关：</label>
                            <div class="col-md-10">
                                <label class="radio-inline" for="tenpay_kg1">
                                    <input name="tenpay_kg" id="tenpay_kg1" type="radio" value="1" <%If tenpay_kg = 1 Then%> checked<%End If%>> 开启
                                </label>
                                <label class="radio-inline" for="API_QuickLogin2">
                                    <input name="tenpay_kg" id="tenpay_kg2" type="radio" value="0" <%If tenpay_kg = 0 Then%> checked<%End If%>> 关闭
                                </label>
                                 <span class="help-block">（启用或关闭此收款方式）<br>
								 注：财付通提供的即时到帐、中介担保及双接口通用测试帐号<br>
商户号：1900000113<br>
商户名称：自助商户测试帐户<br>
密钥：e82573dc7e6136ba414f2e2affbe39fa<br>
注意：请不要支付大额金额到以上测试帐号（腾讯财付通恕不退款）<br>
切记：正式上线时用属于您的商户号及密钥替换。</span>
                            </div>
                        </div>						
                        <div class="panel-heading">
                            <h2><i class="fa  fa-columns"></i><span class="break"></span><strong><%=Bokecms_Lang_sys_Parameters(34)%></strong></h2>
                        </div>
                        <div class="form-group">
                            <label class="col-md-2 control-label"><%=Bokecms_Lang_sys_Parameters(28)%>：</label>
                            <div class="col-md-10">
                                <label class="radio-inline" for="EnableViews1">
                                    <input name="EnableViews" id="EnableViews1" type="radio" value="True" <%If EnableViews = True Then%> checked<%End If%>> <%=Bokecms_Lang_System(30)%>
                                </label>
                                <label class="radio-inline" for="EnableViews2">
                                    <input name="EnableViews" id="EnableViews2" type="radio" value="False" <%If EnableViews = False Then%> checked<%End If%>> <%=Bokecms_Lang_System(31)%>
                                </label>
                                 <span class="help-block"></span>
                            </div>
                        </div> 
                        <div class="form-group">
                            <label class="col-md-2 control-label">产品价格显示：</label>
                            <div class="col-md-10">
                                <label class="radio-inline" for="product_price1">
                                    <input name="product_price" id="product_price1" type="radio" value="True" <%If product_price = True Then%> checked<%End If%>> <%=Bokecms_Lang_System(30)%>
                                </label>
                                <label class="radio-inline" for="EnableSeo2">
                                    <input name="product_price" id="product_price2" type="radio" value="False" <%If product_price = False Then%> checked<%End If%>> <%=Bokecms_Lang_System(31)%>
                                </label>     
                                 <span class="help-block"></span>
                            </div>
                        </div> 						
                        <div class="form-group">
                            <label class="col-md-2 control-label"><%=Bokecms_Lang_sys_Parameters(29)%>：</label>
                            <div class="col-md-10">
                                <label class="radio-inline" for="EnableSeo1">
                                    <input name="EnableSeo" id="EnableSeo1" type="radio" value="True" <%If EnableSeo = True Then%> checked<%End If%>> <%=Bokecms_Lang_System(30)%>
                                </label>
                                <label class="radio-inline" for="EnableSeo2">
                                    <input name="EnableSeo" id="EnableSeo2" type="radio" value="False" <%If EnableSeo = False Then%> checked<%End If%>> <%=Bokecms_Lang_System(31)%>
                                </label>     
                                 <span class="help-block"></span>
                            </div>
                        </div> 
                        <div class="form-group">
                            <label class="col-md-2 control-label">后台日志自动删除时间</label>
                            <div class="col-md-4">
                              <span class="help-int"> <input name="dellog" type="text" id="dellog" class="form-control" value="<%=dellog%>"></span>
                                <span class="help-block">&nbsp;天前日志将自动删除，0表示不自动删除</span>                         
                            </div>
                        </div>						
                        <div class="form-group">
                            <label class="col-md-2 control-label"><%=Bokecms_Lang_sys_Parameters(41)%>：</label>
                            <div class="col-md-4">
                                <label class="switch switchtop switch-danger">
                                    <input type="checkbox" class="switch-input" name="mStatus" value="True" id="mStatus" <%if mStatus then response.write ("checked")%> />
                                    <span class="switch-label" data-on="开启" data-off="关闭"></span>
                                    <span class="switch-handle"></span>
                                </label>
                                <span class="help-block"></span>
                            </div>
                        </div>


                        <div class="form-group">
                            <div class="col-md-2 control-label"></div>
                            <div class="col-md-10">
                                <input name="submitSaveEdit" type="submit" id="submitSaveEdit" class="btn btn-danger btn-lg" value="<%=Bokecms_Lang_sys_Parameters(37)%>">
                            </div>	
                        </div>
                    </form>
                    </div>		
                </div>
            </div>
		</div>
    </div>
    <!-- end: Content -->
	<!--#Include file="BokeCMS_End.Asp"-->				
</div>
<!--#Include file="BokeCMS_Js.Asp"-->
</body>

</html>
<%
Function SaveConstInfo()
    Call SiteInfo()

    Set ASM = server.CreateObject("Adod" & "b.St" & "ream")
    ASM.Type = 2
    ASM.mode = 3
    ASM.charset = "utf-8"
    ASM.Open
    ASM.WriteText "<!--#include file=""Charset.Asp"" -->" & vbCrLf
	 ASM.WriteText "<!--#include file=""bokesy.Asp"" -->" & vbCrLf
    ASM.WriteText "<" & "%" & vbCrLf
    ASM.WriteText "Const EnableCopy = " & ReplaceConstChar(Trim(request("EnableCopy"))) & "" & vbCrLf
	ASM.WriteText "Const EnableBackstageCode = " & ReplaceConstChar(Trim(request("EnableBackstageCode"))) & "" & vbCrLf
    ASM.WriteText "Const EnableSiteManageCode = " & ReplaceConstChar(Trim(request("EnableSiteManageCode"))) & "" & vbCrLf
    ASM.WriteText "Const SiteManageCode = " & Chr(34) & ReplaceConstChar(Trim(request("SiteManageCode"))) & Chr(34) & "" & vbCrLf    
    ASM.WriteText "Const ClassSeoISPY = " & ReplaceConstChar(Trim(request("ClassSeoISPY"))) & "" & vbCrLf
    ASM.WriteText "Const Separated = " & Chr(34) & ReplaceConstChar(Trim(request("Separated"))) & Chr(34) & "" & vbCrLf
    ASM.WriteText "Const JMailDisplay = " & ReplaceConstChar(Trim(request("JMailDisplay"))) & "" & vbCrLf
    ASM.WriteText "Const JMailSMTP = " & Chr(34) & ReplaceConstChar(Trim(request("JMailSMTP"))) & Chr(34) & "" & vbCrLf
    ASM.WriteText "Const JMailUser = " & Chr(34) & ReplaceConstChar(Trim(request("JMailUser"))) & Chr(34) & "" & vbCrLf
    ASM.WriteText "Const JMailPass = " & Chr(34) & ReplaceConstChar(Trim(request("JMailPass"))) & Chr(34) & "" & vbCrLf
    ASM.WriteText "Const JMailName = " & Chr(34) & ReplaceConstChar(Trim(request("JMailName"))) & Chr(34) & "" & vbCrLf
    ASM.WriteText "Const JMailInFrom = " & Chr(34) & ReplaceConstChar(Trim(request("JMailInFrom"))) & Chr(34) & "" & vbCrLf
    ASM.WriteText "Const JMailOutFrom = " & Chr(34) & ReplaceConstChar(Trim(request("JMailOutFrom"))) & Chr(34) & "" & vbCrLf
    ASM.WriteText "Const JMailTitle = " & Chr(34) & ReplaceConstChar(Trim(request("JMailTitle"))) & Chr(34) & "" & vbCrLf	
    ASM.WriteText "Const EnableViews = " & ReplaceConstChar(Trim(request("EnableViews"))) & "" & vbCrLf
    ASM.WriteText "Const EnableSeo = " & ReplaceConstChar(Trim(request("EnableSeo"))) & "" & vbCrLf
	If Trim(request("mStatus")) = "" Then
		ASM.WriteText "Const mStatus = False" & vbCrLf
	Else
		ASM.WriteText "Const mStatus = " & ReplaceConstChar(Trim(request("mStatus"))) & "" & vbCrLf
	End If	
    ASM.WriteText "Const SysRootDir = " & Chr(34) & "/" & Chr(34) & vbCrLf
    ASM.WriteText "Const HTMLName = " & Chr(34) & "html" & Chr(34) & vbCrLf
    ASM.WriteText "Const BokecmsV = " & Chr(34) & "V2.0 Build" & Chr(34) & vbCrLf
	ASM.WriteText "Const dellog = " & ReplaceConstChar(Trim(request("dellog"))) & "" & vbCrLf
    ASM.WriteText "Const userzc = " & ReplaceConstChar(Trim(request("userzc"))) & "" & vbCrLf
	ASM.WriteText "Const usersh = " & ReplaceConstChar(Trim(request("usersh"))) & "" & vbCrLf
    ASM.WriteText "Const API_QuickLogin = " & ReplaceConstChar(trim(request("API_QuickLogin"))) & "" & vbcrlf
    ASM.WriteText "Const API_QQEnable = " & ReplaceConstChar(trim(request("API_QQEnable")))  & "" & vbcrlf
    ASM.WriteText "Const appid = " & chr(34) & ReplaceConstChar(trim(request("appid"))) & chr(34) & "" & vbcrlf
    ASM.WriteText "Const appkey = " & chr(34) & ReplaceConstChar(trim(request("appkey"))) & chr(34) & "" & vbcrlf
    ASM.WriteText "Const API_QQCallBack = " & chr(34) & trim(request("API_QQCallBack")) & chr(34) & "" & vbcrlf
	ASM.WriteText "Const alipay_id = " & Chr(34) & ReplaceConstChar(trim(request("alipay_id")))& Chr(34) & vbCrLf
	ASM.WriteText "Const partner_id = " & Chr(34) & ReplaceConstChar(trim(request("partner"))) & Chr(34) & vbCrLf
	ASM.WriteText "Const alipay_securityCode = " & Chr(34) & ReplaceConstChar(trim(request("alipay_securityCode"))) & Chr(34) & vbCrLf
	ASM.WriteText "Const alipay_dz = " & ReplaceConstChar(trim(request("alipay_dz"))) & "" & vbcrlf
	ASM.WriteText "Const alipay_kg = " & ReplaceConstChar(trim(request("alipay_kg"))) & "" & vbcrlf
	ASM.WriteText "Const tenpay_id = " & Chr(34) & ReplaceConstChar(trim(request("tenpay_id")))& Chr(34) & vbCrLf
	ASM.WriteText "Const tenpay_key = " & Chr(34) & ReplaceConstChar(trim(request("tenpay_key"))) & Chr(34) & vbCrLf
	ASM.WriteText "Const tenpay_name = " & Chr(34) & ReplaceConstChar(trim(request("tenpay_name"))) & Chr(34) & vbCrLf
	ASM.WriteText "Const tenpay_dz = " & ReplaceConstChar(trim(request("tenpay_dz"))) & "" & vbcrlf
	ASM.WriteText "Const tenpay_kg = " & ReplaceConstChar(trim(request("tenpay_kg"))) & "" & vbcrlf
	ASM.WriteText "Const product_price = " & ReplaceConstChar(Trim(request("product_price"))) & "" & vbCrLf
    ASM.WriteText "%" & ">"
    ASM.SaveToFile Server.mappath("../Include/Const.Asp"), 2
    ASM.flush
    ASM.Close
    Set ASM = Nothing	
	Call SweetAlert("success", "操作成功", Bokecms_Lang_sys_Parameters(38), "false", "location.replace('BokeCMS_ExtraSite.Asp')")
End Function

Sub FsoDelHtml(HTMLName)
    Dim Fso, FsoOut, File
    Set Fso = Server.CreateObject("Scripting.FileSystemObject")
    Set FsoOut = Fso.GetFolder(Server.Mappath(SysRootDir))
    For Each File In FsoOut.Files
        If Right(File.Name, Len(File.Name) - InStrRev(File.Name, ".")) = HTMLName And HTMLName <> "asp" Then
            Response.Write "<span style=""color:red; padding-left: 18px"">" & File.Name & "</span> "&Bokecms_Lang_sys_Parameters(39)&"…<br />"
            Fso.DeleteFile File.Path, True
        End If
    Next
    Set FsoOut = Nothing
    Set Fso = Nothing
End Sub
%>
