function getCssLinkList($content) { $startStr = ''; $endStr = ''; $splStr = ''; $s = ''; $c = ''; $fileName = ''; $startStr = '<link'; $endStr = '/>'; $content = GetArray($content, $startStr, $endStr, false, false); $splStr = aspSplit($content, '$Array$'); foreach ($splStr as $key => $s) { if (inStr(lCase($s), 'stylesheet') > 0) { $fileName = StrCut($s, 'href="', '"', 2); aspEcho($fileName, $s); $c = $c . $fileName . vbCrlf(); } } $getCssLinkList = $c; return @$getCssLinkList; }
function &GetAll($nRows = -1) { return GetArray($nRows); }
function handleAction($content) { $startStr = ''; $endStr = ''; $ActionList = ''; $splStr = ''; $action = ''; $s = ''; $HandYes = ''; $startStr = '{$'; $endStr = '$}'; $ActionList = GetArray($content, $startStr, $endStr, true, true); //Call echo("ActionList ", ActionList) $splStr = aspSplit($ActionList, '$Array$'); foreach ($splStr as $key => $s) { $action = aspTrim($s); $action = HandleInModule($action, 'start'); //处理\'替换掉 if ($action != '') { $action = aspTrim(mid($action, 3, len($action) - 4)) . ' '; //call echo("s",s) $HandYes = true; //处理为真 //{VB #} 这种是放在图片路径里,目的是为了在VB里不处理这个路径 if (CheckFunValue($action, '# ') == true) { $action = ''; //测试 } else { if (CheckFunValue($action, 'GetLableValue ') == true) { $action = XY_getLableValue($action); //标题在搜索引擎里列表 } else { if (CheckFunValue($action, 'TitleInSearchEngineList ') == true) { $action = XY_TitleInSearchEngineList($action); //加载文件 } else { if (CheckFunValue($action, 'Include ') == true) { $action = XY_Include($action); //栏目列表 } else { if (CheckFunValue($action, 'ColumnList ') == true) { $action = XY_AP_ColumnList($action); //文章列表 } else { if (CheckFunValue($action, 'ArticleList ') == true || CheckFunValue($action, 'CustomInfoList ') == true) { $action = XY_AP_ArticleList($action); //评论列表 } else { if (CheckFunValue($action, 'CommentList ') == true) { $action = XY_AP_CommentList($action); //搜索统计列表 } else { if (CheckFunValue($action, 'SearchStatList ') == true) { $action = XY_AP_SearchStatList($action); //友情链接列表 } else { if (CheckFunValue($action, 'Links ') == true) { $action = XY_AP_Links($action); //显示单页内容 } else { if (CheckFunValue($action, 'GetOnePageBody ') == true || CheckFunValue($action, 'MainInfo ') == true) { $action = XY_AP_GetOnePageBody($action); //显示文章内容 } else { if (CheckFunValue($action, 'GetArticleBody ') == true) { $action = XY_AP_GetArticleBody($action); //显示栏目内容 } else { if (CheckFunValue($action, 'GetColumnBody ') == true) { $action = XY_AP_GetColumnBody($action); //获得栏目URL } else { if (CheckFunValue($action, 'GetColumnUrl ') == true) { $action = XY_GetColumnUrl($action); //获得文章URL } else { if (CheckFunValue($action, 'GetArticleUrl ') == true) { $action = XY_GetArticleUrl($action); //获得单页URL } else { if (CheckFunValue($action, 'GetOnePageUrl ') == true) { $action = XY_GetOnePageUrl($action); //------------------- 模板模块区 ----------------------- //显示包裹块 作用不大 } else { if (CheckFunValue($action, 'DisplayWrap ') == true) { $action = XY_DisplayWrap($action); //显示布局 } else { if (CheckFunValue($action, 'Layout ') == true) { $action = XY_Layout($action); //显示模块 } else { if (CheckFunValue($action, 'Module ') == true) { $action = XY_Module($action); //读模块内容 } else { if (CheckFunValue($action, 'ReadTemplateModule ') == true) { $action = XY_ReadTemplateModule($action); //获得内容模块 20150108 } else { if (CheckFunValue($action, 'GetContentModule ') == true) { $action = XY_ReadTemplateModule($action); //读模板样式并设置标题与内容 软件里有个栏目Style进行设置 } else { if (CheckFunValue($action, 'ReadColumeSetTitle ') == true) { $action = XY_ReadColumeSetTitle($action); //------------------- 其它区 ----------------------- //显示JS渲染ASP/PHP/VB等程序的编辑器 } else { if (CheckFunValue($action, 'displayEditor ') == true) { $action = displayEditor($action); //Js版网站统计 } else { if (CheckFunValue($action, 'JsWebStat ') == true) { $action = XY_JsWebStat($action); //------------------- 链接区 ----------------------- //普通链接A } else { if (CheckFunValue($action, 'HrefA ') == true) { $action = XY_HrefA($action); //栏目菜单(引用后台栏目程序) } else { if (CheckFunValue($action, 'ColumnMenu ') == true) { $action = XY_AP_ColumnMenu($action); //------------------- 循环处理 ----------------------- //For循环处理 } else { if (CheckFunValue($action, 'ForArray ') == true) { $action = XY_ForArray($action); //------------------- 待分区 ----------------------- //网站底部 } else { if (CheckFunValue($action, 'WebSiteBottom ') == true || CheckFunValue($action, 'WebBottom ') == true) { $action = XY_AP_WebSiteBottom($action); //显示网站栏目 20160331 } else { if (CheckFunValue($action, 'DisplayWebColumn ') == true) { $action = XY_DisplayWebColumn($action); //URL加密 } else { if (CheckFunValue($action, 'escape ') == true) { $action = XY_escape($action); //URL解密 } else { if (CheckFunValue($action, 'unescape ') == true) { $action = XY_unescape($action); //asp与php版本 } else { if (CheckFunValue($action, 'EDITORTYPE ') == true) { $action = XY_EDITORTYPE($action); //获得网址 } else { if (CheckFunValue($action, 'getUrl ') == true) { $action = XY_getUrl($action); //暂时不屏蔽 } else { if (CheckFunValue($action, 'copyTemplateMaterial ') == true) { $action = ''; } else { if (CheckFunValue($action, 'clearCache ') == true) { $action = ''; } else { $HandYes = false; //处理为假 } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } //注意这样,有的则不显示 晕 And IsNul(action)=False if (isNul($action) == true) { $action = ''; } if ($HandYes == true) { $content = replace($content, $s, $action); } } } $handleAction = $content; return @$handleAction; }
function getCssListUrlList($content) { $startStr = ''; $endStr = ''; $ImgList = ''; $splStr = ''; $c = ''; $CssUrl = ''; $CssStr = ''; $urlList = ''; $startStr = '<link '; $CssStr = ''; $endStr = '>'; $ImgList = GetArray($content, $startStr, $endStr, false, false); //Call RwEnd(ImgList) $splStr = aspSplit($ImgList, '$Array$'); foreach ($splStr as $key => $CssUrl) { if ($CssUrl != '' && inStr(lCase($CssUrl), 'stylesheet') > 0) { //获得Css加强版,改于20141125 $CssUrl = lCase(replace(replace(replace($CssUrl, '"', ''), '\'', ''), '>', ' ')) . ' '; $startStr = 'href='; $endStr = ' '; if (inStr($CssUrl, $startStr) > 0 && inStr($CssUrl, $endStr) > 0) { $CssUrl = StrCut($CssUrl, $startStr, $endStr, 2); } if (inStr(vbCrlf() . $urlList . vbCrlf(), vbCrlf() . $CssUrl . vbCrlf()) == false) { if ($urlList != '') { $urlList = $urlList . vbCrlf(); } $urlList = $urlList . $CssUrl . vbCrlf(); } } } $getCssListUrlList = $urlList; return @$getCssListUrlList; }
function delTemplateMyNote($code) { $startStr = ''; $endStr = ''; $i = ''; $s = ''; $handleNumb = ''; $splStr = ''; $Block = ''; $id = ''; $content = ''; $DragSortCssStr = ''; $DragSortStart = ''; $DragSortEnd = ''; $DragSortValue = ''; $c = ''; $lableName = ''; $lableStartStr = ''; $lableEndStr = ''; $handleNumb = 99; //这里定义很重要 //加强版 对这个也可以<!--#aaa start#--><!--#aaa end#--> $startStr = '<!--#'; $endStr = '#-->'; for ($i = 1; $i <= $handleNumb; $i++) { if (inStr($code, $startStr) > 0 && inStr($code, $endStr) > 0) { $lableName = StrCut($code, $startStr, $endStr, 2); if (inStr($lableName, ' start') > 0) { $lableName = mid($lableName, 1, len($lableName) - 6); } $s = $startStr . $lableName . $endStr; $lableStartStr = $startStr . $lableName . ' start' . $endStr; $lableEndStr = $startStr . $lableName . ' end' . $endStr; if (inStr($code, $lableStartStr) > 0 && inStr($code, $lableEndStr) > 0) { $s = StrCut($code, $lableStartStr, $lableEndStr, 1); //call echo(">>",s) } $code = replace($code, $s, ''); //call echo("s",s) //call echo("lableName",lableName) //call echo("lableStartStr",replace(lableStartStr,"<","<")) //call echo("lableEndStr",replace(lableEndStr,"<","<")) } else { break; } } //清除ReadBlockList读出块列表内容 不过有个不足的地方,读出内容可以从外部读出内容,这个以后考虑 //Call Eerr("ReadBlockList",ReadBlockList) //写于20141118 //splStr = Split(ReadBlockList, vbCrLf) '不用这种,复杂了 //修改于20151230 for ($i = 1; $i <= $handleNumb; $i++) { $startStr = '<R#读出内容'; $endStr = ' start#>'; $Block = StrCut($code, $startStr, $endStr, 2); if ($Block != '') { $startStr = '<R#读出内容' . $Block . ' start#>'; $endStr = '<R#读出内容' . $Block . ' end#>'; if (inStr($code, $startStr) > 0 && inStr($code, $endStr) > 0) { $s = StrCut($code, $startStr, $endStr, 1); $code = replace($code, $s, ''); //移除 } } else { break; } } //删除翻页配置20160309 $startStr = '<!--#list start#-->'; $endStr = '<!--#list end#-->'; if (inStr($code, $startStr) > 0 && inStr($code, $endStr) > 0) { $s = StrCut($code, $startStr, $endStr, 2); $code = replace($code, $s, ''); } if (@$_REQUEST['gl'] == 'yun') { $content = getFText('/Jquery/dragsort/Config.html'); $content = getFText('/Jquery/dragsort/模块拖拽.html'); //Css样式 $startStr = '<style>'; $endStr = '</style>'; if (inStr($content, $startStr) > 0 && inStr($content, $endStr) > 0) { $DragSortCssStr = StrCut($content, $startStr, $endStr, 1); } //开始部分 $startStr = '<!--#top start#-->'; $endStr = '<!--#top end#-->'; if (inStr($content, $startStr) > 0 && inStr($content, $endStr) > 0) { $DragSortStart = StrCut($content, $startStr, $endStr, 2); } //结束部分 $startStr = '<!--#foot start#-->'; $endStr = '<!--#foot end#-->'; if (inStr($content, $startStr) > 0 && inStr($content, $endStr) > 0) { $DragSortEnd = StrCut($content, $startStr, $endStr, 2); } //显示块内容 $startStr = '<!--#value start#-->'; $endStr = '<!--#value end#-->'; if (inStr($content, $startStr) > 0 && inStr($content, $endStr) > 0) { $DragSortValue = StrCut($content, $startStr, $endStr, 2); } //控制处理 $startStr = '<dIv datid=\''; $endStr = '</dIv>'; $content = GetArray($code, $startStr, $endStr, false, false); $splStr = aspSplit($content, '$Array$'); foreach ($splStr as $key => $s) { $startStr = '【DatId】\''; $id = mid($s, 1, inStr($s, $startStr) - 1); $s = mid($s, inStr($s, $startStr) + len($startStr), -1); //C=C & "<li><div title='"& Id &"'>" & vbcrlf & "<div " & S & "</div>"& vbcrlf &"<div class='clear'></div></div><div class='clear'></div></li>" $s = '<div' . $s . '</div>'; //Call Die(S) $c = $c . replace(replace($DragSortValue, '{$value$}', $s), '{$id$', $id); } $c = replace($c, '【换行】', vbCrlf()); $c = $DragSortStart . $c . $DragSortEnd; $code = mid($code, 1, inStr($code, '<body>') - 1); $code = replace($code, '</head>', $DragSortCssStr . '</head></body>' . $c . '</body></html>'); } //删除VB软件生成的垃圾代码 $startStr = '<dIv datid=\''; $endStr = '【DatId】\''; for ($i = 1; $i <= $handleNumb; $i++) { if (inStr($code, $startStr) > 0 && inStr($code, $endStr) > 0) { $id = StrCut($code, $startStr, $endStr, 2); $code = replace2($code, $startStr . $id . $endStr, '<div '); } else { break; } } $code = replace($code, '</dIv>', '</div>'); //替换成这个结束div //最外围清除 $startStr = '<!--#dialogteststart#-->'; $endStr = '<!--#dialogtestend#-->'; $code = replace($code, '<!--#dialogtest start#-->', $startStr); $code = replace($code, '<!--#dialogtest end#-->', $endStr); for ($i = 1; $i <= $handleNumb; $i++) { if (inStr($code, $startStr) > 0 && inStr($code, $endStr) > 0) { $s = StrCut($code, $startStr, $endStr, 1); $code = replace2($code, $s, ''); } else { break; } } //内转清除 $startStr = '<!--#teststart#-->'; $endStr = '<!--#testend#-->'; $code = replace($code, '<!--#del start#-->', $startStr); //与下面一样 $code = replace($code, '<!--#del end#-->', $endStr); //与下面一样 多样式 $code = replace($code, '<!--#test start#-->', $startStr); $code = replace($code, '<!--#test end#-->', $endStr); for ($i = 1; $i <= $handleNumb; $i++) { if (inStr($code, $startStr) > 0 && inStr($code, $endStr) > 0) { $s = StrCut($code, $startStr, $endStr, 1); $code = replace2($code, $s, ''); } else { break; } } //删除注释的span $code = replace($code, '<sPAn class="testspan">', ''); //测试Span $code = replace($code, '<sPAn class="testhidde">', ''); //隐藏Span $code = replace($code, '</sPAn>', ''); //delTemplateMyNote = Code:Exit Function $startStr = '<!--#'; $endStr = '#-->'; for ($i = 1; $i <= $handleNumb; $i++) { if (inStr($code, $startStr) > 0 && inStr($code, $endStr) > 0) { $s = StrCut($code, $startStr, $endStr, 1); $code = replace2($code, $s, ''); } else { break; } } $delTemplateMyNote = $code; return @$delTemplateMyNote; }