<!--#include file="admin_conn.asp"-->
<%
chkLogin
dim action : action = be("get","action")
select case action
	case "configsave" : configsave
	case "configplaysave" : configplaysave
	case "configplay" : headAdmin "一键登录设置" : configplay
	case "configconnectsave" : configconnectsave
	case "configconnect" : headAdmin "一键登录设置" : configconnect
	case "configbuysave" : configbuysave
	case "configbuy" : headAdmin "在线支付设置" : configbuy
	case else : headAdmin "站点设置" : config
end select
dispseObj()

sub config()
dim i
on error resume next
%>
<script type="text/javascript">
$(document).ready(function(){
	$("#app_dbtype").change(function(){
		var type=$("#app_dbtype").val();
		if(type=="access"){
			 $("#access").css("display","");
			 $("#sqlserver1").css("display","none")
			 $("#sqlserver2").css("display","none")
			 $("#sqlserver3").css("display","none")
			 $("#sqlserver4").css("display","none")
		}
		else{
			 $("#access").css("display","none");
			 $("#sqlserver1").css("display","")
			 $("#sqlserver2").css("display","")
			 $("#sqlserver3").css("display","")
			 $("#sqlserver4").css("display","")
		}	
	});	
	$("#form1").validate({
		rules:{
			app_sitename:{
				required:true,
				maxlength:64
			},
			app_siteurl:{
				required:true,
				maxlength:64
			},
			app_installdir:{
				required:true,
				maxlength:64
			},
			app_cachetime:{
				required:true,
				number:true
			},
			app_vodmakeinterval:{
				required:true,
				number:true,
				min:1
			},
			app_artmakeinterval:{
				required:true,
				number:true,
				min:1
			},
			app_artlistpath:{
				required:true,
				maxlength:64
			},
			app_artpath:{
				required:true,
				maxlength:64
			},
			app_arttopicpath:{
				required:true,
				maxlength:64
			},
			app_vodlistpath:{
				required:true,
				maxlength:64
			},
			app_vodpath:{
				required:true,
				maxlength:64
			},
			app_vodplaypath:{
				required:true,
				maxlength:64
			},
			app_vodtopicpath:{
				required:true,
				maxlength:64
			},
			app_pagenum:{
				required:true,
				number:true,
				min:15
			},
			app_gbooknum:{
				required:true,
				number:true,
				min:5
			},
			app_gbooktime:{
				required:true,
				number:true,
				min:5
			},
			app_commentnum:{
				required:true,
				number:true,
				min:5
			},
			app_commenttime:{
				required:true,
				number:true,
				min:5
			},
			app_apipagenum:{
				required:true,
				number:true
			},
			app_popularize:{
				required:true,
				number:true
			},
			app_regpoint:{
				required:true,
				number:true
			},
			app_weekpoint:{
				required:true,
				number:true
			},
			app_monthpoint:{
				required:true,
				number:true
			},
			app_yearpoint:{
				required:true,
				number:true
			}
		}
	});
	$('#form1').form({
		onSubmit:function(){
			if(!$("#form1").valid()) {return false;}
		},
	    success:function(data){
	        $.messager.alert('系统提示', data, 'info');
	    }
	});
	$("#htmltabs li").each(function(i,row){
		if($.cookie("configtab")==i && i>0){
			settab(i);
		}
	});
});

