function showWebModuleSkins($InputName, $ThisValue)
{
$ResourceDir = '';
$content = '';
$c = '';
$splStr = '';
$fileName = '';
$sel = '';
$ResourceDir = getWebSkins() . '\\Index\\column';
//Call Echo("ResourceDir",ResourceDir)
$content = getDirFolderNameList($ResourceDir);
//Call Echo("Content",Content)
$ThisValue = lCase($ThisValue);
//转成小写 好对比
$c = $c . ' <select name="' . $InputName . '" id="' . $InputName . '">' . vbCrlf();
$c = $c . ' <option value=""></option>' . vbCrlf();
$splStr = aspSplit($content, vbCrlf());
foreach ($splStr as $key => $fileName) {
if ($fileName != '') {
$sel = IIF(lCase($fileName) == $ThisValue, ' selected', '');
$c = $c . ' <option value="' . $fileName . '"' . $sel . '>' . $fileName . '</option>' . vbCrlf();
}
}
$c = $c . ' </select>' . vbCrlf();
$showWebModuleSkins = $c;
return @$showWebModuleSkins;
}
function displayTemplatesList($content)
{
$templatesFolder = '';
$templatePath = '';
$templatePath2 = '';
$templateName = '';
$defaultList = '';
$folderList = '';
$splStr = '';
$s = '';
$c = '';
$s1 = '';
$s2 = '';
$s3 = '';
$splTemplatesFolder = '';
//加载网址配置
loadWebConfig();
$defaultList = getStrCut($content, '[list]', '[/list]', 2);
$splTemplatesFolder = aspSplit('/Templates/|/Templates2015/|/Templates2016/', '|');
foreach ($splTemplatesFolder as $key => $templatesFolder) {
if ($templatesFolder != '') {
$folderList = getDirFolderNameList($templatesFolder);
$splStr = aspSplit($folderList, vbCrlf());
foreach ($splStr as $key => $templateName) {
if ($templateName != '' && inStr('#_', left($templateName, 1)) == false) {
$templatePath = $templatesFolder . $templateName;
$templatePath2 = $templatePath;
$s = $defaultList;
$s1 = getStrCut($content, '<!--启用 start-->', '<!--启用 end-->', 2);
$s2 = getStrCut($content, '<!--恢复数据 start-->', '<!--恢复数据 end-->', 2);
$s3 = getStrCut($content, '<!--删除模板 start-->', '<!--删除模板 end-->', 2);
if (lCase($GLOBALS['cfg_webtemplate']) == lCase($templatePath)) {
$templateName = '<font color=red>' . $templateName . '</font>';
$templatePath2 = '<font color=red>' . $templatePath2 . '</font>';
$s = replace(replace($s, $s1, ''), $s3, '');
} else {
$s = replace($s, $s2, '');
}
$s = replaceValueParam($s, 'templatename', $templateName);
$s = replaceValueParam($s, 'templatepath', $templatePath);
$s = replaceValueParam($s, 'templatepath2', $templatePath2);
$c = $c . $s . vbCrlf();
}
}
}
}
$content = replace($content, '[list]' . $defaultList . '[/list]', $c);
$displayTemplatesList = $content;
return @$displayTemplatesList;
}
function displayPanelList($dir)
{
$content = '';
$splstr = '';
$s = '';
$c = '';
$content = getDirFolderNameList($dir);
$splstr = aspSplit($content, vbCrlf());
$c = '<select name=\'selectLeftStyle\'>';
foreach ($splstr as $key => $s) {
$s = '<option value=\'\'>' . $s . '</option>';
$c = $c . $s . vbCrlf();
}
$displayPanelList = $c . '</select>';
return @$displayPanelList;
}
