function getEditorStr($inputName, $sType) { $C = ''; $C = '<script charset="utf-8" src="Keditor/kindeditor.js"></script> ' . vbCrlf(); $C = $C . '<script charset="utf-8" src="Keditor/lang/zh_CN.js"></script> ' . vbCrlf(); $C = $C . '<script language="javascript">' . vbCrlf(); $C = $C . 'KindEditor.ready(function(K) {' . vbCrlf(); $C = $C . ' var editor1 = K.create(\'textarea[name="' . $inputName . '"]\', { //处理让文本域' . vbCrlf(); $C = $C . ' cssPath : \'Keditor/plugins/code/prettify.css\',' . vbCrlf(); $C = $C . ' uploadJson : \'Keditor/' . $sType . '/upload_json.' . $sType . '\',' . vbCrlf(); $C = $C . ' fileManagerJson : \'Keditor/' . $sType . '/file_manager_json.' . $sType . '\',' . vbCrlf(); $C = $C . ' allowFileManager : true,' . vbCrlf(); $C = $C . ' afterCreate : function() {' . vbCrlf(); $C = $C . ' var self = this;' . vbCrlf(); $C = $C . ' K.ctrl(document, 13, function() {' . vbCrlf(); $C = $C . ' self.sync();' . vbCrlf(); $C = $C . ' K(\'form[name=example]\')[0].submit();' . vbCrlf(); $C = $C . ' });' . vbCrlf(); $C = $C . ' K.ctrl(self.edit.doc, 13, function() {' . vbCrlf(); $C = $C . ' self.sync();' . vbCrlf(); $C = $C . ' K(\'form[name=example]\')[0].submit();' . vbCrlf(); $C = $C . ' });' . vbCrlf(); $C = $C . ' }' . vbCrlf(); $C = $C . ' });' . vbCrlf(); $C = $C . ' //prettyPrint(); //因为这个出错,所以给它注释掉 2013,12,12' . vbCrlf(); $C = $C . '});' . vbCrlf(); $C = $C . '</script>' . vbCrlf(); $getEditorStr = $C; return @$getEditorStr; }
function checkVbCrlf($content) { $checkVbCrlf = false; if (inStr($content, vbCrlf()) > 0) { $checkVbCrlf = true; } return @$checkVbCrlf; }
function testGetPY() { $c = ''; $splStr = ''; $i = ''; $s = ''; $cn = ''; $en = ''; $splStr = aspSplit(getFText('1.txt'), 'End If'); for ($i = 0; $i <= uBound($splStr); $i++) { $s = $splStr[$i]; if (inStr($s, '=') > 0) { $cn = mid($s, inStr($s, '"') + 1, -1); $cn = mid($cn, 1, inStr($cn, ' ') - 3); $en = mid($s, inStr($s, '=') + 1, -1); $en = mid($en, 3, inStr($en, vbCrlf()) - 4); $c = 'PY(' . $i . ')="' . $cn . '_' . $en . '"'; Rw($c); } } }
function contentNameSort($content, $sType) { $splStr = ''; $arrayStr = aspArray(99); $fileName = ''; $isOther = ''; $otherStr = ''; $id = ''; $c = ''; $s = ''; $i = ''; $left1 = ''; $splStr = aspSplit($content, vbCrlf()); foreach ($splStr as $key => $s) { if ($s != '') { $fileName = getStrFileName($s); $isOther = true; $left1 = left($fileName, 1); if (inStr($fileName, '、') > 0) { $id = replace(left($fileName, 2), '、', ''); if (isNumber($id)) { $arrayStr[$id] = $arrayStr[$id] . $s . vbCrlf(); $isOther = false; } } if (inStr($sType, $left1) == false && $isOther == true) { $otherStr = $otherStr . $s . vbCrlf(); } } } for ($i = 0; $i <= uBound($arrayStr); $i++) { $c = $c . $arrayStr[$i]; } $contentNameSort = $c . $otherStr; return @$contentNameSort; }
function dedeCMSMsg() { $c = ''; $c = '<style> ' . vbCrlf(); $c = $c . '.msgbox {' . vbCrlf(); $c = $c . ' width: 450px;' . vbCrlf(); $c = $c . ' border: 1px solid #DADADA;' . vbCrlf(); $c = $c . ' margin:0 auto;' . vbCrlf(); $c = $c . ' margin-top:20px;' . vbCrlf(); $c = $c . ' line-height:20px;' . vbCrlf(); $c = $c . '}' . vbCrlf(); $c = $c . '.msgbox .ptitle{' . vbCrlf(); $c = $c . ' padding: 6px;' . vbCrlf(); $c = $c . ' font-size: 12px;' . vbCrlf(); $c = $c . ' border-bottom: 1px solid #DADADA;' . vbCrlf(); $c = $c . ' background: #DBEEBD url(/plus/img/wbg.gif);' . vbCrlf(); $c = $c . ' font-weight:bold;' . vbCrlf(); $c = $c . ' text-align:center;' . vbCrlf(); $c = $c . '}' . vbCrlf(); $c = $c . '.msgbox .pcontent{' . vbCrlf(); $c = $c . ' height: 100px;' . vbCrlf(); $c = $c . ' font-size: 10pt;' . vbCrlf(); $c = $c . ' background: #ffffff;' . vbCrlf(); $c = $c . ' text-align:center;' . vbCrlf(); $c = $c . ' padding-top:30px;' . vbCrlf(); $c = $c . '}' . vbCrlf(); $c = $c . '</style> ' . vbCrlf(); $c = $c . '<div class="msgbox">' . vbCrlf(); $c = $c . ' <div class="ptitle">提示信息!</div>' . vbCrlf(); $c = $c . ' <div class="pcontent">' . vbCrlf(); $c = $c . ' 成功登录,正在转向管理管理主页!<br>' . vbCrlf(); $c = $c . ' <a href="#">如果你的浏览器没反应,请点击这里...</a>' . vbCrlf(); $c = $c . '' . vbCrlf(); $c = $c . ' </div>' . vbCrlf(); $c = $c . '</div>' . vbCrlf(); $dedeCMSMsg = $c; return @$dedeCMSMsg; }
function getFileFolderList($folderPath, $c = '', $action = '|处理文件#|处理文件夹|文件名称|文件夹名称|循环文件夹|', $fileTypeList = '|*|') { $folderPath = handlePath($folderPath); //文件夹为假退出 加了这个判断尽然把HTTP 错误 500.0 - Internal Server Error 报错给解决了 小云你牛 20160719home if (checkFolder($folderPath) == false) { return $c; } $fso = @opendir($folderPath); if ($fso) { while (($file = readdir($fso)) !== false) { if ($file != '.' && $file != '..') { $ffPath = $folderPath . "\\" . $file; //为文件夹 if (is_dir($ffPath)) { if (strstr('|' . $action . '|', '|处理文件夹|')) { if (strstr('|' . $action . '|', '|文件夹名称|')) { $s = $file; } else { $s = handlePath($ffPath); } $c = $c . $s . vbCrlf(); } if (strstr('|' . $action . '|', '|循环文件夹|')) { //aspecho('$ffPath',$ffPath); $tempC = getFileFolderList($ffPath, "", $action, $fileTypeList); if ($tempC != '') { $tempC = $tempC . vbCrlf(); } $c = $c . $tempC; } } elseif (strstr('|' . $action . '|', '|处理文件|')) { $fileType = strtolower(substr(strrchr($file, '.'), 1)); if (strstr('|' . $action . '|', '|文件名称|')) { $s = $file; } elseif (strstr('|' . $action . '|', '|文件类型|')) { $s = $fileType; } else { $s = handlePath($ffPath); } if (strstr('|' . $fileTypeList . '|', '|' . $fileType . '|') || strstr('|' . $fileTypeList . '|', '|*|')) { $c = $c . $s . vbCrlf(); } } } } closedir($fso); } if ($c != '') { $c = substr($c, 0, strlen($c) - 2); } return $c; }
function printlnHtml($s) { echo displayHtml($s) . '<br />' . vbCrlf(); }
function displayEditor($action) { $c = ''; $c = $c . '<script type="text/javascript" src="\\Jquery\\syntaxhighlighter\\scripts/shCore.js"></script> ' . vbCrlf(); $c = $c . '<script type="text/javascript" src="\\Jquery\\syntaxhighlighter\\scripts/shBrushJScript.js"></script>' . vbCrlf(); $c = $c . '<script type="text/javascript" src="\\Jquery\\syntaxhighlighter\\scripts/shBrushPhp.js"></script> ' . vbCrlf(); $c = $c . '<script type="text/javascript" src="\\Jquery\\syntaxhighlighter\\scripts/shBrushVb.js"></script> ' . vbCrlf(); $c = $c . '<link type="text/css" rel="stylesheet" href="\\Jquery\\syntaxhighlighter\\styles/shCore.css"/>' . vbCrlf(); $c = $c . '<link type="text/css" rel="stylesheet" href="\\Jquery\\syntaxhighlighter\\styles/shThemeDefault.css"/>' . vbCrlf(); $c = $c . '<script type="text/javascript">' . vbCrlf(); $c = $c . ' SyntaxHighlighter.config.clipboardSwf = \'\\Jquery\\syntaxhighlighter\\scripts/clipboard.swf\';' . vbCrlf(); $c = $c . ' SyntaxHighlighter.all();' . vbCrlf(); $c = $c . '</script>' . vbCrlf(); $displayEditor = $c; return @$displayEditor; }
function getRandomPhoneNumber($nCount) { $num1 = ''; $rndnum = ''; $j = ''; $c = ''; $c = ''; $rndnum = ''; $j = 1; while ($j < $nCount) { while (len($rndnum) < 9) { //产生随机数的个数 $num1 = cStr(chr((57 - 48) * rnd() + 48)); $rndnum = $rndnum . $num1; } $c = $c . 13 . $rndnum . vbCrlf(); $rndnum = ''; $j = $j + 1; } if ($c != '') { $c = left($c, len($c) - 2); } $getRandomPhoneNumber = $c; return @$getRandomPhoneNumber; }
function formatting($content, $action) { $i = ''; $endStr = ''; $s = ''; $c = ''; $labelName = ''; $startLabel = ''; $endLabel = ''; $endLabelStr = ''; $nLevel = ''; $isYes = ''; $parentLableName = ''; $nextLableName = ''; //下一个标题名称 $isA = ''; //是否为A链接 $isTextarea = ''; //是否为多行输入文本框 $isScript = ''; //脚本语言 $isStyle = ''; //Css层叠样式表 $isPre = ''; //是否为pre $startLabel = '<'; $endLabel = '>'; $nLevel = 0; $action = '|' . $action . '|'; //层级 $isA = false; $isTextarea = false; $isScript = false; $isStyle = false; $isPre = false; $content = replace(replace($content, vbCrlf(), chr(10)), vbTab(), ' '); for ($i = 1; $i <= len($content); $i++) { $s = mid($content, $i, 1); $endStr = mid($content, $i, -1); if ($s == '<') { if (inStr($endStr, '>') > 0) { $s = mid($endStr, 1, inStr($endStr, '>')); $i = $i + len($s) - 1; $s = mid($s, 2, len($s) - 2); if (right($s, 1) == '/') { $s = PHPTrim(left($s, len($s) - 1)); } $endStr = right($endStr, len($endStr) - len($s) - 2); //最后字符减去当前标签 -2是因为它有<>二个字符 //注意之前放在labelName下面 $labelName = mid($s, 1, inStr($s . ' ', ' ') - 1); $labelName = lCase($labelName); //call echo("labelName",labelName) if ($labelName == 'a') { $isA = true; } else { if ($labelName == '/a') { $isA = false; } else { if ($labelName == 'textarea') { $isTextarea = true; } else { if ($labelName == '/textarea') { $isTextarea = false; } else { if ($labelName == 'script') { $isScript = true; } else { if ($labelName == '/script') { $isScript = false; } else { if ($labelName == 'style') { $isStyle = true; } else { if ($labelName == '/style') { $isStyle = false; } else { if ($labelName == 'pre') { $isPre = true; } else { if ($labelName == '/pre') { $isPre = false; } } } } } } } } } } $endLabelStr = $endLabel; $nextLableName = getHtmlLableName($endStr, 0); //不为压缩HTML if (inStr($action, '|ziphtml|') == false && $isPre == false) { if ($isA == false) { if (inStr('|a|strong|u|i|s|script|', '|' . $labelName . '|') == false && '/' . $labelName != $nextLableName && inStr('|/a|/strong|/u|/i|/s|/script|', '|' . $nextLableName . '|') == false) { $endLabelStr = $endLabelStr . chr(10); } } } //单标签最后加个 / 20160615 if (inStr('|br|hr|img|input|param|meta|link|', '|' . $labelName . '|') > 0) { $s = $s . ' /'; } $s = $startLabel . $s . $endLabelStr; //不为压缩HTML if (inStr($action, '|ziphtml|') == false && $isPre == false) { //处理这个 aaaaa</span> if ($isA == false && $isYes == false && left($labelName, 1) == '/' && $labelName != '/script' && $labelName != '/a') { //排除这种 <span>天天发团</span> 并且判断上一个字段不等于vbcrlf换行 if ('/' . $parentLableName != $labelName && right(aspTrim($c), 1) != chr(10)) { $s = chr(10) . $s; } } } $parentLableName = $labelName; $isYes = true; } } else { if ($s != '') { $isYes = false; //call echo("isPre",isPre) if ($isPre == false) { if ($s == chr(10)) { if ($isTextarea == false && $isScript == false && $isStyle == false) { $s = ''; } else { if ($isScript == true) { if (inStr($action, '|zipscripthtml|') > 0) { $s = ' '; } } else { if ($isStyle == true) { if (inStr($action, '|zipstylehtml|') > 0) { $s = ''; } } else { if ($isTextarea == true) { if (inStr($action, '|ziptextareahtml|') > 0) { $s = ''; } } else { $s = chr(10); } } } } // Right(Trim(c), 1) = ">") 为在压缩时用到 } else { if ((right(aspTrim($c), 1) == chr(10) || right(aspTrim($c), 1) == '>') && PHPTrim($s) == '' && $isTextarea == false && $isScript == false) { $s = ''; } } } } } $c = $c . $s; } $c = replace($c, chr(10), vbCrlf()); $formatting = $c; return @$formatting; }
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; }
function webPageControl($nRecrodCount, $nPageSize, $nPage, $configPageUrl, $action) { $c = ''; $nCountPage = ''; $i = ''; $nDisplay = ''; $nDispalyOK = ''; $nTemp = ''; $cPages = ''; $url = ''; $selStr = ''; $previousPage = ''; $nextPage = ''; //定义上一页,下一页 $isDisplayTip = ''; //是否显示提示翻页信息 $isDisplayTip = true; $sPageStart = ''; $sPageEnd = ''; $sHomePage = ''; $sHomePageFocus = ''; $sUpPage = ''; $sUpPageFocus = ''; $sNextPage = ''; $sNextPageFocus = ''; $sForPage = ''; $sForPageFocus = ''; $sTailPage = ''; $sTailPageFocus = ''; if ($action != '') { $sPageStart = getStrCut($action, '[sPageStart]', '[/sPageStart]', 2); //页头部分 $sPageEnd = getStrCut($action, '[sPageEnd]', '[/sPageEnd]', 2); //页尾部分 $sHomePage = getStrCut($action, '[sHomePage]', '[/sHomePage]', 2); //首页 $sHomePageFocus = getStrCut($action, '[sHomePageFocus]', '[/sHomePageFocus]', 2); //首页交点 $sUpPage = getStrCut($action, '[sUpPage]', '[/sUpPage]', 2); //上一页 $sUpPageFocus = getStrCut($action, '[sUpPageFocus]', '[/sUpPageFocus]', 2); //上一页交点 $sNextPage = getStrCut($action, '[sNextPage]', '[/sNextPage]', 2); //下一页 $sNextPageFocus = getStrCut($action, '[sNextPageFocus]', '[/sNextPageFocus]', 2); //下一页交点 $sForPage = getStrCut($action, '[sForPage]', '[/sForPage]', 2); //循环页 $sForPageFocus = getStrCut($action, '[sForPageFocus]', '[/sForPageFocus]', 2); //循环页交点 $sTailPage = getStrCut($action, '[sTailPage]', '[/sTailPage]', 2); //最后页 $sTailPageFocus = getStrCut($action, '[sTailPageFocus]', '[/sTailPageFocus]', 2); //最后页交点 } //页头部分 if ($sPageStart == '') { $sPageStart = '<ul class="pagecontrolwrap">' . vbCrlf() . '<li class="pageinfo">共[$nRecrodCount$]条 [$nPage$]/[$nCountPage$]页</li>' . vbCrlf(); } //页尾部分 if ($sPageEnd == '') { $sPageEnd = '</ul><div class="clear"></div>' . vbCrlf(); } //首页 if ($sHomePage == '') { $sHomePage = '<li><a href="[$url$]">首页</a></li>' . vbCrlf(); } //首页交点 if ($sHomePageFocus == '') { $sHomePageFocus = '<li class="pageli">首页</li>' . vbCrlf(); } //上一页 if ($sUpPage == '') { $sUpPage = '<li><a href="[$url$]">上一页</a></li>' . vbCrlf(); } //上一页交点 if ($sUpPageFocus == '') { $sUpPageFocus = '<li class="pageli">上一页</li>' . vbCrlf(); } //下一页 if ($sNextPage == '') { $sNextPage = '<li><a href="[$url$]">下一页</a></li>' . vbCrlf(); } //下一页交点 if ($sNextPageFocus == '') { $sNextPageFocus = '<li class="pageli">下一页</li>' . vbCrlf(); } //循环页 if ($sForPage == '') { $sForPage = '<li class="pagefocus">[$i$]</li>' . vbCrlf(); } //循环页交点 if ($sForPageFocus == '') { $sForPageFocus = '<li><a href="[$url$]">[$i$]</a></li>' . vbCrlf(); } //最后页 if ($sTailPage == '') { $sTailPage = '<li><a href="[$url$]">末页</a></li>' . vbCrlf(); } //最后页交点 if ($sTailPageFocus == '') { $sTailPageFocus = '<li class="pageli">末页</li>' . vbCrlf(); } //测试时用到20160630 if (1 == 2) { $c = '[sPageStart]' . vbCrlf() . $sPageStart . '[/sPageStart]' . vbCrlf() . vbCrlf(); $c = $c . '[sHomePage]' . vbCrlf() . $sHomePage . '[/sHomePage]' . vbCrlf() . vbCrlf(); $c = $c . '[sHomePageFocus]' . vbCrlf() . $sHomePageFocus . '[/sHomePageFocus]' . vbCrlf() . vbCrlf(); $c = $c . '[sUpPage]' . vbCrlf() . $sUpPage . '[/sUpPage]' . vbCrlf() . vbCrlf(); $c = $c . '[sUpPageFocus]' . vbCrlf() . $sUpPageFocus . vbCrlf() . '[/sUpPageFocus]' . vbCrlf(); $c = $c . '[sForPage]' . vbCrlf() . $sForPage . '[/sForPage]' . vbCrlf() . vbCrlf(); $c = $c . '[sForPageFocus]' . vbCrlf() . $sForPageFocus . '[/sForPageFocus]' . vbCrlf() . vbCrlf(); $c = $c . '[sNextPage]' . vbCrlf() . $sNextPage . '[/sNextPage]' . vbCrlf() . vbCrlf(); $c = $c . '[sNextPageFocus]' . vbCrlf() . $sNextPageFocus . '[/sNextPageFocus]' . vbCrlf() . vbCrlf(); $c = $c . '[sTailPage]' . vbCrlf() . $sTailPage . '[/sTailPage]' . vbCrlf() . vbCrlf(); $c = $c . '[sTailPageFocus]' . vbCrlf() . $sTailPageFocus . '[/sTailPageFocus]' . vbCrlf() . vbCrlf(); $c = $c . '[sPageEnd]' . vbCrlf() . $sPageEnd . '[/sPageEnd]' . vbCrlf(); rwEnd('[page]' . vbCrlf() . vbCrlf() . $c . vbCrlf() . '[/page]'); } //配置页为空则 if ($configPageUrl == '') { $configPageUrl = getUrlAddToParam(getUrl(), '?page=[id]', 'replace'); } $nDisplay = 6; //显示数 $nDispalyOK = 0; //显示成功数 $nPage = handleNumberType($nPage); if ($nPage == '') { $nPage = 1; } else { $nPage = CInt($nPage); } //获得总页数 $nCountPage = GetCountPage($nRecrodCount, $nPageSize); $previousPage = $nPage - 1; $nextPage = $nPage + 1; //处理上一页 if ($previousPage <= 0) { $previousPage = ''; } //处理下一页 if ($nextPage > $nCountPage) { $nextPage = ''; } //页开始 $c = $sPageStart; //首页 if ($nPage > 1) { $c = $c . replace($sHomePage, '[$url$]', replace($configPageUrl, '[id]', '')); } else { if ($isDisplayTip == true) { $c = $c . $sHomePageFocus; } } //上一页 if ($previousPage != '') { $nTemp = $previousPage; if ($previousPage <= 1) { $nTemp = ''; } $c = $c . replace($sUpPage, '[$url$]', replace($configPageUrl, '[id]', $nTemp)); } else { if ($isDisplayTip == true) { $c = $c . $sUpPageFocus; } } $n = ''; //call echo(npage,ncountpage) $n = $nPage - 3; //call echo("n",n) //翻页循环 for ($i = $n; $i <= $nCountPage; $i++) { if ($i >= 1) { $nDispalyOK = $nDispalyOK + 1; //call echo(i,nPage) if ($i == $nPage) { $c = $c . replace($sForPage, '[$i$]', $i); } else { $nTemp = $i; if ($i <= 1) { $nTemp = ''; } $c = $c . replace(replace($sForPageFocus, '[$url$]', replace($configPageUrl, '[id]', $nTemp)), '[$i$]', $i); } if ($nDispalyOK > $nDisplay) { break; } } } //下一页 if ($nCountPage > $nPage) { $c = $c . replace($sNextPage, '[$url$]', replace($configPageUrl, '[id]', $nextPage)); } else { if ($isDisplayTip == true) { $c = $c . $sNextPageFocus; } } //末页 if ($nCountPage > $nPage) { $c = $c . replace($sTailPage, '[$url$]', replace($configPageUrl, '[id]', $nCountPage)); } else { if ($isDisplayTip == true) { $c = $c . $sTailPageFocus; } } $c = $c . $sPageEnd; $c = replaceValueParam($c, 'nRecrodCount', $nRecrodCount); $c = replaceValueParam($c, 'nPage', $nPage); if ($nCountPage == '0') { $nCountPage = 1; } $c = replaceValueParam($c, 'nCountPage', $nCountPage); if (inStr($c, '[$page-select-openlist$]') > 0) { for ($i = 1; $i <= $nCountPage; $i++) { $url = replace($configPageUrl, '[id]', $i); $selStr = ''; if ($i == $nPage) { $selStr = ' selected'; } $cPages = $cPages . '<option value="' . $url . '"' . $selStr . '>' . $i . '</option>' . vbCrlf(); } $c = replace($c, '[$page-select-openlist$]', $cPages); } $webPageControl = $c . vbCrlf(); return @$webPageControl; }
function photoLeftScroll($demo, $demo1, $demo2) { $c = ''; $c = $c . '<!--图片向左轮番滚动-->' . vbCrlf(); $c = $c . '<script language="javascript">' . vbCrlf(); $c = $c . 'var speed=30' . vbCrlf(); $c = $c . '' . $demo2 . '.innerHTML=' . $demo1 . '.innerHTML' . vbCrlf(); $c = $c . 'function Marquee(){' . vbCrlf(); $c = $c . ' if(' . $demo2 . '.offsetWidth-' . $demo . '.scrollLeft<=0)' . vbCrlf(); $c = $c . ' ' . $demo . '.scrollLeft-=' . $demo1 . '.offsetWidth' . vbCrlf(); $c = $c . ' else{' . vbCrlf(); $c = $c . ' ' . $demo . '.scrollLeft++' . vbCrlf(); $c = $c . ' }' . vbCrlf(); $c = $c . '}' . vbCrlf(); $c = $c . 'var MyMar=setInterval(Marquee,speed)' . vbCrlf(); $c = $c . '' . $demo . '.onmouseover=function() {clearInterval(MyMar)}' . vbCrlf(); $c = $c . '' . $demo . '.onmouseout=function() {MyMar=setInterval(Marquee,speed)}' . vbCrlf(); $c = $c . '</script> ' . vbCrlf(); $photoLeftScroll = $c; return @$photoLeftScroll; }
function scanUrl($httpUrl, $toTitle, $codeset) { $splStr = ''; $i = ''; $s = ''; $content = ''; $PubAHrefList = ''; $PubATitleList = ''; $splUrl = ''; $spltitle = ''; $title = ''; $url = ''; $htmlDir = ''; $htmlFilePath = ''; $nOK = ''; $dataArray = ''; $webState = ''; $u = ''; $iniDir = ''; $iniFilePath = ''; $websize = ''; $nSetTime = ''; $startTime = ''; $openSpeed = ''; $isLocal = ''; $isThrough = ''; $htmlDir = '/../网站UrlScan/' . setFileName(getWebSite($httpUrl)); CreateDirFolder($htmlDir); $htmlFilePath = $htmlDir . '/' . setFileName($httpUrl) . '.html'; $iniDir = $htmlDir . '/conifg'; CreateFolder($iniDir); $iniFilePath = $iniDir . '/' . setFileName($httpUrl) . '.txt'; //httpurl="http://maiside.net/" $webState = 0; $nSetTime = 1; $openSpeed = 0; if (CheckFile($htmlFilePath) == false) { $startTime = now(); aspEcho('codeset', $codeset); $dataArray = handleXmlGet($httpUrl, $codeset); $content = $dataArray[0]; $content = toGB2312Char($content); //给PHP用,转成gb2312字符 $webState = $dataArray[1]; $openSpeed = dateDiff('s', $startTime, now()); //content=gethttpurl(httpurl,codeset) //call createfile(htmlFilePath,content) WriteToFile($htmlFilePath, $content, $codeset); createFile($iniFilePath, $webState . vbCrlf() . $openSpeed); $nSetTime = 3; $isLocal = 0; } else { //content=getftext(htmlFilePath) $content = reaFile($htmlFilePath, $codeset); $content = toGB2312Char($content); //给PHP用,转成gb2312字符 $splStr = aspSplit(getFText($iniFilePath), vbCrlf()); $webState = CInt($splStr[0]); $openSpeed = CInt($splStr[0]); $isLocal = 1; } $websize = getFSize($htmlFilePath); if ($websize == '') { $websize = 0; } aspEcho('isLocal', $isLocal); $rsObj = $GLOBALS['conn']->query('select * from ' . $GLOBALS['db_PREFIX'] . 'weburlscan where httpurl=\'' . $httpUrl . '\''); if (@mysql_num_rows($rsObj) == 0) { $rs = mysql_fetch_array($rsObj); connexecute('insert into ' . $GLOBALS['db_PREFIX'] . 'weburlscan(httpurl,title,charset) values(\'' . $httpUrl . '\',\'' . $toTitle . '\',\'' . $codeset . '\')'); } connexecute('update ' . $GLOBALS['db_PREFIX'] . 'weburlscan set webstate=' . $webState . ',websize=' . $websize . ',openspeed=' . $openSpeed . ',charset=\'' . $codeset . '\' where httpurl=\'' . $httpUrl . '\''); //strLen(content) 不用这个,不精准 $s = getContentAHref('', $content, $PubAHrefList, $PubATitleList); $s = handleScanUrlList($httpUrl, $s); //call echo("httpurl",httpurl) //call echo("s",s) //call echo("PubATitleList",PubATitleList) $nOK = 0; $splUrl = aspSplit($PubAHrefList, vbCrlf()); $spltitle = aspSplit($PubATitleList, vbCrlf()); for ($i = 1; $i <= uBound($splUrl); $i++) { $title = $spltitle[$i]; $url = $splUrl[$i]; //去掉#号后台的字符20160506 if (inStr($url, '#') > 0) { $url = mid($url, 1, inStr($url, '#') - 1); } if ($url == '') { if ($title != '') { aspEcho('网址为空', $title); } } else { $url = handleScanUrlList($httpUrl, $url); $url = handleWithWebSiteList($httpUrl, $url); if ($url != '') { $rsObj = $GLOBALS['conn']->query('select * from ' . $GLOBALS['db_PREFIX'] . 'weburlscan where httpurl=\'' . $url . '\''); if (@mysql_num_rows($rsObj) == 0) { $rs = mysql_fetch_array($rsObj); $u = lCase($url); if (inStr($u, 'tools/downfile.asp') > 0 || inStr($u, '/url.asp?') > 0 || inStr($u, '/aspweb.asp?') > 0 || inStr($u, '/phpweb.php?') > 0 || $u == 'http://www.maiside.net/qq/' || inStr($u, 'mailto:') > 0 || inStr($u, 'tel:') > 0 || inStr($u, '.html?replytocom') > 0) { //.html?replytocom 王通网站 $isThrough = 0; } else { $isThrough = 1; //不用true 因为写入数据会有问题 } connexecute('insert into ' . $GLOBALS['db_PREFIX'] . 'weburlscan(tohttpurl,totitle,httpurl,title,isthrough,charset) values(\'' . $httpUrl . '\',\'' . $toTitle . '\',\'' . $url . '\',\'' . left($title, 255) . '\',' . $isThrough . ',\'' . $codeset . '\')'); $nOK = $nOK + 1; aspEcho($i, $url); } else { aspEcho($title, $url); } } } } $scanUrl = $nSetTime; return @$scanUrl; }
function resetAccessData_temp() { handlePower('恢复模板数据'); //管理权限处理 $GLOBALS['conn='] = OpenConn(); $splStr = ''; $i = ''; $s = ''; $columnname = ''; $title = ''; $nCount = ''; $webdataDir = ''; $webdataDir = @$_REQUEST['webdataDir']; if ($webdataDir != '') { if (checkFolder($webdataDir) == false) { eerr('网站数据目录不存在,恢复默认数据未成功', $webdataDir); } } else { $webdataDir = '/Data/WebData/'; } aspEcho('提示', '恢复数据完成'); rw('<hr><a href=\'../index.php\' target=\'_blank\'>进入首页</a> | <a href="?" target=\'_blank\'>进入后台</a>'); $content = ''; $filePath = ''; $parentid = ''; $author = ''; $adddatetime = ''; $fileName = ''; $bodycontent = ''; $webtitle = ''; $webkeywords = ''; $webdescription = ''; $sortrank = ''; $labletitle = ''; $target = ''; $websitebottom = ''; $webTemplate = ''; $webimages = ''; $webcss = ''; $webjs = ''; $flags = ''; $websiteurl = ''; $splxx = ''; $columntype = ''; $relatedtags = ''; $npagesize = ''; $customaurl = ''; $nofollow = ''; $templatepath = ''; $isthrough = ''; $titlecolor = ''; $showreason = ''; $ncomputersearch = ''; $nmobliesearch = ''; $ncountsearch = ''; $ndegree = ''; //竞价表 $displaytitle = ''; $aboutcontent = ''; $isonhtml = ''; //单页表 $columnenname = ''; //导航表 $smallimage = ''; $bigImage = ''; $bannerimage = ''; //文章表 $httpurl = ''; $price = ''; $morepageurl = ''; $charset = ''; $thispage = ''; $countpage = ''; $bigClassName = ''; $startStr = ''; $endStr = ''; $startaddstr = ''; $endaddstr = ''; $sType = ''; $saction = ''; $fieldName = ''; $fieldcheck = ''; //网站配置 $content = GetFText($webdataDir . '/website.txt'); //这样做是为了从GitHub下载时它把vbcrlf转成 chr(10) 20160409 if (inStr($content, vbCrlf()) == false) { $content = replace($content, chr(10), vbCrlf()); } if ($content != '') { $webtitle = newGetStrCut($content, 'webtitle'); $webkeywords = newGetStrCut($content, 'webkeywords'); $webdescription = newGetStrCut($content, 'webdescription'); $websitebottom = newGetStrCut($content, 'websitebottom'); $webTemplate = newGetStrCut($content, 'webtemplate'); $webimages = newGetStrCut($content, 'webimages'); $webcss = newGetStrCut($content, 'webcss'); $webjs = newGetStrCut($content, 'webjs'); $flags = newGetStrCut($content, 'flags'); $websiteurl = newGetStrCut($content, 'websiteurl'); if (getRecordCount($GLOBALS['db_PREFIX'] . 'website', '') == 0) { connexecute('insert into ' . $GLOBALS['db_PREFIX'] . 'website(webtitle) values(\'测试\')'); } connexecute('update ' . $GLOBALS['db_PREFIX'] . 'website set webtitle=\'' . $webtitle . '\',webkeywords=\'' . $webkeywords . '\',webdescription=\'' . $webdescription . '\',websitebottom=\'' . $websitebottom . '\',webtemplate=\'' . $webTemplate . '\',webimages=\'' . $webimages . '\',webcss=\'' . $webcss . '\',webjs=\'' . $webjs . '\',flags=\'' . $flags . '\',websiteurl=\'' . $websiteurl . '\''); } //导航 connexecute('delete from ' . $GLOBALS['db_PREFIX'] . 'webcolumn'); $content = getDirTxtList($webdataDir . '/webcolumn/'); $content = contentNameSort($content, ''); $splStr = aspSplit($content, vbCrlf()); HR(); foreach ($splStr as $key => $filePath) { $fileName = getFileName($filePath); if ($filePath != '' && inStr('_#', left($fileName, 1)) == false) { aspEcho('导航', $filePath); $content = GetFText($filePath); //这样做是为了从GitHub下载时它把vbcrlf转成 chr(10) 20160409 if (inStr($content, vbCrlf()) == false) { $content = replace($content, chr(10), vbCrlf()); } $splxx = aspSplit($content, vbCrlf() . '-------------------------------'); foreach ($splxx as $key => $s) { if (inStr($s, '【webtitle】') > 0) { $s = $s . vbCrlf(); $webtitle = newGetStrCut($s, 'webtitle'); $webkeywords = newGetStrCut($s, 'webkeywords'); $webdescription = newGetStrCut($s, 'webdescription'); $customaurl = newGetStrCut($s, 'customaurl'); $sortrank = newGetStrCut($s, 'sortrank'); if ($sortrank == '') { $sortrank = 0; } $fileName = newGetStrCut($s, 'filename'); $columnname = newGetStrCut($s, 'columnname'); $columnenname = newGetStrCut($s, 'columnenname'); $columntype = newGetStrCut($s, 'columntype'); $flags = newGetStrCut($s, 'flags'); $parentid = newGetStrCut($s, 'parentid'); $parentid = phpTrim(getColumnId($parentid)); //可根据栏目名称找到对应ID 不存在为-1 //call echo("parentid",parentid) $labletitle = newGetStrCut($s, 'labletitle'); //每页显示条数 $npagesize = newGetStrCut($s, 'npagesize'); if ($npagesize == '') { $npagesize = 10; } //默认分页数为10条 $target = newGetStrCut($s, 'target'); $smallimage = newGetStrCut($s, 'smallimage'); $bigImage = newGetStrCut($s, 'bigImage'); $bannerimage = newGetStrCut($s, 'bannerimage'); $templatepath = newGetStrCut($s, 'templatepath'); $bodycontent = newGetStrCut($s, 'bodycontent'); $bodycontent = contentTranscoding($bodycontent); //是否启用生成html $isonhtml = newGetStrCut($s, 'isonhtml'); if ($isonhtml == '0' || lCase($isonhtml) == 'false') { $isonhtml = 0; } else { $isonhtml = 1; } //是否为nofollow $nofollow = newGetStrCut($s, 'nofollow'); if ($nofollow == '1' || lCase($nofollow) == 'true') { $nofollow = 1; } else { $nofollow = 0; } //call echo(columnname,nofollow) $aboutcontent = newGetStrCut($s, 'aboutcontent'); $aboutcontent = contentTranscoding($aboutcontent); $bodycontent = newGetStrCut($s, 'bodycontent'); $bodycontent = contentTranscoding($bodycontent); connexecute('insert into ' . $GLOBALS['db_PREFIX'] . 'webcolumn (webtitle,webkeywords,webdescription,columnname,columnenname,columntype,sortrank,filename,customaurl,flags,parentid,labletitle,aboutcontent,bodycontent,npagesize,isonhtml,nofollow,target,smallimage,bigImage,bannerimage,templatepath) values(\'' . $webtitle . '\',\'' . $webkeywords . '\',\'' . $webdescription . '\',\'' . $columnname . '\',\'' . $columnenname . '\',\'' . $columntype . '\',' . $sortrank . ',\'' . $fileName . '\',\'' . $customaurl . '\',\'' . $flags . '\',' . $parentid . ',\'' . $labletitle . '\',\'' . $aboutcontent . '\',\'' . $bodycontent . '\',' . $npagesize . ',' . $isonhtml . ',' . $nofollow . ',\'' . $target . '\',\'' . $smallimage . '\',\'' . $bigImage . '\',\'' . $bannerimage . '\',\'' . $templatepath . '\')'); } } } } //文章 connexecute('delete from ' . $GLOBALS['db_PREFIX'] . 'articledetail'); $content = getDirAllFileList($webdataDir . '/articledetail/', 'txt'); $content = contentNameSort($content, ''); $splStr = aspSplit($content, vbCrlf()); HR(); foreach ($splStr as $key => $filePath) { $fileName = getFileName($filePath); if ($filePath != '' && inStr('_#', left($fileName, 1)) == false) { aspEcho('文章', $filePath); $content = GetFText($filePath); //这样做是为了从GitHub下载时它把vbcrlf转成 chr(10) 20160409 if (inStr($content, vbCrlf()) == false) { $content = replace($content, chr(10), vbCrlf()); } $splxx = aspSplit($content, vbCrlf() . '-------------------------------'); foreach ($splxx as $key => $s) { if (inStr($s, '【title】') > 0) { $s = $s . vbCrlf(); $parentid = newGetStrCut($s, 'parentid'); $parentid = getColumnId($parentid); $title = newGetStrCut($s, 'title'); $titlecolor = newGetStrCut($s, 'titlecolor'); $webtitle = newGetStrCut($s, 'webtitle'); $webkeywords = newGetStrCut($s, 'webkeywords'); $webdescription = newGetStrCut($s, 'webdescription'); $author = newGetStrCut($s, 'author'); $sortrank = newGetStrCut($s, 'sortrank'); if ($sortrank == '') { $sortrank = 0; } $adddatetime = newGetStrCut($s, 'adddatetime'); $fileName = newGetStrCut($s, 'filename'); $templatepath = newGetStrCut($s, 'templatepath'); $flags = newGetStrCut($s, 'flags'); $relatedtags = newGetStrCut($s, 'relatedtags'); $customaurl = newGetStrCut($s, 'customaurl'); $target = newGetStrCut($s, 'target'); $smallimage = newGetStrCut($s, 'smallimage'); $bigImage = newGetStrCut($s, 'bigImage'); $bannerimage = newGetStrCut($s, 'bannerimage'); $labletitle = newGetStrCut($s, 'labletitle'); $aboutcontent = newGetStrCut($s, 'aboutcontent'); $aboutcontent = contentTranscoding($aboutcontent); $bodycontent = newGetStrCut($s, 'bodycontent'); $bodycontent = contentTranscoding($bodycontent); //是否启用生成html $isonhtml = newGetStrCut($s, 'isonhtml'); if ($isonhtml == '0' || lCase($isonhtml) == 'false') { $isonhtml = 0; } else { $isonhtml = 1; } //是否为nofollow $nofollow = newGetStrCut($s, 'nofollow'); if ($nofollow == '1' || lCase($nofollow) == 'true') { $nofollow = 1; } else { $nofollow = 0; } //价格 $price = getDianNumb(newGetStrCut($s, 'price')); if ($price == '') { $price = 0; } connexecute('insert into ' . $GLOBALS['db_PREFIX'] . 'articledetail (parentid,title,titlecolor,webtitle,webkeywords,webdescription,author,sortrank,adddatetime,filename,flags,relatedtags,aboutcontent,bodycontent,updatetime,isonhtml,customaurl,nofollow,target,smallimage,bigImage,bannerimage,templatepath,labletitle,price) values(' . $parentid . ',\'' . $title . '\',\'' . $titlecolor . '\',\'' . $webtitle . '\',\'' . $webkeywords . '\',\'' . $webdescription . '\',\'' . $author . '\',' . $sortrank . ',\'' . $adddatetime . '\',\'' . $fileName . '\',\'' . $flags . '\',\'' . $relatedtags . '\',\'' . $aboutcontent . '\',\'' . $bodycontent . '\',\'' . now() . '\',' . $isonhtml . ',\'' . $customaurl . '\',' . $nofollow . ',\'' . $target . '\',\'' . $smallimage . '\',\'' . $bigImage . '\',\'' . $bannerimage . '\',\'' . $templatepath . '\',\'' . $labletitle . '\',' . $price . ')'); } } } } //单页 connexecute('delete from ' . $GLOBALS['db_PREFIX'] . 'OnePage'); $content = getDirTxtList($webdataDir . '/OnePage/'); $content = contentNameSort($content, ''); $splStr = aspSplit($content, vbCrlf()); HR(); foreach ($splStr as $key => $filePath) { $fileName = getFileName($filePath); if ($filePath != '' && inStr('_#', left($fileName, 1)) == false) { aspEcho('单页', $filePath); $content = GetFText($filePath); //这样做是为了从GitHub下载时它把vbcrlf转成 chr(10) 20160409 if (inStr($content, vbCrlf()) == false) { $content = replace($content, chr(10), vbCrlf()); } $splxx = aspSplit($content, vbCrlf() . '-------------------------------'); foreach ($splxx as $key => $s) { if (inStr($s, '【webkeywords】') > 0) { $s = $s . vbCrlf(); $title = newGetStrCut($s, 'title'); $displaytitle = newGetStrCut($s, 'displaytitle'); $webtitle = newGetStrCut($s, 'webtitle'); $webkeywords = newGetStrCut($s, 'webkeywords'); $webdescription = newGetStrCut($s, 'webdescription'); $adddatetime = newGetStrCut($s, 'adddatetime'); $fileName = newGetStrCut($s, 'filename'); $aboutcontent = newGetStrCut($s, 'aboutcontent'); $aboutcontent = contentTranscoding($aboutcontent); $target = newGetStrCut($s, 'target'); $templatepath = newGetStrCut($s, 'templatepath'); $bodycontent = newGetStrCut($s, 'bodycontent'); $bodycontent = contentTranscoding($bodycontent); //是否启用生成html $isonhtml = newGetStrCut($s, 'isonhtml'); if ($isonhtml == '0' || lCase($isonhtml) == 'false') { $isonhtml = 0; } else { $isonhtml = 1; } //是否为nofollow $nofollow = newGetStrCut($s, 'nofollow'); if ($nofollow == '1' || lCase($nofollow) == 'true') { $nofollow = 1; } else { $nofollow = 0; } connexecute('insert into ' . $GLOBALS['db_PREFIX'] . 'onepage (title,displaytitle,webtitle,webkeywords,webdescription,adddatetime,filename,isonhtml,aboutcontent,bodycontent,nofollow,target,templatepath) values(\'' . $title . '\',\'' . $displaytitle . '\',\'' . $webtitle . '\',\'' . $webkeywords . '\',\'' . $webdescription . '\',\'' . $adddatetime . '\',\'' . $fileName . '\',' . $isonhtml . ',\'' . $aboutcontent . '\',\'' . $bodycontent . '\',' . $nofollow . ',\'' . $target . '\',\'' . $templatepath . '\')'); } } } } //竞价 connexecute('delete from ' . $GLOBALS['db_PREFIX'] . 'Bidding'); $content = getDirTxtList($webdataDir . '/Bidding/'); $content = contentNameSort($content, ''); $splStr = aspSplit($content, vbCrlf()); HR(); foreach ($splStr as $key => $filePath) { $fileName = getFileName($filePath); if ($filePath != '' && inStr('_#', left($fileName, 1)) == false) { aspEcho('竞价', $filePath); $content = GetFText($filePath); //这样做是为了从GitHub下载时它把vbcrlf转成 chr(10) 20160409 if (inStr($content, vbCrlf()) == false) { $content = replace($content, chr(10), vbCrlf()); } $splxx = aspSplit($content, vbCrlf() . '-------------------------------'); foreach ($splxx as $key => $s) { if (inStr($s, '【webkeywords】') > 0) { $s = $s . vbCrlf(); $webkeywords = newGetStrCut($s, 'webkeywords'); $showreason = newGetStrCut($s, 'showreason'); $ncomputersearch = newGetStrCut($s, 'ncomputersearch'); $nmobliesearch = newGetStrCut($s, 'nmobliesearch'); $ncountsearch = newGetStrCut($s, 'ncountsearch'); $ndegree = newGetStrCut($s, 'ndegree'); $ndegree = getNumber($ndegree); if ($ndegree == '') { $ndegree = 0; } connexecute('insert into ' . $GLOBALS['db_PREFIX'] . 'Bidding (webkeywords,showreason,ncomputersearch,nmobliesearch,ndegree) values(\'' . $webkeywords . '\',\'' . $showreason . '\',' . $ncomputersearch . ',' . $nmobliesearch . ',' . $ndegree . ')'); } } } } //搜索统计 connexecute('delete from ' . $GLOBALS['db_PREFIX'] . 'SearchStat'); $content = getDirTxtList($webdataDir . '/SearchStat/'); $content = contentNameSort($content, ''); $splStr = aspSplit($content, vbCrlf()); HR(); foreach ($splStr as $key => $filePath) { $fileName = getFileName($filePath); if ($filePath != '' && inStr('_#', left($fileName, 1)) == false) { aspEcho('搜索统计', $filePath); $content = GetFText($filePath); //这样做是为了从GitHub下载时它把vbcrlf转成 chr(10) 20160409 if (inStr($content, vbCrlf()) == false) { $content = replace($content, chr(10), vbCrlf()); } $splxx = aspSplit($content, vbCrlf() . '-------------------------------'); foreach ($splxx as $key => $s) { if (inStr($s, '【title】') > 0) { $s = $s . vbCrlf(); $title = newGetStrCut($s, 'title'); $webtitle = newGetStrCut($s, 'webtitle'); $webkeywords = newGetStrCut($s, 'webkeywords'); $webdescription = newGetStrCut($s, 'webdescription'); $customaurl = newGetStrCut($s, 'customaurl'); $target = newGetStrCut($s, 'target'); $isthrough = newGetStrCut($s, 'isthrough'); if ($isthrough == '0' || lCase($isthrough) == 'false') { $isthrough = 0; } else { $isthrough = 1; } $sortrank = newGetStrCut($s, 'sortrank'); if ($sortrank == '') { $sortrank = 0; } //是否启用生成html $isonhtml = newGetStrCut($s, 'isonhtml'); if ($isonhtml == '0' || lCase($isonhtml) == 'false') { $isonhtml = 0; } else { $isonhtml = 1; } //是否为nofollow $nofollow = newGetStrCut($s, 'nofollow'); if ($nofollow == '1' || lCase($nofollow) == 'true') { $nofollow = 1; } else { $nofollow = 0; } //call echo("title",title) connexecute('insert into ' . $GLOBALS['db_PREFIX'] . 'SearchStat (title,webtitle,webkeywords,webdescription,customaurl,target,isthrough,sortrank,isonhtml,nofollow) values(\'' . $title . '\',\'' . $webtitle . '\',\'' . $webkeywords . '\',\'' . $webdescription . '\',\'' . $customaurl . '\',\'' . $target . '\',' . $isthrough . ',' . $sortrank . ',' . $isonhtml . ',' . $nofollow . ')'); } } } } $itemid = ''; $userName = ''; $ip = ''; $reply = ''; $tableName = ''; //评论 //评论 connexecute('delete from ' . $GLOBALS['db_PREFIX'] . 'TableComment'); $content = getDirTxtList($webdataDir . '/TableComment/'); $content = contentNameSort($content, ''); $splStr = aspSplit($content, vbCrlf()); HR(); foreach ($splStr as $key => $filePath) { $fileName = getFileName($filePath); if ($filePath != '' && inStr('_#', left($fileName, 1)) == false) { aspEcho('评论', $filePath); $content = GetFText($filePath); //这样做是为了从GitHub下载时它把vbcrlf转成 chr(10) 20160409 if (inStr($content, vbCrlf()) == false) { $content = replace($content, chr(10), vbCrlf()); } $splxx = aspSplit($content, vbCrlf() . '-------------------------------'); foreach ($splxx as $key => $s) { if (inStr($s, '【title】') > 0) { $s = $s . vbCrlf(); $tableName = newGetStrCut($s, 'tablename'); $title = newGetStrCut($s, 'title'); $itemid = getArticleId(newGetStrCut($s, 'itemid')); if ($itemid == '') { $itemid = 0; } //call echo("itemID",itemID) $adddatetime = newGetStrCut($s, 'adddatetime'); $userName = newGetStrCut($s, 'username'); $ip = newGetStrCut($s, 'ip'); $bodycontent = newGetStrCut($s, 'bodycontent'); $reply = newGetStrCut($s, 'reply'); $isthrough = newGetStrCut($s, 'isthrough'); if ($isthrough == '0' || lCase($isthrough) == 'false') { $isthrough = 0; } else { $isthrough = 1; } //call echo("title",title) connexecute('insert into ' . $GLOBALS['db_PREFIX'] . 'TableComment (tablename,title,itemid,adddatetime,username,ip,bodycontent,reply,isthrough) values(\'' . $tableName . '\',\'' . $title . '\',' . $itemid . ',\'' . $adddatetime . '\',\'' . $userName . '\',\'' . $ip . '\',\'' . $bodycontent . '\',\'' . $reply . '\',' . $isthrough . ')'); } } } } //友情链接 connexecute('delete from ' . $GLOBALS['db_PREFIX'] . 'FriendLink'); $content = getDirTxtList($webdataDir . '/FriendLink/'); $content = contentNameSort($content, ''); $splStr = aspSplit($content, vbCrlf()); HR(); foreach ($splStr as $key => $filePath) { $fileName = getFileName($filePath); if ($filePath != '' && inStr('_#', left($fileName, 1)) == false) { aspEcho('评论', $filePath); $content = GetFText($filePath); //这样做是为了从GitHub下载时它把vbcrlf转成 chr(10) 20160409 if (inStr($content, vbCrlf()) == false) { $content = replace($content, chr(10), vbCrlf()); } $splxx = aspSplit($content, vbCrlf() . '-------------------------------'); foreach ($splxx as $key => $s) { if (inStr($s, '【title】') > 0) { $s = $s . vbCrlf(); $title = newGetStrCut($s, 'title'); $httpurl = newGetStrCut($s, 'httpurl'); $smallimage = newGetStrCut($s, 'smallimage'); $flags = newGetStrCut($s, 'flags'); $target = newGetStrCut($s, 'target'); $sortrank = newGetStrCut($s, 'sortrank'); if ($sortrank == '0' || lCase($sortrank) == 'false') { $sortrank = 0; } else { $sortrank = 1; } $isthrough = newGetStrCut($s, 'isthrough'); if ($isthrough == '0' || lCase($isthrough) == 'false') { $isthrough = 0; } else { $isthrough = 1; } //call echo("title",title) connexecute('insert into ' . $GLOBALS['db_PREFIX'] . 'FriendLink (title,httpurl,smallimage,flags,sortrank,isthrough,target) values(\'' . $title . '\',\'' . $httpurl . '\',\'' . $smallimage . '\',\'' . $flags . '\',' . $sortrank . ',' . $isthrough . ',\'' . $target . '\')'); } } } } //留言 connexecute('delete from ' . $GLOBALS['db_PREFIX'] . 'GuestBook'); $content = getDirTxtList($webdataDir . '/GuestBook/'); $content = contentNameSort($content, ''); $splStr = aspSplit($content, vbCrlf()); HR(); foreach ($splStr as $key => $filePath) { $fileName = getFileName($filePath); if ($filePath != '' && inStr('_#', left($fileName, 1)) == false) { aspEcho('留言', $filePath); $content = GetFText($filePath); //这样做是为了从GitHub下载时它把vbcrlf转成 chr(10) 20160409 if (inStr($content, vbCrlf()) == false) { $content = replace($content, chr(10), vbCrlf()); } $splxx = aspSplit($content, vbCrlf() . '-------------------------------'); foreach ($splxx as $key => $s) { if (inStr($s, '【adddatetime】') > 0) { $s = $s . vbCrlf(); $adddatetime = newGetStrCut($s, 'adddatetime'); $bodycontent = newGetStrCut($s, 'bodycontent'); $reply = newGetStrCut($s, 'reply'); $isthrough = newGetStrCut($s, 'isthrough'); if ($isthrough == '0' || lCase($isthrough) == 'false') { $isthrough = 0; } else { $isthrough = 1; } connexecute('insert into ' . $GLOBALS['db_PREFIX'] . 'GuestBook (adddatetime,bodycontent,reply,isthrough) values(\'' . $adddatetime . '\',\'' . $bodycontent . '\',\'' . $reply . '\',' . $isthrough . ')'); } } } } //采集网站 connexecute('delete from ' . $GLOBALS['db_PREFIX'] . 'CaiWeb'); $content = getDirTxtList($webdataDir . '/CaiWeb/'); $content = contentNameSort($content, ''); $splStr = aspSplit($content, vbCrlf()); HR(); foreach ($splStr as $key => $filePath) { $fileName = getFileName($filePath); if ($filePath != '' && inStr('_#', left($fileName, 1)) == false) { aspEcho('采集网站', $filePath); $content = GetFText($filePath); //这样做是为了从GitHub下载时它把vbcrlf转成 chr(10) 20160409 if (inStr($content, vbCrlf()) == false) { $content = replace($content, chr(10), vbCrlf()); } $splxx = aspSplit($content, vbCrlf() . '-------------------------------'); foreach ($splxx as $key => $s) { if (inStr($s, '【bigclassname】') > 0) { $s = $s . vbCrlf(); $bigClassName = newGetStrCut($s, 'bigclassname'); $httpurl = newGetStrCut($s, 'httpurl'); $morepageurl = newGetStrCut($s, 'morepageurl'); $charset = newGetStrCut($s, 'charset'); $adddatetime = newGetStrCut($s, 'adddatetime'); $bodycontent = newGetStrCut($s, 'bodycontent'); $sortrank = newGetStrCut($s, 'sortrank'); if ($sortrank == '') { $sortrank = 0; } $thispage = newGetStrCut($s, 'thispage'); if ($thispage == '') { $thispage = 0; } $countpage = newGetStrCut($s, 'countpage'); if ($countpage == '') { $thispage = 0; } $columnname = newGetStrCut($s, 'columnname'); connexecute('insert into ' . $GLOBALS['db_PREFIX'] . 'CaiWeb (adddatetime,bodycontent,httpurl,morepageurl,charset,sortrank,thispage,countpage,bigclassname,columnname) values(\'' . $adddatetime . '\',\'' . $bodycontent . '\',\'' . $httpurl . '\',\'' . $morepageurl . '\',\'' . $charset . '\',' . $sortrank . ',' . $thispage . ',' . $countpage . ',\'' . $bigClassName . '\',\'' . $columnname . '\')'); } } } } //采集配置 connexecute('delete from ' . $GLOBALS['db_PREFIX'] . 'CaiConfig'); $content = getDirTxtList($webdataDir . '/CaiConfig/'); $content = contentNameSort($content, ''); $splStr = aspSplit($content, vbCrlf()); HR(); foreach ($splStr as $key => $filePath) { $fileName = getFileName($filePath); if ($filePath != '' && inStr('_#', left($fileName, 1)) == false) { aspEcho('采集配置', $filePath); $content = GetFText($filePath); //这样做是为了从GitHub下载时它把vbcrlf转成 chr(10) 20160409 if (inStr($content, vbCrlf()) == false) { $content = replace($content, chr(10), vbCrlf()); } $splxx = aspSplit($content, vbCrlf() . '-------------------------------'); foreach ($splxx as $key => $s) { if (inStr($s, '【bigclassname】') > 0) { $s = $s . vbCrlf(); $bigClassName = newGetStrCut($s, 'bigclassname'); $sType = newGetStrCut($s, 'stype'); $startStr = newGetStrCut($s, 'startstr'); $endStr = newGetStrCut($s, 'endstr'); $startaddstr = newGetStrCut($s, 'startaddstr'); $endaddstr = newGetStrCut($s, 'endaddstr'); $adddatetime = newGetStrCut($s, 'adddatetime'); $sortrank = newGetStrCut($s, 'sortrank'); if ($sortrank == '') { $sortrank = 0; } $saction = newGetStrCut($s, 'saction'); $isthrough = newGetStrCut($s, 'isthrough'); $isthrough = IIF($isthrough == '0' || lCase($isthrough) == 'false', 0, 1); $fieldName = newGetStrCut($s, 'fieldname'); $fieldcheck = newGetStrCut($s, 'fieldcheck'); if ($fieldcheck == '') { $fieldcheck = 0; } connexecute('insert into ' . $GLOBALS['db_PREFIX'] . 'CaiConfig (adddatetime,sortrank,bigclassname,stype,startstr,endstr,startaddstr,endaddstr,saction,isthrough,fieldname,fieldcheck) values(\'' . $adddatetime . '\',' . $sortrank . ',\'' . $bigClassName . '\',\'' . $sType . '\',\'' . $startStr . '\',\'' . $endStr . '\',\'' . $startaddstr . '\',\'' . $endaddstr . '\',\'' . $saction . '\',' . $isthrough . ',\'' . $fieldName . '\',' . $fieldcheck . ')'); } } } } writeSystemLog('', '恢复默认数据' . $GLOBALS['db_PREFIX']); //系统日志 }
function getTableList() { $sql = "SHOW TABLES FROM " . $GLOBALS['dbname']; $result = mysql_query($sql); $c = ''; if (!$result) { echo "DB Error, could not list tablesn"; echo 'MySQL Err(www.111cn.net)or: ' . mysql_error(); exit; } while ($row = mysql_fetch_row($result)) { //echo "Table: {$row[0]}n"; if ($c != '') { $c .= vbCrlf(); } $c = $c . $row[0]; } // echo('显示'.$c); return $c; }
function VBGetTimer() { $n = ''; $n = dateDiff('s', $GLOBALS['PubTimer'], now()); $n = printTimeValue($n); $VBGetTimer = vbCrlf() . '------------------------------------' . vbCrlf() . '运行时间:' . $n; return @$VBGetTimer; }
function controlDialogCss() { $c = ''; $c = '<style>' . vbCrlf(); $c = $c . '/*控制Css20150128*/' . vbCrlf(); $c = $c . '.controlDialog{' . vbCrlf(); $c = $c . ' position:relative;' . vbCrlf(); $c = $c . ' height:50px;' . vbCrlf(); $c = $c . ' width:auto;' . vbCrlf(); $c = $c . '}' . vbCrlf(); $c = $c . '.controlDialog .menu{' . vbCrlf(); $c = $c . ' position:absolute;' . vbCrlf(); $c = $c . ' right:0px;' . vbCrlf(); $c = $c . ' top:0px;' . vbCrlf(); $c = $c . '}' . vbCrlf(); $c = $c . '.controlDialog .menu a{' . vbCrlf(); $c = $c . ' color:#FF0000;' . vbCrlf(); $c = $c . ' font-size:14px;' . vbCrlf(); $c = $c . ' text-decoration:none;' . vbCrlf(); $c = $c . ' background-color:#FFFFFF;' . vbCrlf(); $c = $c . ' border:1px solid #003300;' . vbCrlf(); $c = $c . ' padding:4px;' . vbCrlf(); $c = $c . '}' . vbCrlf(); $c = $c . '.controlDialog .menu a:hover{' . vbCrlf(); $c = $c . ' color:#C60000;' . vbCrlf(); $c = $c . ' text-decoration:underline;' . vbCrlf(); $c = $c . '}' . vbCrlf(); $c = $c . '</style>' . vbCrlf(); $controlDialogCss = $c; return @$controlDialogCss; }
function XY_TitleInSearchEngineList($action) { $title = ''; $sType = ''; $divclass = ''; $spanclass = ''; $s = ''; $c = ''; $title = RParam($action, 'title'); $sType = RParam($action, 'sType'); $divclass = RParam($action, 'divclass'); $spanclass = RParam($action, 'spanclass'); $s = '<strong>更多关于《' . $title . '》</strong>'; if ($divclass != '') { $s = '<div class="' . $divclass . '">' . $s . '</div>'; } else { if ($spanclass != '') { $s = '<span class="' . $spanclass . '">' . $s . '</span>' . '<br>'; } else { $s = $s . '<br>'; } } $c = $c . $s . vbCrlf(); $c = $c . '<ul class="list"> ' . vbCrlf(); $c = $c . '<li><a href="https://www.baidu.com/s?ie=gb2312&word=' . $title . '" rel="nofollow" target="_blank">【baidu搜索】在百度里搜索(' . $title . ')</a></li>' . vbCrlf(); $c = $c . '<li><a href="http://www.haosou.com/s?ie=gb2312&q=' . $title . '" rel="nofollow" target="_blank">【haosou搜索】在好搜里搜索(' . $title . ')</a></li>' . vbCrlf(); $c = $c . '<li><a href="https://search.yahoo.com/search;_ylt=A86.JmbkJatWH5YARmebvZx4?toggle=1&cop=mss&ei=gb2312&fr=yfp-t-901&fp=1&p=' . $title . '" rel="nofollow" target="_blank">【yahoo搜索】在雅虎里搜索(' . $title . ')</a></li>' . vbCrlf(); $c = $c . '<li><a href="https://www.sogou.com/sogou?ie=utf8&query=' . toUTFChar($title) . '" rel="nofollow" target="_blank">【sogou搜索】在搜狗里搜索(' . $title . ')</a></li>' . vbCrlf(); $c = $c . '<li><a href="http://www.youdao.com/search?ue=utf8&q=' . toUTFChar($title) . '" rel="nofollow" target="_blank">【youdao搜索】在有道里搜索(' . $title . ')</a></li>' . vbCrlf(); $c = $c . '<li><a href="http://search.yam.com/Search/Web/DefaultKSA.aspx?SearchType=web&l=0&p=0&k=' . toUTFChar($title) . '" rel="nofollow" target="_blank">【yam搜索(google提供技术)】在蕃薯藤里搜索(' . $title . ')</a></li>' . vbCrlf(); $c = $c . '<li><a href="http://cn.bing.com/search?q=' . toUTFChar($title) . '" rel="nofollow" target="_blank">【bing搜索】在必应里搜索(' . $title . ')</a></li>' . vbCrlf(); $c = $c . '</ul>' . vbCrlf(); $XY_TitleInSearchEngineList = $c; return @$XY_TitleInSearchEngineList; }
function handleConfigFile($ConfigPath) { $c = ''; if (CheckFile($ConfigPath) == false) { $c = '#Help帮助# start' . vbCrlf() . '默认帮助内容' . vbCrlf() . '#Help帮助# end'; createFile($ConfigPath, $c); } }
function findModuleStr($content, $valueStr) { $startStr = ''; $endStr = ''; $YuanStr = ''; $replaceStr = ''; $i = ''; $Block = ''; $BlockFile = ''; $action = ''; for ($i = 1; $i <= 9; $i++) { $startStr = '[$读出内容 '; $endStr = '$]'; if (inStr($valueStr, $startStr) > 0 && inStr($valueStr, $endStr) > 0) { $action = StrCut($valueStr, $startStr, $endStr, 2); $Block = RParam($action, 'Block'); $BlockFile = RParam($action, 'File'); if (inStr(vbCrlf() . $GLOBALS['ReadBlockList'] . vbCrlf(), vbCrlf() . $Block . vbCrlf()) == false) { $GLOBALS['ReadBlockList'] = $GLOBALS['ReadBlockList'] . $Block . vbCrlf(); } //块文件存在 则读出内容 if ($BlockFile != '') { $content = getFText($BlockFile); } $YuanStr = $startStr . $action . $endStr; $replaceStr = ''; $startStr = '<R#读出内容' . $Block . ' start#>'; $endStr = '<R#读出内容' . $Block . ' end#>'; if (inStr($content, $startStr) > 0 && inStr($content, $endStr) > 0) { $replaceStr = StrCut($content, $startStr, $endStr, 2); } else { $startStr = '<!--#读出内容' . $Block; $endStr = '#-->'; if (inStr($content, $startStr) > 0 && inStr($content, $endStr) > 0) { $replaceStr = StrCut($content, $startStr, $endStr, 2); } } //Call Eerr(YuanStr,ReplaceStr) $valueStr = replace($valueStr, $YuanStr, $replaceStr); //Call Echo("ValueStr",ValueStr) } else { //没有模块要处理了 则退出 break; } } $findModuleStr = $valueStr; return @$findModuleStr; }
function optimizeAspCode($content) { $splStr = ''; $s = ''; $c = ''; $i = ''; $splStr = aspSplit($content, vbCrlf()); foreach ($splStr as $key => $s) { $s = trimVbTab($s); if ($s != '') { $c = $c . trimVbTab($s) . vbCrlf(); } } $optimizeAspCode = $c; return @$optimizeAspCode; }
function webStat($folderPath) { $dateTime = ''; $content = ''; $splStr = ''; $thisUrl = ''; $goToUrl = ''; $caiShu = ''; $c = ''; $fileName = ''; $co = ''; $ie = ''; $xp = ''; $goToUrl = serverVariables('HTTP_REFERER'); $thisUrl = 'http://' . serverVariables('HTTP_HOST') . serverVariables('SCRIPT_NAME'); $caiShu = serverVariables('QUERY_STRING'); if ($caiShu != '') { $thisUrl = $thisUrl . '?' . $caiShu; } $goToUrl = @$_REQUEST['GoToUrl']; $thisUrl = @$_REQUEST['ThisUrl']; $co = @$_GET['co']; $dateTime = now(); $content = serverVariables('HTTP_USER_AGENT'); $content = replace($content, 'MSIE', 'Internet Explorer'); $content = replace($content, 'NT 5.0', '2000'); $content = replace($content, 'NT 5.1', 'XP'); $content = replace($content, 'NT 5.2', '2003'); $splStr = aspSplit($content . ';;;;', ';'); $ie = $splStr[1]; $xp = aspTrim($splStr[2]); if (right($xp, 1) == ')') { $xp = mid($xp, 1, len($xp) - 1); } $c = '来访' . $goToUrl . vbCrlf(); $c = $c . '当前:' . $thisUrl . vbCrlf(); $c = $c . '时间:' . $dateTime . vbCrlf(); $c = $c . 'IP:' . getIP() . vbCrlf(); $c = $c . 'IE:' . getBrType('') . vbCrlf(); $c = $c . 'Cookies=' . $co . vbCrlf(); $c = $c . 'XP=' . $xp . vbCrlf(); $c = $c . 'Screen=' . @$_REQUEST['screen'] . vbCrlf(); //屏幕分辨率 $c = $c . '用户信息=' . serverVariables('HTTP_USER_AGENT') . vbCrlf(); //用户信息 $c = $c . '-------------------------------------------------' . vbCrlf(); //c=c & "CaiShu=" & CaiShu & vbcrlf $fileName = $folderPath . Format_Time(now(), 2) . '.txt'; CreateAddFile($fileName, $c); $c = $c . vbCrlf() . $fileName; $c = replace($c, vbCrlf(), '\\n'); $c = replace($c, '"', '\\"'); //Response.Write("eval(""var MyWebStat=\""" & C & "\"""")") $splxx = ''; $nIP = ''; $nPV = ''; $ipList = ''; $s = ''; $ip = ''; //判断是否显示回显记录 if (@$_REQUEST['stype'] == 'display') { $content = getFText($fileName); $splxx = aspSplit($content, vbCrlf() . '-------------------------------------------------' . vbCrlf()); $nIP = 0; $nPV = 0; $ipList = ''; foreach ($splxx as $key => $s) { if (inStr($s, '当前:') > 0) { $s = vbCrlf() . $s . vbCrlf(); $ip = ADSql(getStrCut($s, vbCrlf() . 'IP:', vbCrlf(), 0)); $nPV = $nPV + 1; if (inStr(vbCrlf() . $ipList . vbCrlf(), vbCrlf() . $ip . vbCrlf()) == false) { $ipList = $ipList . $ip . vbCrlf(); $nIP = $nIP + 1; } } } Rw('document.write(\'网长统计 | 今日IP[' . $nIP . '] | 今日PV[' . $nPV . '] \')'); } $webStat = $c; return @$webStat; }
function setFileName($fileName) { $i = ''; $s = ''; $tStr = ''; $splstr = ''; $splReplace = ''; $splstr = array('\\', '/', ':', '*', '?', '"', '<', '>', '|', '.', ','); //换这种方法是为了与PHP版通用 20160511 $splReplace = array('撇', '揦', ':', '星', '?', '“', '左', '右', '横', '。', ','); for ($i = 0; $i <= uBound($splstr); $i++) { $s = $splstr[$i]; $tStr = $splReplace[$i]; $fileName = replace($fileName, $s, $tStr); } $fileName = replace($fileName, ' ', ' '); $fileName = replace($fileName, '"', '双'); $fileName = replace($fileName, vbCrlf(), ''); $setFileName = $fileName; return @$setFileName; }
function authorInfo2() { $c = ''; $c = ' \'\'\'' . vbCrlf(); $c = $c . ' (0 0)' . vbCrlf(); $c = $c . ' +-----oOO----(_)------------+' . vbCrlf(); $c = $c . ' | |' . vbCrlf(); $c = $c . ' | 让我们一起来体验 |' . vbCrlf(); $c = $c . ' | QQ:313801120 |' . vbCrlf(); $c = $c . ' | sharembweb.com |' . vbCrlf(); $c = $c . ' | |' . vbCrlf(); $c = $c . ' +------------------oOO------+' . vbCrlf(); $c = $c . ' |__|__|' . vbCrlf(); $c = $c . ' || ||' . vbCrlf(); $c = $c . ' ooO Ooo' . vbCrlf(); $authorInfo2 = $c; return @$authorInfo2; }
function saveSiteMap() { $isWebRunHtml = ''; //是否为html方式显示网站 $changefreg = ''; //更新频率 $priority = ''; //优先级 $s = ''; $c = ''; $url = ''; handlePower('修改生成SiteMap'); //管理权限处理 $changefreg = @$_REQUEST['changefreg']; $priority = @$_REQUEST['priority']; loadWebConfig(); //加载配置 //call eerr("cfg_flags",cfg_flags) if (inStr($GLOBALS['cfg_flags'], '|htmlrun|') > 0) { $isWebRunHtml = true; } else { $isWebRunHtml = false; } $c = $c . '<?xml version="1.0" encoding="UTF-8"?>' . vbCrlf(); $c = $c . vbTab() . '<urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">' . vbCrlf(); //栏目 $rsxObj = $GLOBALS['conn']->query('select * from ' . $GLOBALS['db_PREFIX'] . 'webcolumn where isonhtml<>0 order by sortrank asc'); while ($rsx = $GLOBALS['conn']->fetch_array($rsxObj)) { if ($rsx['nofollow'] == false) { $c = $c . copyStr(vbTab(), 2) . '<url>' . vbCrlf(); if ($isWebRunHtml == true) { $url = getRsUrl($rsx['filename'], $rsx['customaurl'], '/nav' . $rsx['id']); $url = handleAction($url); } else { $url = escape('?act=nav&columnName=' . $rsx['columnname']); } $url = urlAddHttpUrl($GLOBALS['cfg_webSiteUrl'], $url); //call echo(cfg_webSiteUrl,url) $c = $c . copyStr(vbTab(), 3) . '<loc>' . $url . '</loc>' . vbCrlf(); $c = $c . copyStr(vbTab(), 3) . '<lastmod>' . Format_Time($rsx['updatetime'], 2) . '</lastmod>' . vbCrlf(); $c = $c . copyStr(vbTab(), 3) . '<changefreq>' . $changefreg . '</changefreq>' . vbCrlf(); $c = $c . copyStr(vbTab(), 3) . '<priority>' . $priority . '</priority>' . vbCrlf(); $c = $c . copyStr(vbTab(), 2) . '</url>' . vbCrlf(); aspEcho('栏目', '<a href="' . $url . '" target=\'_blank\'>' . $url . '</a>'); } } //文章 $rsxObj = $GLOBALS['conn']->query('select * from ' . $GLOBALS['db_PREFIX'] . 'articledetail where isonhtml<>0 order by sortrank asc'); while ($rsx = $GLOBALS['conn']->fetch_array($rsxObj)) { if ($rsx['nofollow'] == false) { $c = $c . copyStr(vbTab(), 2) . '<url>' . vbCrlf(); if ($isWebRunHtml == true) { $url = getRsUrl($rsx['filename'], $rsx['customaurl'], '/detail/detail' . $rsx['id']); $url = handleAction($url); } else { $url = '?act=detail&id=' . $rsx['id']; } $url = urlAddHttpUrl($GLOBALS['cfg_webSiteUrl'], $url); //call echo(cfg_webSiteUrl,url) $c = $c . copyStr(vbTab(), 3) . '<loc>' . $url . '</loc>' . vbCrlf(); $c = $c . copyStr(vbTab(), 3) . '<lastmod>' . Format_Time($rsx['updatetime'], 2) . '</lastmod>' . vbCrlf(); $c = $c . copyStr(vbTab(), 3) . '<changefreq>' . $changefreg . '</changefreq>' . vbCrlf(); $c = $c . copyStr(vbTab(), 3) . '<priority>' . $priority . '</priority>' . vbCrlf(); $c = $c . copyStr(vbTab(), 2) . '</url>' . vbCrlf(); aspEcho('文章', '<a href="' . $url . '">' . $url . '</a>'); } } //单页 $rsxObj = $GLOBALS['conn']->query('select * from ' . $GLOBALS['db_PREFIX'] . 'onepage where isonhtml<>0 order by sortrank asc'); while ($rsx = $GLOBALS['conn']->fetch_array($rsxObj)) { if ($rsx['nofollow'] == false) { $c = $c . copyStr(vbTab(), 2) . '<url>' . vbCrlf(); if ($isWebRunHtml == true) { $url = getRsUrl($rsx['filename'], $rsx['customaurl'], '/page/detail' . $rsx['id']); $url = handleAction($url); } else { $url = '?act=onepage&id=' . $rsx['id']; } $url = urlAddHttpUrl($GLOBALS['cfg_webSiteUrl'], $url); //call echo(cfg_webSiteUrl,url) $c = $c . copyStr(vbTab(), 3) . '<loc>' . $url . '</loc>' . vbCrlf(); $c = $c . copyStr(vbTab(), 3) . '<lastmod>' . Format_Time($rsx['updatetime'], 2) . '</lastmod>' . vbCrlf(); $c = $c . copyStr(vbTab(), 3) . '<changefreq>' . $changefreg . '</changefreq>' . vbCrlf(); $c = $c . copyStr(vbTab(), 3) . '<priority>' . $priority . '</priority>' . vbCrlf(); $c = $c . copyStr(vbTab(), 2) . '</url>' . vbCrlf(); aspEcho('单页', '<a href="' . $url . '">' . $url . '</a>'); } } $c = $c . vbTab() . '</urlset>' . vbCrlf(); loadWebConfig(); createFile('sitemap.xml', $c); aspEcho('生成sitemap.xml文件成功', '<a href=\'/sitemap.xml\' target=\'_blank\'>点击预览sitemap.xml</a>'); //判断是否生成sitemap.html if (@$_REQUEST['issitemaphtml'] == '1') { $c = ''; //第二种 //栏目 $rsxObj = $GLOBALS['conn']->query('select * from ' . $GLOBALS['db_PREFIX'] . 'webcolumn order by sortrank asc'); while ($rsx = $GLOBALS['conn']->fetch_array($rsxObj)) { if ($rsx['nofollow'] == false) { if ($isWebRunHtml == true) { $url = getRsUrl($rsx['filename'], $rsx['customaurl'], '/nav' . $rsx['id']); $url = handleAction($url); } else { $url = escape('?act=nav&columnName=' . $rsx['columnname']); } $url = urlAddHttpUrl($GLOBALS['cfg_webSiteUrl'], $url); //判断是否生成html if ($rsx['isonhtml'] == true) { $s = '<a href="' . $url . '">' . $rsx['columnname'] . '</a>'; } else { $s = '<span>' . $rsx['columnname'] . '</span>'; } $c = $c . '<li style="width:20%;">' . $s . vbCrlf() . '<ul>' . vbCrlf(); //文章 $rssObj = $GLOBALS['conn']->query('select * from ' . $GLOBALS['db_PREFIX'] . 'articledetail where parentId=' . $rsx['id'] . ' order by sortrank asc'); while ($rss = $GLOBALS['conn']->fetch_array($rssObj)) { if ($rss['nofollow'] == false) { if ($isWebRunHtml == true) { $url = getRsUrl($rss['filename'], $rss['customaurl'], '/detail/detail' . $rss['id']); $url = handleAction($url); } else { $url = '?act=detail&id=' . $rss['id']; } $url = urlAddHttpUrl($GLOBALS['cfg_webSiteUrl'], $url); //判断是否生成html if ($rss['isonhtml'] == true) { $s = '<a href="' . $url . '">' . $rss['title'] . '</a>'; } else { $s = '<span>' . $rss['title'] . '</span>'; } $c = $c . '<li style="width:20%;">' . $s . '</li>' . vbCrlf(); } } $c = $c . '</ul>' . vbCrlf() . '</li>' . vbCrlf(); } } //单面 $c = $c . '<li style="width:20%;"><a href="javascript:;">单面列表</a>' . vbCrlf() . '<ul>' . vbCrlf(); $rsxObj = $GLOBALS['conn']->query('select * from ' . $GLOBALS['db_PREFIX'] . 'onepage order by sortrank asc'); while ($rsx = $GLOBALS['conn']->fetch_array($rsxObj)) { if ($rsx['nofollow'] == false) { $c = $c . copyStr(vbTab(), 2) . '<url>' . vbCrlf(); if ($isWebRunHtml == true) { $url = getRsUrl($rsx['filename'], $rsx['customaurl'], '/page/detail' . $rsx['id']); $url = handleAction($url); } else { $url = '?act=onepage&id=' . $rsx['id']; } //判断是否生成html if ($rsx['isonhtml'] == true) { $s = '<a href="' . $url . '">' . $rsx['title'] . '</a>'; } else { $s = '<span>' . $rsx['title'] . '</span>'; } $c = $c . '<li style="width:20%;">' . $s . '</li>' . vbCrlf(); // target=""_blank"" 去掉 } } $c = $c . '</ul>' . vbCrlf() . '</li>' . vbCrlf(); $templateContent = ''; $templateContent = getFText($GLOBALS['adminDir'] . '/template_SiteMap.html'); $templateContent = replace($templateContent, '{$content$}', $c); $templateContent = replace($templateContent, '{$Web_Title$}', $GLOBALS['cfg_webTitle']); createFile('sitemap.html', $templateContent); aspEcho('生成sitemap.html文件成功', '<a href=\'/sitemap.html\' target=\'_blank\'>点击预览sitemap.html</a>'); } writeSystemLog('', '保存sitemap.xml'); //系统日志 }
function removeBlankLines($content) { $s = ''; $c = ''; $splStr = ''; $splStr = aspSplit($content, vbCrlf()); foreach ($splStr as $key => $s) { if (replace(replace($s, vbTab(), ''), ' ', '') != '') { if ($c != '') { $c = $c . vbCrlf(); } $c = $c . $s; } } $removeBlankLines = $c; return @$removeBlankLines; }
function handleHtmlStyle($content) { $serchS = ''; $replaceS = ''; $nLength = ''; $serchS = $content; $nLength = inStr(lCase($serchS), '</style>') + 7; $serchS = mid($serchS, 1, $nLength); $nLength = inStrRev(lCase($serchS), '<style'); if ($nLength > 0) { $serchS = mid($serchS, $nLength, -1); } $replaceS = $serchS; $replaceS = cssCompression($replaceS, 0) . vbCrlf(); //格式化CSS $replaceS = removeBlankLines($replaceS); $content = replace($content, $serchS, $replaceS); $handleHtmlStyle = $content; return @$handleHtmlStyle; }
function handleDifferenceWebSiteList($httpurl, $urllist) { $website = ''; $splstr = ''; $url = ''; $c = ''; $urlWebsite = ''; $websiteList = ''; $website = lCase(getWebSite($httpurl)); $splstr = aspSplit($urllist, vbCrlf()); foreach ($splstr as $key => $url) { $urlWebsite = lCase(getWebSite($url)); if ($urlWebsite != '' && $website != $urlWebsite && inStr(vbCrlf() . $websiteList . vbCrlf(), vbCrlf() . $urlWebsite . vbCrlf()) == false) { $websiteList = $websiteList . $urlWebsite . vbCrlf(); } } $handleDifferenceWebSiteList = $websiteList; return @$handleDifferenceWebSiteList; }
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; }