function settab(to){
	$("#htmltabs li").each(function(i,row){
		if("tabs.title"+ to == $(this).attr("id")){
			$("#tab"+i).show(); $(this).attr("class","hover");
		}
		else{
			$("#tab"+i).hide(); $(this).removeClass("hover");
		}
	});
	$.cookie("configtab",to);
}
function sethtmldir(id,value){
	if(value){
		$('#'+id).val(value);
	}
}
</script>
</head>
<body>
<form method="post" action="?action=configsave" id="form1" name="form1">
	<div>
		<ul id="htmltabs" style="padding:0">
		<li id="tabs.title0" class="hover" onclick="settab('0');" style="cursor:pointer">基本</li>
		<li id="tabs.title1" onclick="settab('1');" style="cursor:pointer">视频</li>
		<li id="tabs.title2" onclick="settab('2');" style="cursor:pointer">文章</li>
		<li id="tabs.title3" onclick="settab('3');" style="cursor:pointer">会员</li>
		<li id="tabs.title4" onclick="settab('4');" style="cursor:pointer">其他</li>
		<li id="tabs.title5" onclick="settab('5');" style="cursor:pointer">资源API</li>
		<li>&nbsp;&nbsp;&nbsp;<input type="submit" id="btnSave" class="input" value="更新网站参数">&nbsp;如配置出错，请手动修改网站 inc 目录下的 config.asp文件。</li>
		</ul>
	</div>
	
	<table class="tb" id="tab0" style="display:block">
	<tr>
      <td width="15%">网站名称：</td>
      <td><input name="app_sitename" type="text" id="app_sitename" value="<%=app_sitename%>" size="40" maxlength="500"> 
       <font color="#FF0000">＊</font> </td>
    </tr>
    <tr>
      <td>网站域名：</td>
      <td><input name="app_siteurl" type="text" id="app_siteurl" value="<%=app_siteurl%>" size="40" maxlength="500">
        <font color="#FF0000">＊</font> 如：WwW.MacCms.Com,不要加http://</td>
    </tr>
    <tr>
      <td>网站关键字：</td>
      <td><input name="app_keywords" type="text" id="app_keywords" value="<%=app_keywords%>" size="40" maxlength="500"> 
       <font color="#FF0000">＊</font> </td>
    </tr>
    <tr>
      <td>网站描述信息：</td>
      <td><input name="app_description" type="text" id="app_description" value="<%=app_description%>" size="40" maxlength="500"> 
       <font color="#FF0000">＊</font> </td>
    </tr>
    <tr>
      <td>安装目录：</td>
      <td><input name="app_installdir" type="text" id="app_installdir" value="<%=app_installdir%>" size="40" maxlength="500">  <font color="#FF0000">＊</font> 根目录 ＂/＂，二级目录 ＂/maccms/＂以此类推 </td>
    </tr>
        <tr>
          <td>当前使用模板：</td>
          <td><select name="app_templatedir" style="width:100px">
          <%
          for i=0 to ubound(split(objFile.FolderItem("../template/"),","))-1
          	if split(objFile.FolderItem("../template"),",")(i) <> "diy" then
          %>
          <option value="<%=split(objFile.FolderItem("../template"),",")(i)%>"
          <%if trim(app_templatedir)=trim(split(objFile.FolderItem("../template"),",")(i)) then %>selected
          <%end if%>><%=split(objFile.FolderItem("../template"),",")(i)%></option>
          <%
          	end if
          next
          %>
          </select>
             模板html目录：<input name="app_htmldir" type="text" id="app_htmldir" value="<%=app_htmldir%>" size="10" />
          不怕模板被人盗就不用改          </td>
        </tr>
    <tr>
      <td>网站数据类型：</td>
      <td><select name="app_dbtype" id="app_dbtype">
        <option value="access" <%if app_dbtype="access" then writeA "selected"%>>ACCESS数据库</option>
        <option value="mssql" <%if app_dbtype="mssql" then writeA "selected"%>>MSSQL数据库</option></select> 出错请手动修改INC目录下的config.asp文件</td>
    </tr>
    <tr id="access" <%if app_dbtype="mssql" then writeA "style=""display:none;""" %>>
      <td>ACCESS数库名称：</td>
      <td>
       <input name="app_dbpath" type="text" id="app_dbpath" value="<%=app_dbpath%>" size="40" maxlength="500"><font color="#FF0000">＊</font></td>
    </tr>
    
    <tr id="sqlserver1" <%if app_dbtype="access" then writeA "style=""display:none;""" %>>
      <td>SQL服务器IP：</td>
      <td>
        <input name="app_dbserver" type="text" id="app_dbserver" value="<%=app_dbserver%>" size="40" /><font color="#FF0000">＊</font></td>
    </tr>
    <tr id="sqlserver2" <%if app_dbtype="access" then writeA "style=""display:none;""" %>>
      <td>SQL数据库名称：</td>
      <td>
        <input name="app_dbname" type="text" id="app_dbname" value="<%=app_dbname%>" size="40" /><font color="#FF0000">＊</font></td>
    </tr>
    <tr id="sqlserver3" <%if app_dbtype="access" then writeA "style=""display:none;""" %>>
      <td>SQL数据库帐号：</td>
      <td>
        <input name="app_dbuser" type="text" id="app_dbuser" value="<%=app_dbuser%>" size="40" /><font color="#FF0000">＊</font></td>
    </tr>
    <tr id="sqlserver4" <%if app_dbtype="access" then writeA "style=""display:none;""" %>>
      <td>SQL数据库密码：</td>
      <td><input name="app_dbpass" type="text" id="app_dbpass" value="<%=app_dbpass%>" size="40" /><font color="#FF0000">＊</font></td>
	</tr>
    <tr>
      <td>数据库表名前缀名：</td>
      <td><input name="app_tablepre" type="text" id="app_tablepre" value="<%=app_tablepre%>" size="40" /><font color="#FF0000">＊</font></td>
	</tr>
	<tr>
      <td>缓存时间：</td>
      <td>
      <input name="app_cachetime" type="text" id="app_cachetime" value="<%=app_cachetime%>" size="5">分钟
      <input name="app_cacheid" type="hidden" id="app_cacheid" value="<%=app_cacheid%>" size="25">
        </td>
    </tr>
    <tr>
      <td>内存缓存设定：</td>
      <td>
        <input type="radio" name="app_cache" id="app_cache" value="0" <%If app_cache = 0 Then writeA "checked"%> class="radio" />关闭
        &nbsp;
        <input type="radio" name="app_cache" id="app_cache" value="1" <%If app_cache = 1 Then writeA "checked"%> class="radio" />开启
        &nbsp;内存缓存显著提高系统运行速度。点击【更新内存缓存】更新此缓存
	  </td>
    </tr>
       <tr>
      <td>动态文件缓存设定：</td>
      <td>
      <input type="radio" name="app_dynamiccache" id="app_dynamiccache" value="0" <%If app_dynamiccache = 0 Then writeA "checked"%> class="radio" />关闭
        &nbsp;
        <input type="radio" name="app_dynamiccache" id="app_dynamiccache" value="1" <%If app_dynamiccache = 1 Then writeA "checked"%> class="radio" />开启
        &nbsp;只在动态模式下起作用，缓存首页，列表及搜索页。缓存路径inc/cache，点击【更新文件缓存】更新此缓存
	  </td>
    </tr>
    <tr>
      <td>会员功能设定：</td>
      <td>
      <input type="radio" name="app_user" id="app_user" value="0" <%If app_user = 0 Then writeA "checked"%> class="radio" />关闭
        &nbsp;
        <input type="radio" name="app_user" id="app_user" value="1" <%If app_user = 1 Then writeA "checked"%> class="radio" />开启
        &nbsp; 如果您网站没有使用该功能，请关闭，提高运行速度
	  </td>
    </tr>
    <tr>
      <td>定时任务设定：</td>
      <td>
      <input type="radio" name="app_timming" id="app_timming" value="0" <%If app_timming = 0 Then writeA "checked"%> class="radio" />关闭
        &nbsp;
        <input type="radio" name="app_timming" id="app_timming" value="1" <%If app_timming = 1 Then writeA "checked"%> class="radio" />开启
        &nbsp; 如果您网站没有使用该功能，请关闭，提高运行速度
	  </td>
    </tr>
    <tr>
      <td>后台列表显示数量：</td>
      <td><input name="app_pagenum" type="text" id="app_pagenum" value="<%=app_pagenum%>" size="10">
        </td>
    </tr>
    <tr>
      <td>网站备案号：</td>
      <td><input name="app_icp" type="text" id="app_icp" value="<%=app_icp%>" size="40"></td>
    </tr>
    <tr>
      <td>站长QQ号码：</td>
      <td><input name="app_qq" type="text" id="app_qq" value="<%=app_qq%>" size="40"></td>
    </tr>
    <tr>
      <td>站长Email邮箱：</td>
      <td><input name="app_email" type="text" id="app_email" value="<%=app_email%>" size="40"></td>
    </tr>
    <tr>
      <td>后台登陆安全码：</td>
      <td><input name="app_safecode" type="text" id="app_safecode" value="<%=app_safecode%>" size="40"></td>
    </tr>
	</table>
	
	<table class="tb" id="tab1" style="display:none;">
	<tr>
      <td width="15%">配置参数 </td>
      <td>
      	
      </td>
    </tr>
	<tr>
      <td>播放器排序：</td>
      <td>
      	<input type="radio" name="app_vodplayersort" id="app_vodplayersort" value="0" <%If app_vodplayersort = 0 Then writeA "checked"%> class="radio" />添加顺序
        &nbsp;
        <input type="radio" name="app_vodplayersort" id="app_vodplayersort" value="1" <%If app_vodplayersort = 1 Then writeA "checked"%> class="radio" />全局顺序
      </td>
    </tr>
    <tr>
      <td>资源库重名判定：</td>
      <td>
      	<input type="radio" name="app_vodmaccjsname" id="app_vodmaccjsname" value="0" <%If app_vodmaccjsname = 0 Then writeA "checked"%> class="radio" />名称
        &nbsp;
        <input type="radio" name="app_vodmaccjsname" id="app_vodmaccjsname" value="1" <%If app_vodmaccjsname = 1 Then writeA "checked"%> class="radio" />名称+分类
      </td>
    </tr>
    <tr>
      <td> &nbsp;</td>
      <td> &nbsp;</td>
    </tr>
	<tr>
      <td>首页浏览模式：</td>
      <td>
		<select name="app_vodviewtype" id="app_vodviewtype" style="width:150px;">
        <option value="0" <%if app_vodviewtype=0 then writeA "selected"%>>仿伪静态模式</option>
        <option value="1" <%if app_vodviewtype=1 then writeA "selected"%>>动态模式</option>
        <option value="2" <%if app_vodviewtype=2 then writeA "selected"%>>静态模式</option>
        <option value="3" <%if app_vodviewtype=3 then writeA "selected"%>>rewrite伪静态</option>
        </select>
        </td>
    </tr>
    <tr>
      <td width="15%">列表浏览模式：</td>
      <td>
		<select name="app_vodlistviewtype" id="app_vodlistviewtype" style="width:150px;">
        <option value="0" <%if app_vodlistviewtype=0 then writeA "selected"%>>仿伪静态模式</option>
        <option value="1" <%if app_vodlistviewtype=1 then writeA "selected"%>>动态模式</option>
        <option value="2" <%if app_vodlistviewtype=2 then writeA "selected"%>>静态模式</option>
        <option value="3" <%if app_vodlistviewtype=3 then writeA "selected"%>>rewrite伪静态</option>
        </select>
		&nbsp;专题浏览模式：
		<select name="app_vodtopicviewtype" id="app_vodtopicviewtype" style="width:150px;">
        <option value="0" <%if app_vodtopicviewtype=0 then writeA "selected"%>>仿伪静态模式</option>
        <option value="1" <%if app_vodtopicviewtype=1 then writeA "selected"%>>动态模式</option>
        <option value="2" <%if app_vodtopicviewtype=2 then writeA "selected"%>>静态模式</option>
        <option value="3" <%if app_vodtopicviewtype=3 then writeA "selected"%>>rewrite伪静态</option>
        </select>
        </td>
    </tr>
    <tr>
      <td>内容页面设置：</td>
      <td>
      	<select name="app_playtype" id="app_playtype" style="width:150px">
        <option value="0" <%if app_playtype=0 then writeA "selected"%>>有内容页</option>
        <option value="1" <%if app_playtype=1 then writeA "selected"%>>无内容页</option>
        </select>
      	&nbsp;内容浏览模式：
      	<select name="app_vodcontentviewtype" id="app_vodcontentviewtype" style="width:150px;">
        <option value="0" <%if app_vodcontentviewtype=0 then writeA "selected"%>>仿伪静态模式</option>
        <option value="1" <%if app_vodcontentviewtype=1 then writeA "selected"%>>动态模式</option>
        <option value="2" <%if app_vodcontentviewtype=2 then writeA "selected"%>>静态模式</option>
        <option value="3" <%if app_vodcontentviewtype=3 then writeA "selected"%>>rewrite伪静态</option>
        </select>
        </td>
    </tr>
    <tr>
      <td>播放浏览模式：</td>
      <td>
        <select name="app_vodplayviewtype" id="app_vodplayviewtype" style="width:150px">
        <option value="0" <%if app_vodplayviewtype=0 then writeA "selected"%>>仿伪静态模式</option>
        <option value="1" <%if app_vodplayviewtype=1 then writeA "selected"%>>动态模式</option>
        <option value="2" <%if app_vodplayviewtype=2 then writeA "selected"%>>rewrite伪静态</option>
        <option value="3" <%if app_vodplayviewtype=3 then writeA "selected"%>>静态每数据一页</option>
        <option value="4" <%if app_vodplayviewtype=4 then writeA "selected"%>>静态每集一页</option>
        <option value="5" <%if app_vodplayviewtype=5 then writeA "selected"%>>静态每组一页</option>
        <option value="6" <%if app_vodplayviewtype=6 then writeA "selected"%>>静态全站一页</option>
        </select>
        &nbsp;下载浏览模式：
        <select name="app_voddownviewtype" id="app_voddownviewtype" style="width:150px">
        <option value="0" <%if app_voddownviewtype=0 then writeA "selected"%>>仿伪静态模式</option>
        <option value="1" <%if app_voddownviewtype=1 then writeA "selected"%>>动态模式</option>
        <option value="2" <%if app_voddownviewtype=2 then writeA "selected"%>>rewrite伪静态</option>
        <option value="3" <%if app_voddownviewtype=3 then writeA "selected"%>>静态每数据一页</option>
        <option value="4" <%if app_voddownviewtype=4 then writeA "selected"%>>静态每集一页</option>
        <option value="5" <%if app_voddownviewtype=5 then writeA "selected"%>>静态每组一页</option>
        <option value="6" <%if app_voddownviewtype=6 then writeA "selected"%>>静态全站一页</option>
        </select>
        </td>
    </tr>
    <tr>
      <td>加密播放地址：</td>
      <td>
        <select name="app_encrypt" id="app_encrypt" style="width:150px">
        <option value="0" <%if app_encrypt=0 then writeA "selected"%>>不加密</option>
        <option value="1" <%if app_encrypt=1 then writeA "selected"%>>escape编码</option>
        <option value="2" <%if app_encrypt=2 then writeA "selected"%>>base64编码</option>
        </select>
        &nbsp;是否弹窗播放：
        <select name="app_playisopen" id="app_playisopen" style="width:150px">
        <option value="0" <%if app_playisopen=0 then writeA "selected"%>>普通播放</option>
        <option value="1" <%if app_playisopen=1 then writeA "selected"%>>弹窗播放</option>
        </select>
      </td> 
    </tr>
	<tr>
      <td>静态页后缀名：</td>
      <td>
		<select name="app_vodsuffix" id="app_vodsuffix" style="width:150px">
		  <option value="htm" <%if app_vodsuffix="htm" then writeA "selected"%>>htm</option>
		  <option value="html" <%if app_vodsuffix="html" then writeA "selected"%>>html</option>
		  <option value="shtml" <%if app_vodsuffix="shtml" then writeA "selected"%>>shtml</option>
		</select>
		&nbsp;生成页面间隔：
		<input name="app_vodmakeinterval" type="text" id="app_vodmakeinterval" value="<%=app_vodmakeinterval%>" size="5">
		<font color="#FF0000">＊</font> 以秒为单位
	</td>
    </tr>
    <tr>
      <td> &nbsp;</td>
      <td> &nbsp;</td>
    </tr>
	<tr>
	  <td>列表生成路径：</td>
	  <td><input name="app_vodlistpath" type="text" id="app_vodlistpath" value="<%=app_vodlistpath%>" size="40" />
<font color="#FF0000">＊</font><select style="width:120px" onChange="sethtmldir('app_vodlistpath',this.value);"><option>常用结构</option><option value="vodlisthtml/{id}/index">1.vodlisthtml/id/</option><option value="vodlisthtml/{md5}/index">2.vodlisthtml/md5值/</option></option><option value="vodlisthtml/{enname}/index">3.vodlisthtml/enname/</option><option value="vodlisthtml/{id}">4.vodlisthtml/id.html</option><option value="vodlisthtml/{md5}">5.vodlisthtml/md5.html</option><option value="vodlisthtml/{enname}">6.vodlisthtml/enname.html</option></select></td>
	</tr>
	<tr>
	  <td>专题生成路径：</td>
	  <td><input name="app_vodtopicpath" type="text" id="app_vodtopicpath" value="<%=app_vodtopicpath%>" size="40" />
<font color="#FF0000">＊</font><select style="width:120px" onChange="sethtmldir('app_vodtopicpath',this.value);"><option>常用结构</option><option value="vodtopichtml/{id}/index">1.vodtopichtml/id/</option><option value="vodtopichtml/{md5}/index">2.vodtopichtml/md5值/</option></option><option value="vodtopichtml/{enname}/index">3.vodtopichtml/enname/</option><option value="vodtopichtml/{id}">4.vodtopichtml/id.html</option><option value="vodtopichtml/{md5}">5.vodtopichtml/md5.html</option><option value="vodtopichtml/{enname}">6.vodtopichtml/enname.html</option></select></td>
	</tr>
	<tr>
	  <td>内容页生成路径：</td>
	  <td><input name="app_vodpath" type="text" id="app_vodpath" value="<%=app_vodpath%>" size="40" />
<font color="#FF0000">＊</font><select style="width:120px" onChange="sethtmldir('app_vodpath',this.value);"><option>常用结构</option><option value="vodhtml/{id}/index">1.vodhtml/id/</option><option value="vodhtml/{md5}/index">2.vodhtml/md5值/</option></option><option value="vodhtml/{enname}/index">3.vodhtml/enname/</option><option value="vodhtml/{id}">4.vodhtml/id.html</option><option value="vodhtml/{md5}">5.vodhtml/md5.html</option><option value="vodhtml/{enname}">6.vodhtml/enname.html</option></select> 附加变量：分类ID{typeid} 分类名称{typename} 分类拼音{typeenname} 年{year} 月{month} 日{day}</td>
	</tr>
	<tr>
	  <td>播放页生成路径：</td>
	  <td><input name="app_vodplaypath" type="text" id="app_vodplaypath" value="<%=app_vodplaypath%>" size="40" />
<font color="#FF0000">＊</font><select style="width:120px" onChange="sethtmldir('app_vodplaypath',this.value);"><option>常用结构</option><option value="vodplayhtml/{id}/index">1.vodplayhtml/id/</option><option value="vodplayhtml/{md5}/index">2.vodplayhtml/md5值/</option></option><option value="vodplayhtml/{enname}/index">3.vodplayhtml/enname/</option><option value="vodplayhtml/{id}">4.vodplayhtml/id.html</option><option value="vodplayhtml/{md5}">5.vodplayhtml/md5.html</option><option value="vodplayhtml/{enname}">6.vodplayhtml/enname.html</option></select> 附加变量：分类ID{typeid} 分类名称{typename} 分类拼音{typeenname} 年{year} 月{month} 日{day}</td>
	</tr>
	<tr>
	  <td>下载页生成路径：</td>
	  <td><input name="app_voddownpath" type="text" id="app_voddownpath" value="<%=app_voddownpath%>" size="40" />
<font color="#FF0000">＊</font><select style="width:120px" onChange="sethtmldir('app_voddownpath',this.value);"><option>常用结构</option><option value="voddownhtml/{id}/index">1.voddownhtml/id/</option><option value="voddownhtml/{md5}/index">2.voddownhtml/md5值/</option></option><option value="voddownhtml/{enname}/index">3.downhtml/enname/</option><option value="voddownhtml/{id}">4.voddownhtml/id.html</option><option value="voddownhtml/{md5}">5.voddownhtml/md5.html</option><option value="voddownhtml/{enname}">6.voddownhtml/enname.html</option></select> 附加变量：分类ID{typeid} 分类名称{typename} 分类拼音{typeenname} 年{year} 月{month} 日{day}</td>
	</tr>
	<tr>
	  <td>静态提示说明：</td>
	  <td>
	  <font color="#FF0000">不用填写后缀(.html)之类的。禁止出现如下字符:  * : ?  " < > | \ 
	  <br>全部可用变量：编号{id} 名称{name} 拼音{enname}   (至少出现1个)
	  <br><br>选择rewrite伪静态模式时，生成（显示）路径中只支持{id}变量，也只能以 {id}结尾，只能包含1层目录。例如 vodhtml/{id} , dyhtml/{id}
	  <br> 然后需要手工配置一下 rewrite伪静态规则，对应你的配置目录即可。 
	  </font>
	  </td>
	</tr>
	</table>
	
	<table class="tb" id="tab2" style="display:none">
	<tr>
      <td width="15%">文章首页浏览模式：</td>
      <td>
		<select name="app_artviewtype" id="app_artviewtype" style="width:150px;">
        <option value="0" <%if app_artviewtype=0 then writeA "selected"%>>仿伪静态模式</option>
        <option value="1" <%if app_artviewtype=1 then writeA "selected"%>>动态模式</option>
        <option value="2" <%if app_artviewtype=2 then writeA "selected"%>>静态模式</option>
        <option value="3" <%if app_artviewtype=3 then writeA "selected"%>>rewrite伪静态</option>
        </select>
        &nbsp;列表浏览模式：
        <select name="app_artlistviewtype" id="app_artlistviewtype" style="width:150px;">
        <option value="0" <%if app_artlistviewtype=0 then writeA "selected"%>>仿伪静态模式</option>
        <option value="1" <%if app_artlistviewtype=1 then writeA "selected"%>>动态模式</option>
        <option value="2" <%if app_artlistviewtype=2 then writeA "selected"%>>静态模式</option>
        <option value="3" <%if app_artlistviewtype=3 then writeA "selected"%>>rewrite伪静态</option>
        </select>
        </td>
    </tr>
    <tr>
      <td width="15%">专题浏览模式：</td>
      <td>
		<select name="app_arttopicviewtype" id="app_arttopicviewtype" style="width:150px;">
        <option value="0" <%if app_arttopicviewtype=0 then writeA "selected"%>>仿伪静态模式</option>
        <option value="1" <%if app_arttopicviewtype=1 then writeA "selected"%>>动态模式</option>
        <option value="2" <%if app_arttopicviewtype=2 then writeA "selected"%>>静态模式</option>
        <option value="3" <%if app_arttopicviewtype=3 then writeA "selected"%>>rewrite伪静态</option>
        </select>
        &nbsp;内容浏览模式：
        <select name="app_artcontentviewtype" id="app_artcontentviewtype" style="width:150px;">
        <option value="0" <%if app_artcontentviewtype=0 then writeA "selected"%>>仿伪静态模式</option>
        <option value="1" <%if app_artcontentviewtype=1 then writeA "selected"%>>动态模式</option>
        <option value="2" <%if app_artcontentviewtype=2 then writeA "selected"%>>静态模式</option>
        <option value="3" <%if app_artcontentviewtype=3 then writeA "selected"%>>rewrite伪静态</option>
        </select>
        </td>
    </tr>
    <tr>
      <td>静态页后缀名：</td>
      <td>
		<select name="app_artsuffix" id="app_artsuffix" style="width:150px">
		  <option value="htm" <%if app_artsuffix="htm" then writeA "selected"%>>htm</option>
		  <option value="html" <%if app_artsuffix="html" then writeA "selected"%>>html</option>
		  <option value="shtml" <%if app_artsuffix="shtml" then writeA "selected"%>>shtml</option>
		</select>
		&nbsp;生成页面间隔：
		<input name="app_artmakeinterval" type="text" id="app_artmakeinterval" value="<%=app_artmakeinterval%>" size="5">
		<font color="#FF0000">＊</font> 以秒为单位
		</td>
    </tr>
	<tr>
	  <td>静态提示说明：</td>
	  <td>
	  <font color="#FF0000">后缀不用填写(.html)之类的。禁止出现如下字符:  * : ?  " < > | \ 
	  <br>全部可用变量：编号{id} 名称{name} 拼音{enname}   (至少出现1个)
	  <br><br>选择rewrite伪静态模式时，生成（显示）路径中只支持{id}变量，也只能以 {id}结尾，只能包含1层目录。例如 vodhtml/{id} , dyhtml/{id}
	  <br> 然后需要手工配置一下 rewrite伪静态规则，对应你的配置目录即可。 
	  </font>
	  </td>
	</tr>
	<tr>
	  <td>列表生成路径配置：</td>
	  <td><input name="app_artlistpath" type="text" id="app_artlistpath" value="<%=app_artlistpath%>" size="40" />
<font color="#FF0000">＊</font><select style="width:120px" onChange="sethtmldir('app_artlistpath',this.value);"><option>常用结构</option><option value="artlisthtml/{id}/index">1.artlisthtml/id/</option><option value="artlisthtml/{md5}/index">2.artlisthtml/md5值/</option></option><option value="artlisthtml/{enname}/index">3.artlisthtml/enname/</option><option value="artlisthtml/{id}">4.artlisthtml/id.html</option><option value="artlisthtml/{md5}">5.artlisthtml/md5.html</option><option value="artlisthtml/{enname}">6.artlisthtml/enname.html</option></select></td>
	</tr>
	<tr>
	  <td>生成路径配置：</td>
	  <td><input name="app_artpath" type="text" id="app_artpath" value="<%=app_artpath%>" size="40" />
<font color="#FF0000">＊</font><select style="width:120px" onChange="sethtmldir('app_artpath',this.value);"><option>常用结构</option><option value="arthtml/{id}/index">1.arthtml/id/</option><option value="arthtml/{md5}/index">2.arthtml/md5值/</option></option><option value="arthtml/{enname}/index">3.arthtml/enname/</option><option value="arthtml/{id}">4.arthtml/id.html</option><option value="arthtml/{md5}">5.arthtml/md5.html</option><option value="arthtml/{enname}">6.arthtml/enname.html</option></select> 附加变量：分类ID{typeid} 分类名称{typename} 分类拼音{typeenname} 年{year} 月{month} 日{day}</td>
	</tr>
	<tr>
	  <td>专题生成路径配置：</td>
	  <td><input name="app_arttopicpath" type="text" id="app_arttopicpath" value="<%=app_arttopicpath%>" size="40" />
<font color="#FF0000">＊</font><select style="width:120px" onChange="sethtmldir('app_arttopicpath',this.value);"><option>常用结构</option><option value="arttopichtml/{id}/index">1.arttopichtml/id/</option><option value="arttopichtml/{md5}/index">2.arttopichtml/md5值/</option></option><option value="arttopichtml/{enname}/index">3.arttopichtml/enname/</option><option value="arttopichtml/{id}">4.arttopichtml/id.html</option><option value="arttopichtml/{md5}">5.arttopichtml/md5.html</option><option value="arttopichtml/{enname}">6.arttopichtml/enname.html</option></select> </td>
	</tr>
	</table>
	
	<table class="tb" id="tab3" style="display:none">
	<tr>
      <td width="15%">是否开启会员注册：</td>
      <td>
        <input type="radio" name="app_reg" id="app_reg" value="0" <%If app_reg = 0 Then writeA "checked"%> class="radio" />关闭
        &nbsp;
        <input type="radio" name="app_reg" id="app_reg" value="1" <%If app_reg = 1 Then writeA "checked"%> class="radio" />开启
       </td>
    </tr>
	<tr>
      <td>注册用户默认状态：</td>
      <td>
        <input type="radio" name="app_regstate" id="app_regstate" value="0" <%if app_regstate = 0 then writeA "checked"%> class="radio" />锁定
        &nbsp;
        <input type="radio" name="app_regstate" id="app_regstate" value="1" <%If app_regstate = 1 then writeA "checked"%> class="radio" />激活
      </td>
    </tr>
    <tr>
      <td>是否开启推广赚积分：</td>
      <td>
        <input type="radio" name="app_popularizestate" id="app_popularizestate" value="0" <%if app_popularizestate = 0 then writeA "checked"%> class="radio" />关闭
        &nbsp;
        <input type="radio" name="app_popularizestate" id="app_popularizestate" value="1" <%If app_popularizestate = 1 then writeA "checked"%> class="radio" />开启
      </td>
    </tr>
    <tr>
      <td>注册用户默认会员组：</td>
      <td>
        <select name="app_reggroup" id="app_reggroup">
        	<option value="0">请选择会员组</option>
			<%=makeSelect("{pre}user_group","ug_id","ug_name","","","&nbsp;|&nbsp;&nbsp;",app_reggroup)%>
        </select>(必须先建立好会员组)
      </td>
    </tr>
    <tr>
      <td>注册赠送点数：</td>
      <td><input name="app_regpoint" type="text" id="app_regpoint" value="<%=app_regpoint%>" size="10" >
        <font color="#FF0000">＊</font></td>
    </tr>
    <tr>
      <td>每推广1个人获取积分数：</td>
      <td>
        <input name="app_popularize" type="text" id="app_popularize" value="<%=app_popularize%>" size="10" />
        <font color="#FF0000">＊</font> </td>
    </tr>
    <tr>
      <td>包周所需积分数：</td>
      <td><input name="app_weekpoint" type="text" id="app_weekpoint" value="<%=app_weekpoint%>" size="10" >
        <font color="#FF0000">＊</font></td>
    </tr>
    <tr>
      <td>包月所需积分数：</td>
      <td><input name="app_monthpoint" type="text" id="app_monthpoint" value="<%=app_monthpoint%>" size="10" >
        <font color="#FF0000">＊</font></td>
    </tr>
    <tr>
      <td>包年所需积分数：</td>
      <td><input name="app_yearpoint" type="text" id="app_yearpoint" value="<%=app_yearpoint%>" size="10" >
        <font color="#FF0000">＊</font></td>
    </tr>
    
	</table>
	
	<table class="tb" id="tab4" style="display:none">
	<tr>
      <td width="15%">图片文字水印：</td>
      <td>
		<input type="radio" name="app_watermark" id="app_watermark" value="0" <%If app_watermark = 0 Then writeA "checked"%> class="radio" onClick="javascript:document.getElementById('opw').style.display='none'"/>
        关闭
		<input type="radio" name="app_watermark" id="app_watermark" value="1" <%If app_watermark = 1 Then writeF "checked"%> class="radio" onClick="javascript:document.getElementById('opw').style.display=''" />
        开启<font id="opw" <%If app_watermark=0 Then%>style="display:none;"<%End If%>>&nbsp;&nbsp;水印位置：
        <select name="app_waterlocation"  id="app_waterlocation" style="width:54px;">
          <option value="0" <%If app_waterlocation="0" Then%> selected="selected"<%End If%>>居中</option>
          <option value="1" <%If app_waterlocation="1" Then%> selected="selected"<%End If%>>右上</option>
          <option value="2" <%If app_waterlocation="2" Then%> selected="selected"<%End If%>>右下</option>
          <option value="3" <%If app_waterlocation="3" Then%> selected="selected"<%End If%>>左上</option>
          <option value="4" <%If app_waterlocation="4" Then%> selected="selected"<%End If%>>左下</option>
        </select>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;水印文字：
        <input name="app_waterfont" type="text" id="app_waterfont" value="<%=app_waterfont%>" size="13" />
         &nbsp;&nbsp;</font>
        <% if not isObjInstalled("Persits.Jpeg") then writeA "<font color=red>当前主机不支持Persits.Jpeg组件</font>"%> 
	  </td>
    </tr>
	<tr>
      <td>图片保存方式：</td>
      <td>
		<select name="app_picpath" id="app_picpath">
        <option value="0" <%if app_picpath="0" then writeA "selected"%>>默认</option>
        <option value="1" <%if app_picpath="1" then writeA "selected"%>>按月份</option>
		<option value="2" <%if app_picpath="2" then writeA "selected"%>>按日期</option>
		<option value="3" <%if app_picpath="3" then writeA "selected"%>>每目录500图片</option>
        </select> 
	  </td>
    </tr>
    <tr>
      <td>留言本状态：</td>
      <td>
      	<input type="radio" name="app_gbook" id="app_gbook" value="0" <%If app_gbook = 0 Then writeA "checked"%> class="radio" />关闭
		&nbsp;
		<input type="radio" name="app_gbook" id="app_gbook" value="1" <%If app_gbook = 1 Then writeA "checked"%> class="radio" />开启
	  </td>
    </tr>
    <tr>
      <td>留言是否审核：</td>
      <td>
      	<input type="radio" name="app_gbookaudit" id="app_gbookaudit" value="0" <%If app_gbookaudit = 0 Then writeA "checked"%> class="radio" />关闭
		&nbsp;
		<input type="radio" name="app_gbookaudit" id="app_gbookaudit" value="1" <%If app_gbookaudit = 1 Then writeA "checked"%> class="radio" />开启
	  </td>
    </tr>
    <tr>
      <td>留言是否开启验证码：</td>
      <td>
      	<input type="radio" name="app_gbookverify" id="app_gbookverify" value="0" <%If app_gbookverify = 0 Then writeA "checked"%> class="radio" />关闭
		&nbsp;
		<input type="radio" name="app_gbookverify" id="app_gbookverify" value="1" <%If app_gbookverify = 1 Then writeA "checked"%> class="radio" />开启
	  </td>
    </tr>
    <tr>
      <td>留言本每页显示个数：</td>
      <td><input name="app_gbooknum" type="text" id="app_gbooknum" value="<%=app_gbooknum%>" size="10">
        </td>
    </tr>
    <tr>
      <td>留言时间间隔(单位:秒)：</td>
      <td><input name="app_gbooktime" type="text" id="app_gbooktime" value="<%=app_gbooktime%>" size="10">
        </td>
    </tr>
    <tr>
      <td>评论状态：</td>
      <td>
      	<input type="radio" name="app_comment" id="app_comment" value="0" <%If app_comment = 0 Then writeA "checked"%> class="radio" />关闭
		&nbsp;
		<input type="radio" name="app_comment" id="app_comment" value="1" <%If app_comment = 1 Then writeA "checked"%> class="radio" />开启
	  </td>
    </tr>
    <tr>
      <td>评论是否审核：</td>
      <td>
      	<input type="radio" name="app_commentaudit" id="app_commentaudit" value="0" <%If app_commentaudit = 0 Then writeA "checked"%> class="radio" />关闭
		&nbsp;
		<input type="radio" name="app_commentaudit" id="app_commentaudit" value="1" <%If app_commentaudit = 1 Then writeA "checked"%> class="radio" />开启
	  </td>
    </tr>
    <tr>
      <td>评论是否开启验证码：</td>
      <td>
      	<input type="radio" name="app_commentverify" id="app_commentverify" value="0" <%If app_commentverify = 0 Then writeA "checked"%> class="radio" />关闭
		&nbsp;
		<input type="radio" name="app_commentverify" id="app_commentverify" value="1" <%If app_commentverify = 1 Then writeA "checked"%> class="radio" />开启
	  </td>
    </tr>
    <tr>
      <td>评论每页显示个数：</td>
      <td><input name="app_commentnum" type="text" id="app_commentnum" value="<%=app_commentnum%>" size="10">
        </td>
    </tr>
    <tr>
      <td>评论时间间隔(单位:秒)：</td>
      <td><input name="app_commenttime" type="text" id="app_commenttime" value="<%=app_commenttime%>" size="10">
        </td>
    </tr>
    <tr>
      <td>心情状态：</td>
      <td>
      	<input type="radio" name="app_mood" id="app_mood" value="0" <%If app_mood = 0 Then writeA "checked"%> class="radio" />关闭
		&nbsp;
		<input type="radio" name="app_mood" id="app_mood" value="1" <%If app_mood = 1 Then writeA "checked"%> class="radio" />开启
	  </td>
    </tr>
    <tr>
      <td>评论留言关键字过滤：</td>
      <td>
		<textarea id="app_filter" NAME="app_filter" ROWS="8" style="width:350px;table-layout:fixed; word-wrap:break-word;"><%=app_filter%></textarea>
      </td>
    </tr>
	</table>
	
	
	<table class="tb" id="tab5" style="display:none">
		<tr>
	      <td width="15%">采集数据接口API开关：</td>
	      <td>
	        关闭<input type="radio" name="app_api" value="0" <%if app_api = 0 Then writeF "checked"%>>
	        开启<input type="radio" name="app_api" value="1" <%if app_api = 1 Then writeF "checked"%>>
	      </td>
	    </tr>
	    <tr>
	      <td>列表每页显示数量：</td>
	      <td><input name="app_apipagenum" type="text" id="app_apipagenum" value="<%=app_apipagenum%>" size="5">
	        <font color="#FF0000">＊</font> 数据每页显示量，不建议超过50 </td>
	    </tr>
	    <tr>
	      <td>图片域名：</td>
	      <td><input name="app_apicjflag" type="text" id="app_apicjflag" value="<%=app_apicjflag%>" size="50">
	        <font color="#FF0000">＊</font> 显示图片的完整访问路径所需要，以http:开头,/结尾，不包含upload目录。</td>
	    </tr>
	    <tr>
	      <td>过滤分类参数：</td>
	      <td><input name="app_apitypefilter" type="text" id="app_apitypefilter" value="<%=app_apitypefilter%>" size="50">
	        <font color="#FF0000">＊</font> SQL查询条件例如 and t_hide=0 </td>
	    </tr>
		<tr>
	      <td>过滤数据参数：</td>
	      <td><input name="app_apivodfilter" type="text" id="app_apivodfilter" value="<%=app_apivodfilter%>" size="50"> 
	        <font color="#FF0000">＊</font> SQL查询条件例如 and d_hide=0 </td>
	    </tr>
	    <tr>
	      <td>友情提醒信息：</td>
	      <td><font color="#FF0000">此数据主要提供给苹果CMS联盟资源库使用或为其他服务商提供数据接口。如不使用请关闭。<br> 接口地址为 【http://域名/inc/api.asp】 接口各种参数说明请参考说明文档</font></td>
	    </tr>
	</table>
</form>
</body>
</html>
<%
err.clear
end sub

sub SpecialChar(str)
	if( instr(str,"*") or instr(str,":") or instr(str,"?") or instr(str,"""")  or instr(str,"<")  or instr(str,">")  or instr(str,"|") or instr(str,"\")) then
		writeA "每项生成配置中均不能出现 * : ? "" < > | \ 等特殊符号"
	end if
	
	if not ( instr(","&str,"{id}")>0 or instr(","&str,"{name}")>0 or instr(","&str,"{enname}")>0 ) then
		writeA "每项生成配置中:{id},{name},{enname} 3个变量至少出现1个"
	end if
end sub

sub configsave()
	dim str,vodsuffix,artsuffix
	dim tempcacheid : tempcacheid= now()
	
	if request("app_vodviewtype") = "2" then
		SpecialChar request("app_vodlistpath")
		SpecialChar request("app_vodpath")
		SpecialChar request("app_vodplaypath")
		SpecialChar request("app_voddownpath")
		SpecialChar request("app_vodtopicpath")
	end if
	if request("app_artviewtype") = "2" then
		SpecialChar request("app_artlistpath")
		SpecialChar request("app_artpath")
		SpecialChar request("app_arttopicpath")
	end if
	
	vodsuffix = trim(request("app_vodsuffix"))
	if vodsuffix <>"htm" and vodsuffix <>"shtml" then vodsuffix="html"
	artsuffix = trim(request("app_artsuffix"))
	if artsuffix <>"htm" and artsuffix <>"shtml" then artsuffix="html"
	
	str =  "<" & "%@" &" LANGUAGE=""VBSCRIPT"" CODEPAGE=""65001"" %" & ">" & vbcrlf
	str = str & "<" & "%" & vbcrlf
	str = str & "option explicit" & vbcrlf
	str = str & "dim app_sitename,app_installdir,app_siteurl,app_keywords,app_description,app_templatedir,app_htmldir,app_cache,app_cachetime,app_cacheid,app_picpath,app_dbtype,app_dbprefix,app_dbpath,app_dbserver,app_dbname,app_dbuser,app_dbpass,app_tablepre,app_icp,app_email,app_qq,app_user,app_dynamiccache,app_install,app_timming,app_safecode" & vbcrlf & vbcrlf

	str = str & "app_sitename=" & chr(34) & trim(request("app_sitename")) & chr(34) & "      '网站名称" & vbcrlf
	str = str & "app_installdir=" & chr(34) & trim(request("app_installdir")) & chr(34) & "        '网站路径" & vbcrlf
	str = str & "app_siteurl=" & chr(34) & trim(request("app_siteurl")) & chr(34) & "        '网站域名地址" & vbcrlf
	str = str & "app_keywords=" & chr(34) & trim(request("app_keywords")) & chr(34) & "        '网站关键字" & vbcrlf
	str = str & "app_description=" & chr(34) & trim(request("app_description")) & chr(34) & "        '网站描述信息" & vbcrlf
    str = str & "app_templatedir=" & chr(34) & trim(request("app_templatedir")) & chr(34) & "    '模板目录" & vbcrlf
	str = str & "app_htmldir=" & chr(34) & trim(request("app_htmldir")) & chr(34) & "       '模板html目录" & vbcrlf
	str = str & "app_cache="  & trim(request("app_cache")) &  "       '是否开启缓存" & vbcrlf
	str = str & "app_cachetime=" & trim(request("app_cachetime"))  & "       '缓存时间" & vbcrlf
	str = str & "app_cacheid=" & chr(34) & trim(tempcacheid) & chr(34) & "      '缓存标示" & vbcrlf
	str = str & "app_picpath=" &  trim(request("app_picpath"))  & "      '图片保存路径方式，0=默认,1=按月份,2=按日期,3=每目录500图片，超过自动创建新目录" & vbcrlf
	str = str & "app_dbtype=" & chr(34) & trim(request("app_dbtype")) & chr(34) & "      '数据库类型: 值分别为 access ; mssql" & vbcrlf
	str = str & "app_dbpath=" & chr(34) & trim(request("app_dbpath")) & chr(34) & "      'access数据库路径" & vbcrlf
	str = str & "app_dbserver=" & chr(34) & trim(request("app_dbserver")) & chr(34) & "      'SQL数据库服务器地址" & vbcrlf
	str = str & "app_dbname=" & chr(34) & trim(request("app_dbname")) & chr(34) & "      					  'SQL数据库名称" & vbcrlf
	str = str & "app_dbuser=" & chr(34) & trim(request("app_dbuser")) & chr(34) & "      'SQL数据库用户名" & vbcrlf
	str = str & "app_dbpass=" & chr(34) & trim(request("app_dbpass")) & chr(34) & "      					  'SQL数据库密码" & vbcrlf
	str = str & "app_tablepre=" & chr(34) & trim(request("app_tablepre")) & chr(34) & "      					  '表结构前缀" & vbcrlf
	str = str & "app_icp=" & chr(34) & trim(request("app_icp")) & chr(34) & "      '网站备案号" & vbcrlf
	str = str & "app_email=" & chr(34) & trim(request("app_email")) & chr(34) & "      '站长邮箱" & vbcrlf
	str = str & "app_qq=" & chr(34) & trim(request("app_qq")) & chr(34) & "      '站长qq" & vbcrlf
	str = str & "app_user=" &  trim(request("app_user")) & "          '是否开启会员验证0关闭，1开启" & vbcrlf
	str = str & "app_dynamiccache=" &  trim(request("app_dynamiccache")) & "          '是否开启动态文件缓存0关闭，1开启" & vbcrlf
	str = str & "app_timming=" &  trim(request("app_timming")) & "          '是否开启定时任务0关闭,1开启" & vbcrlf
	str = str & "app_install=1          '是否已经安装本程序0未安装，1已安装" & vbcrlf
	str = str & "app_safecode=" & chr(34) & trim(request("app_safecode")) & chr(34) & "      '后台登录安全码" & vbcrlf & vbcrlf
	
	str = str & "dim app_vodplayersort,app_vodmaccjsname,app_vodviewtype,app_vodlistviewtype,app_vodtopicviewtype,app_vodcontentviewtype,app_vodplayviewtype,app_voddownviewtype,app_vodsuffix,app_vodmakeinterval,app_playtype,app_encrypt,app_playisopen,app_vodlistpath,app_vodpath,app_vodplaypath,app_voddownpath,app_vodtopicpath" & vbcrlf & vbcrlf
	
	str = str & "app_vodplayersort=" & trim(request("app_vodplayersort"))  & "        '视频播放器显示顺序0添加顺序，1全局顺序" & vbcrlf
	str = str & "app_vodmaccjsname=" & trim(request("app_vodmaccjsname"))  & "        '联盟资源库入库时重名判断条件0名称，1名称+分类" & vbcrlf
	
    str = str & "app_vodviewtype=" & trim(request("app_vodviewtype"))  & "        '视频首页、地图 浏览模式, 0=仿伪静态模式,1=asp动态模式,2=静态模式,3=rewrite伪静态" & vbcrlf
    str = str & "app_vodlistviewtype=" & trim(request("app_vodlistviewtype"))  & "        '视频列表页 浏览模式, 同上" & vbcrlf
    str = str & "app_vodtopicviewtype=" & trim(request("app_vodtopicviewtype"))  & "        '视频专题首页、列表 浏览模式, 同上" & vbcrlf
    str = str & "app_vodcontentviewtype=" & trim(request("app_vodcontentviewtype"))  & "        '视频内容页 浏览模式, 同上" & vbcrlf
    str = str & "app_vodplayviewtype=" & trim(request("app_vodplayviewtype"))  & "        '视频播放页 浏览模式, 0=仿伪静态模式,1=asp动态模式,2=rewrite伪静态,3=静态每数据一页,4=静态每集一页,5=静态每组一页,6=静态全站一页" & vbcrlf
    str = str & "app_voddownviewtype=" & trim(request("app_voddownviewtype"))  & "        '视频下载页 浏览模式, 0=仿伪静态模式,1=asp动态模式,2=rewrite伪静态,3=静态每数据一页,4=静态每集一页,5=静态每组一页,6=静态全站一页" & vbcrlf
    
	str = str & "app_vodsuffix=" & chr(34) & vodsuffix & chr(34) & "      '生成视频静态文件后缀名" & vbcrlf
	str = str & "app_vodmakeinterval=" & trim(request("app_vodmakeinterval"))  & "        '生成视频静态页面间隔" & vbcrlf
    str = str & "app_playtype=" & trim(request("app_playtype"))  & "        '0=有内容页播放,1=无内容页播放" & vbcrlf
	str = str & "app_encrypt=" & trim(request("app_encrypt"))  & "        '是否加密播放地址 0不加密,1 escape加密,2 base64加密" & vbcrlf
	str = str & "app_playisopen=" & trim(request("app_playisopen"))  & "        '是否弹窗播放 0普通播放，1弹窗播放" & vbcrlf
    str = str & "app_vodlistpath=" & chr(34) & trim(request("app_vodlistpath")) & chr(34) & "        '视频分类页面目录" & vbcrlf
	str = str & "app_vodpath=" & chr(34) & trim(request("app_vodpath")) & chr(34) & "          '视频内容页面目录" & vbcrlf
	str = str & "app_vodplaypath=" & chr(34) & trim(request("app_vodplaypath")) & chr(34) & "          '视频播放页面目录" & vbcrlf
	str = str & "app_voddownpath=" & chr(34) & trim(request("app_voddownpath")) & chr(34) & "          '视频播放页面目录" & vbcrlf
	str = str & "app_vodtopicpath=" & chr(34) & trim(request("app_vodtopicpath")) & chr(34) & "          '视频专题页目录" & vbcrlf & vbcrlf
	
	str = str & "dim app_artviewtype,app_artlistviewtype,app_arttopicviewtype,app_artcontentviewtype,app_artsuffix,app_artmakeinterval,app_artpath,app_artlistpath,app_arttopicpath" & vbcrlf & vbcrlf
	
	str = str & "app_artviewtype="  & trim(request("app_artviewtype"))  & "        '文章首页、地图 浏览模式, 0=仿伪静态模式,1=asp动态模式,2=静态模式,3=rewrite伪静态" & vbcrlf
	str = str & "app_artlistviewtype="  & trim(request("app_artlistviewtype"))  & "        '文章列表页 浏览模式, 同上" & vbcrlf
	str = str & "app_arttopicviewtype="  & trim(request("app_arttopicviewtype"))  & "        '文章专题首页、列表 浏览模式, 同上" & vbcrlf
	str = str & "app_artcontentviewtype="  & trim(request("app_artcontentviewtype"))  & "        '文章内容页 浏览模式, 同上" & vbcrlf
	str = str & "app_artsuffix=" & chr(34) & artsuffix & chr(34) & "        '生成文章静态文件后缀名" & vbcrlf
	str = str & "app_artmakeinterval="  & trim(request("app_artmakeinterval"))  & "        '生成文章静态页面间隔" & vbcrlf	
    str = str & "app_artlistpath=" & chr(34) & trim(request("app_artlistpath")) & chr(34) & "        '文章列表目录" & vbcrlf
    str = str & "app_artpath=" & chr(34) & trim(request("app_artpath")) & chr(34) & "        '文章页面目录" & vbcrlf
	str = str & "app_arttopicpath=" & chr(34) & trim(request("app_arttopicpath")) & chr(34) & "          '文章专题页目录" & vbcrlf & vbcrlf
	
	str = str & "dim app_watermark,app_waterlocation,app_waterfont,app_gbook,app_gbooknum,app_gbooktime,app_gbookverify,app_gbookaudit,app_comment,app_commentnum,app_commenttime,app_commentverify,app_commentaudit,app_mood,app_pagenum,app_filter" & vbcrlf & vbcrlf
	
	str = str & "app_watermark=" &  trim(request("app_watermark")) & "          '上传的图片是否添加水印 0关闭，1开启" & vbcrlf
	str = str & "app_waterlocation=" &  trim(request("app_waterlocation")) & "          '水印在图片的位置" & vbcrlf
	str = str & "app_waterfont=" & chr(34) &  trim(request("app_waterfont")) & chr(34) & "          '水印文字" & vbcrlf 
	str = str & "app_gbook="  & trim(request("app_gbook"))  & "        '是否开启留言本 0关闭，1开启" & vbcrlf	
	str = str & "app_gbooknum="  & trim(request("app_gbooknum"))  & "        '留言本每页显示数量" & vbcrlf	
	str = str & "app_gbooktime="  & trim(request("app_gbooktime"))  & "        '留言时间间隔" & vbcrlf	
	str = str & "app_gbookverify="  & trim(request("app_gbookverify"))  & "        '留言时是否开启验证码0关闭,1开启" & vbcrlf	
	str = str & "app_gbookaudit="  & trim(request("app_gbookaudit"))  & "        '留言时是否需要审核0关闭,1开启" & vbcrlf	
	str = str & "app_comment="  & trim(request("app_comment"))  & "        '是否开启评论 0关闭，1开启" & vbcrlf	
	str = str & "app_commentnum="  & trim(request("app_commentnum"))  & "        '评论每页显示数量" & vbcrlf
	str = str & "app_commenttime="  & trim(request("app_commenttime"))  & "        '评论时间间隔" & vbcrlf
	str = str & "app_commentverify="  & trim(request("app_commentverify"))  & "        '评论时是否开启验证码0关闭,1开启" & vbcrlf
	str = str & "app_commentaudit="  & trim(request("app_commentaudit"))  & "        '评论时是否需要审核0关闭,1开启" & vbcrlf
	str = str & "app_mood="  & trim(request("app_mood"))  & "        '是否开启心情 0关闭，1开启" & vbcrlf	
	str = str & "app_pagenum=" &  trim(request("app_pagenum")) & "          '后台列表每页显示个数" & vbcrlf
	str = str & "app_filter=" & chr(34) & trim(request("app_filter")) & chr(34) & "          '评论和留言本过滤内容" & vbcrlf & vbcrlf
	
	
	str = str & "dim app_reg,app_regpoint,app_regstate,app_popularize,app_popularizestate,app_reggroup,app_weekpoint,app_monthpoint,app_yearpoint" & vbcrlf & vbcrlf
	
	str = str & "app_reg="  & trim(request("app_reg"))  & "        '是否开启会员注册 1开启，0关闭" & vbcrlf	
	str = str & "app_regpoint="  & trim(request("app_regpoint"))  & "        '用户注册赠送点数" & vbcrlf	
	str = str & "app_regstate="  & trim(request("app_regstate"))  & "        '注册用户默认状态，1激活，0锁定" & vbcrlf	
	str = str & "app_popularize="  & trim(request("app_popularize"))  & "        '推广1个人获取积分数" & vbcrlf	
	str = str & "app_popularizestate="  & trim(request("app_popularizestate"))  & "        '是否开启推广赚积分1,开启 0关闭" & vbcrlf	
	str = str & "app_reggroup="  & trim(request("app_reggroup"))  & "        '用户注册默认会员组" & vbcrlf
	str = str & "app_weekpoint="  & trim(request("app_weekpoint"))  & "        '包周所需点数" & vbcrlf
	str = str & "app_monthpoint="  & trim(request("app_monthpoint"))  & "        '包月所需点数" & vbcrlf
	str = str & "app_yearpoint="  & trim(request("app_yearpoint"))  & "        '包年所需点数" & vbcrlf	& vbcrlf
	
	
	str = str & "dim app_api,app_apicjflag,app_apitypefilter,app_apivodfilter,app_apipagenum" & vbcrlf & vbcrlf
	
	str = str & "app_api="  & trim(request("app_api"))  & "        '接口API开关1开启，0关闭" & vbcrlf	
	str = str & "app_apicjflag=" & chr(34) & trim(request("app_apicjflag")) & chr(34) & "        '联盟图片域名，以http:开头,/结尾，不包含upload目录" & vbcrlf	
	str = str & "app_apitypefilter="& chr(34)  & trim(request("app_apitypefilter")) & chr(34) & "        '过滤分类参数，SQL查询条件例如 and t_hide=0 " & vbcrlf	
	str = str & "app_apivodfilter="& chr(34)  & trim(request("app_apivodfilter")) & chr(34) & "        '过滤数据参数，SQL查询条件例如 and d_hide=0 " & vbcrlf	
	str = str & "app_apipagenum="  & trim(request("app_apipagenum"))  & "        '数据每页显示量" & vbcrlf 
	
	str = str & "%" & ">"
	
	objFile.createFile "../inc/config.asp",str
	clsCache()
	
	dim vodres, artres
    vodres = False : artres = False
    If Trim(Request("app_vodviewtype")) = "3" Then vodres = True
    If Trim(Request("app_artviewtype")) = "3" Then artres = True
    
    
    If vodres Or artres Then
        Dim rewrite
        rewrite = objFile.getFile("../inc/rewrite.txt")
        If Not isN(rewrite) Then
            If vodres Then
            	rewrite = replace(rewrite, "{vodres}", "")
            	rewrite = replace(rewrite, "{vodsuffix}", request("app_vodsuffix"))
            Else
            	rewrite = Replace(rewrite, "{vodres}", "#")
            end if
            If artres Then
            	rewrite = replace(rewrite, "{artres}", "")
            	rewrite = replace(rewrite, "{artsuffix}", request("app_artsuffix"))
            Else
            	rewrite = Replace(rewrite, "{artres}", "#")
            end if
            objFile.createFileFso "../httpd.ini", rewrite
        End If
    Else
        If objFile.isFileExists("../httpd.ini") Then objFile.delFile "../httpd.ini"
    End If
    
	
    writeA "配置修改成功"
End Sub

sub configplaysave
	dim pwidth,pheight,adsloadtime,popenW,popenH,autofull,maccmsplay,loadads,showlist,colors
	dim Filepath,FileContent : Filepath = "../js/playerconfig.js"
	
	pwidth = be("post","pwidth")
	pheight = be("post","pheight")
	adsloadtime = be("post","adsloadtime")
	autofull = be("post","autofull")
	popenW = be("post","popenW")
	popenH = be("post","popenH")
	maccmsplay = be("post","maccmsplay")
	loadads = be("post","loadads")
	showlist = be("post","showlist")
	colors = be("post","colors")
	
	if not objFile.isFileExists(Filepath) then
		Filepath = Filepath & ".bak"
	end if
	FileContent = objFile.getFile(Filepath)
	
	FileContent = regReplace(FileContent,"var\spwidth\=(\d+?)\;","var pwidth="&pwidth&";")
	FileContent = regReplace(FileContent,"var\spheight\=(\d+?)\;","var pheight="&pheight&";")
	FileContent = regReplace(FileContent,"var\sadsloadtime\=(\d+?)\;","var adsloadtime="&adsloadtime&";")
	FileContent = regReplace(FileContent,"var\spopenW\=(\d+?)\;","var popenW="&popenW&";")
	FileContent = regReplace(FileContent,"var\spopenH\=(\d+?)\;","var popenH="&popenH&";")
	FileContent = regReplace(FileContent,"var\sautoFull\=(\d+?)\;","var autoFull="&autofull&";")
	FileContent = regReplace(FileContent,"var\smaccmsplay\=(\d+?)\;","var maccmsplay="&maccmsplay&";")
	FileContent = regReplace(FileContent,"var\sloadads\=*""*(\S+?)'*""*\;","var loadads="""&loadads&""";")
	FileContent = regReplace(FileContent,"var\sshowlist\=(\d+?)\;","var showlist="&showlist&";")
	FileContent = regReplace(FileContent,"var\scolors\=*""*(\S+?)'*""*\;","var colors="""&colors&""";")
	objFile.createFile "../js/playerconfig.js",FileContent
    writeA "配置修改成功"
end sub

sub configplay
	dim pwidth,pheight,adsloadtime,popenW,popenH,autoFull,maccmsplay,loadads,showlist,colors
	dim Filepath,FileContent : Filepath = "../js/playerconfig.js"
	if not objFile.isFileExists(Filepath) then
		Filepath = Filepath & ".bak"
	end if
	FileContent = objFile.getFile(Filepath)
	pwidth = regMatch(FileContent,"var\spwidth\=(\d+?)\;")
	pheight = regMatch(FileContent,"var\spheight\=(\d+?)\;")
	popenW = regMatch(FileContent,"var\spopenW\=(\d+?)\;")
	popenH = regMatch(FileContent,"var\spopenH\=(\d+?)\;")
	adsloadtime = regMatch(FileContent,"var\sadsloadtime\=(\d+?)\;")
	autoFull = regMatch(FileContent,"var\sautoFull\=(\d+?)\;")
	maccmsplay = regMatch(FileContent,"var\smaccmsplay\=(\d+?)\;")
	loadads = regMatch(FileContent,"var\sloadads\=*""*(\S+?)'*""*\;")
	showlist = regMatch(FileContent,"var\sshowlist\=(\d+?)\;")
	colors = regMatch(FileContent,"var\scolors\=*""*(\S+?)'*""*\;")
%>
<script language="javascript">
var a = <%=maccmsplay%>;
$(document).ready(function(){
	$("#form1").validate({
		rules:{
			pwidth:{
				required:true,
				number:true
			},
			pheight:{
				required:true,
				number:true
			},
			popenW:{
				required:true,
				number:true
			},
			popenH:{
				required:true,
				number:true
			},
			adsloadtime:{
				required:true,
				number:true
			},
			colors:{
				required:true
			}
		}
	});
	$('#form1').form({
		onSubmit:function(){
			if(!$("#form1").valid()) {return false;}
		},
	    success:function(data){
	        $.messager.alert('系统提示', data, 'info');
	    }
	});
	
	$("#t1 input:radio").click(function(){
		var v = $("input[name='maccmsplay']:checked").val();
		if(v==3){
			$("#s1").show();
		}
		else{
			$("#s1").hide();
		}
	});
	if(a==3){
		$("#s1").show();
	}
});
function setColor(v)
{
	switch(v)
	{
		case 2: v="EFF4F7,000000,666666,E4E4E4,000000,FF0000,FF0000,DBEBFE,458CE4,DBEBFE,FFFFFF,458CE4,DBEBFE,DBEBFE,fcfcfc";break;
		case 3: v="D8CFDF,000000,666666,E4E4E4,000000,FF0000,FF0000,D8CFDF,926C92,BEAFC9,FFFFFF,926C92,BEAFC9,BEAFC9,fcfcfc";break;
		case 4: v="D7E7B6,000000,666666,E4E4E4,000000,FF0000,FF0000,9EC14C,A3C656,BAD480,FFFFFF,A3C656,BAD480,BAD480,fcfcfc";break;
		default: v="000000,F6F6F6,F6F6F6,333333,666666,FFFFF,FF0000,2c2c2c,ffffff,a3a3a3,2c2c2c,adadad,adadad,48486c,fcfcfc";break;
	}
	$("#colors").val(v);
}
</script>
<body>
<form method="POST" action="?action=configplaysave" id="form1" name="form1">
  <table class="tb">
	<tr>
      <td width="20%">播放器宽度：</td>
      <td><input name="pwidth" type="text" id="pwidth" value="<%=pwidth%>" size="10"> 
        <font color="#FF0000">＊</font> 例如: 540</td>
    </tr>
    <tr>
      <td>播放器高度：</td>
      <td><input name="pheight" type="text" id="pheight" value="<%=pheight%>" size="10">
        <font color="#FF0000">＊</font> 例如: 460</td>
    </tr>
	<tr>
      <td>弹窗窗口宽度：</td>
      <td><input name="popenW" type="text" id="popenW" value="<%=popenW%>" size="10"> 
        <font color="#FF0000">＊</font> 例如: 500</td>
    </tr>
    <tr>
      <td>弹窗窗口高度：</td>
      <td><input name="popenH" type="text" id="popenH" value="<%=popenH%>" size="10">
        <font color="#FF0000">＊</font> 例如: 400</td>
    </tr>
    <tr>
    <tr>
      <td>播放前广告时间：</td>
      <td>
          <input name="adsloadtime" type="text" id="adsloadtime" value="<%=adsloadtime%>" size="10">
           <font color="#FF0000">＊</font> 1000表示1秒,无播放前广告请填写0</td>
    </tr>
    <tr>
      <td>预加载地址：</td>
      <td>
          <input name="loadads" type="text" id="loadads" value="<%=loadads%>" size="50">
           <font color="#FF0000">＊</font>不要出现" ' 等特殊字符号</td>
    </tr>
    
    <tr>
      <td>是否自动全屏播放：</td>
      <td>
        关闭<input type="radio" name="autofull" value="0" <%if autofull = 0 Then writeF "checked"%>>
        开启<input type="radio" name="autofull" value="1" <%if autofull = 1 Then writeF "checked"%>>
        (此功能仅支持部分播放器)</td>
    </tr>
    <tr>
      <td>播放器文件：</td>
      <td id="t1">
      	<br><input type="radio" name="maccmsplay" value="1" <%if maccmsplay = 1 Then writeF "checked"%>><font color=black>1，本地播放器文件(播放器代码可能失效)</font>
        <br><input type="radio" name="maccmsplay" value="2" <%if maccmsplay = 2 Then writeF "checked"%>><font color=red>2，普通窗口版本(去广告、播放器代码随时更新不失效)</font>
        <br><input type="radio" name="maccmsplay" value="3" <%if maccmsplay = 3 Then writeF "checked"%>><font color=red>3，美化窗口版本(去广告、播放器代码随时更新不失效)</font>
        <span id="s1" style="display:none">
        <br>
        集数列表开关：关闭<input type="radio" name="showlist" value="0" <%if showlist = 0 Then writeF "checked"%>>
        开启<input type="radio" name="showlist" value="1" <%if showlist = 1 Then writeF "checked"%>>
        <br>
        播放器颜色配置：[<a href="javascript:void(0)" onclick="setColor(1);return false;">全黑色</a>] [<a href="javascript:void(0)" onclick="setColor(2);return false;">浅蓝色</a>] [<a href="javascript:void(0)" onclick="setColor(3);return false;">浅紫色</a>] [<a href="javascript:void(0)" onclick="setColor(4);return false;">浅绿色</a>]<br>
        <input type="text" size="140" id="colors" name="colors" value="<%=colors%>" />
        <br><font color=red>颜色使用16进制表示法，不带#号，以逗号分割，一共15个可配置颜色!
        <br>依次是：背景色，文字颜色，链接颜色，分组标题背景色，分组标题颜色，当前分组标题颜色，当前集数颜色，集数列表滚动条凸出部分的颜色，滚动条上下按钮上三角箭头的颜色，滚动条的背景颜色，滚动条空白部分的颜色，滚动条立体滚动条阴影的颜色 ，滚动条亮边的颜色，滚动条强阴影的颜色，滚动条的基本颜色
        </span>
        </td>
    </tr>
     <tr align="center">
      <td colspan="2">
          <input name="btnSave" type="submit" id="btnSave" class="input" value="更新参数">
          如出错请手动修改网站 js 目录下的 playerconfig.js 文件     </td>
    </tr>
</table>
</form>
</body>
</html>
<%
end sub

sub configconnectsave
    dim str
	str = str & "<" & "%" & vbcrlf
	str = str & "Const QQ_OAUTH_CONSUMER_KEY=" & chr(34) & trim(request("QQ_OAUTH_CONSUMER_KEY")) & chr(34) & "      'APP ID" & vbcrlf
	str = str & "Const QQ_OAUTH_CONSUMER_SECRET=" & chr(34) & trim(request("QQ_OAUTH_CONSUMER_SECRET")) & chr(34) & "      'APP KEY" & vbcrlf
	str = str & "Dim QQ_CALLBACK_URL " & vbcrlf
	str = str & "QQ_CALLBACK_URL= "& chr(34) & "http://" & chr(34) & " & getBody(geturl(),""http://"",""user/"") &" & chr(34) & "user/?action=reg&ref=qqlogged" & chr(34)   & vbcrlf
	str = str & "%" & ">"
	objFile.createFile "../user/qqconfig.asp",str
	writeA "配置修改成功"
	
end sub

sub configconnect
%>
<!--#include file="../user/qqconfig.asp"-->
<script language="javascript">
$(document).ready(function(){
	$("#form1").validate({
		rules:{
			QQ_OAUTH_CONSUMER_KEY:{
				required:true
			},
			QQ_OAUTH_CONSUMER_SECRET:{
				required:true
			}
		}
	});
	$('#form1').form({
		onSubmit:function(){
			if(!$("#form1").valid()) {return false;}
		},
	    success:function(data){
	        $.messager.alert('系统提示', data, 'info');
	    }
	});
	
});
</script>
<body>
<form method="POST" action="?action=configconnectsave" id="form1" name="form1">
  <table class="tb">
     <tr align="left">
      <td colspan="2">
          QQ互联登陆配置选项：【<a target="_blank" href="http://connect.qq.com/?maccms">点击进入注册</a>】
      	  &nbsp;&nbsp;&nbsp;&nbsp;<input name="btnSave" type="submit" id="btnSave" class="input" value="更新参数">
          如出错请手动修改网站 user 目录下的 qqconfig.asp 文件
      </td>
    </tr>
	<tr>
      <td width="20%">APP ID：</td>
      <td><input name="QQ_OAUTH_CONSUMER_KEY" type="text" id="QQ_OAUTH_CONSUMER_KEY" value="<%=QQ_OAUTH_CONSUMER_KEY%>" size="50"> 
        <font color="#FF0000">＊</font> </td>
    </tr>
    <tr>
      <td>APP KEY：</td>
      <td><input name="QQ_OAUTH_CONSUMER_SECRET" type="text" id="QQ_OAUTH_CONSUMER_SECRET" value="<%=QQ_OAUTH_CONSUMER_SECRET%>" size="50">
        <font color="#FF0000">＊</font> </td>
    </tr>
    
</table>
</form>
</body>
</html>
<%
end sub

sub configbuysave
	dim str
	str = "<" & "%" & vbcrlf
	str = str & "Const app_buymin=" & trim(request("app_buymin"))  & "       '最小充值金额单位RMB元" & vbcrlf
	str = str & "Const app_buyexc=" & trim(request("app_buyexc"))  & "       '1元RMB兑换多少个积分" & vbcrlf
	str = str & "Const app_buyid=" & chr(34) & trim(request("app_buyid")) & chr(34) & "      '支付接口作者ID" & vbcrlf
	str = str & "Const app_buykey=" & chr(34) & trim(request("app_buykey")) & chr(34) & "      '支付接口密钥key" & vbcrlf
	str = str & "%" & ">"
	objFile.createFile "../user/buyconfig.asp",str
	writeA "配置修改成功"
end sub

sub configbuy
%>
<!--#include file="../user/buyconfig.asp"-->
<script language="javascript">
$(document).ready(function(){
	$("#form1").validate({
		rules:{
			app_buyid:{
				required:true
			},
			app_buykey:{
				required:true
			},
			app_buymin:{
				required:true,
				number:true
			},
			app_buyexc:{
				required:true,
				number:true
			}
		}
	});
	$('#form1').form({
		onSubmit:function(){
			if(!$("#form1").valid()) {return false;}
		},
	    success:function(data){
	        $.messager.alert('系统提示', data, 'info');
	    }
	});
	
});
</script>
<body>
<form method="POST" action="?action=configbuysave" id="form1" name="form1">
  <table class="tb">
     <tr align="left">
      <td colspan="2">
          在线支付接口注册：【<a target="_blank" href="http://pay.yinshengvip.com/mobile_reg.php?merchant=ksyitnnoudo6oght">点击进入注册</a>】 
          &nbsp;&nbsp;&nbsp;&nbsp;<input name="btnSave" type="submit" id="btnSave" class="input" value="更新参数">
          如出错请手动修改网站 user 目录下的 buyconfig.asp 文件
      </td>
    </tr>
	<tr>
      <td width="20%">作者ID：</td>
      <td><input name="app_buyid" type="text" id="app_buyid" value="<%=app_buyid%>" size="50"> 
        <font color="#FF0000">＊</font> </td>
    </tr>
    <tr>
      <td>密钥KEY：</td>
      <td><input name="app_buykey" type="text" id="app_buykey" value="<%=app_buykey%>" size="50">
        <font color="#FF0000">＊</font> </td>
    </tr>
    <tr>
      <td width="20%">最小充值金额（单位RMB元）：</td>
      <td><input name="app_buymin" type="text" id="app_buymin" value="<%=app_buymin%>" size="50"> 
        <font color="#FF0000">＊</font> </td>
    </tr>
    <tr>
      <td>兑换比例（1元RMB兑换多少个积分）：</td>
      <td><input name="app_buyexc" type="text" id="app_buyexc" value="<%=app_buyexc%>" size="50">
        <font color="#FF0000">＊</font>  </td>
    </tr>
     <tr>
      <td colspan="2">
      <font color=red>提示信息：本接口支持信用卡支付、提现等功能，严禁用于违法操作，如有问题本程序概不负责！</font>
      <br>普通支付：1%手续费；快捷支付：1.5%手续费； 
      </td>
    </tr>
</table>
</form>
</body>
</html>
<%
end sub
%>