📄 index.asp
字号:
If Not RSC.Eof Then
SQL=RSC.GetRows(-1)
End If
RSC.Close:Set RSC=Nothing
on error resume next
With Response
.Write "<script language=""javascript"">"
.Write " var ChannelID=null;" & vbcrlf
.Write " var BasicType=null;" & vbcrlf
For I=0 To Ubound(SQL,2)
.Write " var SearchPower" & SQL(0,I) & "='" & KS.ReturnPowerResult(SQL(0,I), "M" & SQL(0,I) &"10008") & "'; //搜索权限" & vbCrLf
Next
.Write " var SearchSpecialPower='" & KS.ReturnPowerResult(0, "KMSP10004") & "'; //搜索专题权限" & vbCrLf
.Write " var SearchLinkPower='" & KS.ReturnPowerResult(0, "KMCT10001") & "'; //搜索友情链接的权限" & vbCrLf
.Write " var SearchAdminPower='" & KS.ReturnPowerResult(0, "KMUA10001") & "'; //搜索管理员权限" & vbCrLf
.Write " var SearchSysLabelPower='" & KS.ReturnPowerResult(0, "KMTL10001") & "'; //搜索系统函数标签权限" & vbCrLf
.Write " var SearchDIYFunctionLabelPower='" & KS.ReturnPowerResult(0, "KMTL10002") & "'; //搜索自定义函数标签权限" & vbCrLf
.Write " var SearchFreeLabelPower='" & KS.ReturnPowerResult(0, "KMTL10003") & "'; //搜索自定义静态标签权限" & vbCrLf
.Write " var SearchSysJSPower='" & KS.ReturnPowerResult(0, "KMTL10004") & "'; //搜索系统JS权限" & vbCrLf
.Write " var SearchFreeJSPower='" & KS.ReturnPowerResult(0, "KMTL10005") & "'; //搜索自由JS权限" & vbCrLf
.Write "</script>"
.Write "<script language=""JavaScript"" src=""Include/SetFocus.js""></script>"
.Write "<script language='JavaScript' src='Include/Common.js'></script>"
.Write "<script language='JavaScript' src='../KS_Inc/Prototype.js'></script>"
%>
<html>
<head><title>网站后台管理</title>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="images/Admin_left.css" type=text/css rel=stylesheet>
<meta content="MSHTML 6.00.3790.1830" name=GENERATOR>
</head>
<body leftmargin="0" topmargin="0">
<script language="JavaScript">
//Search For FlyskyCMS系统
//Version FlyskyCMS系统
//Powered By flyskying.com
//var normal='slategray'; //color;
var normal='#4283D8'; //color;
var zindex=10000; //z-index;
var openTF=false;
var width=160,height=window.document.body.offsetHeight-15;
var left=0,top=0,title='搜索小助理';
var SearchBodyStr=''
+'<table width="100%" border="0" cellspacing="0" cellpadding="0">'
+'<form name="searchform" target="MainFrame" method="post">'
+'<tr> '
+'<td height="25"><strong>按下面任意或全部条件进行搜索</strong></td>'
+' </tr>'
+'<tr><td height="25">全部或部分关键字</td></tr>'
+'<tr><td height="25"><input style="width:95%" type="text" name="KeyWord"></td></tr>'
+' <tr><td height="25">搜索范围</td></tr>'
+' <tr><td height="25"> <select style="width:95%" name="SearchArea" onchange="SetSearchTypeOption(this.options[this.selectedIndex].text)">'
+' </select></td></tr>'
+'<tr><td height="25">搜索类型</td></tr>'
+'<tr><td height="25"><select style="width:95%" name="SearchType">'
+'</select></td></tr>'
+' <tr id="DateArea" onclick="setstatus(this)" style="cursor:hand"><td height="25"><strong>什么时候修改的?</strong></td></tr>'
+' <tr style="display:none"><td height="25">开始日期<input type="text" readonly style="width:80%" name="StartDate" id="StartDate">'
+' <span style="cursor:hand" onClick=OpenThenSetValue("Include/DateDialog.asp",160,170,window,document.all.StartDate);document.all.StartDate.focus();><img src="Images/date.gif" border="0" align="absmiddle" title="选择日期"></span></td></tr>'
+' <tr style="display:none"><td height="25">结束日期<input type="text" readonly style="width:80%" name="EndDate" id="EndDate">'
+' <span style="cursor:hand" onClick=OpenThenSetValue("Include/DateDialog.asp",160,170,window,document.all.EndDate);document.all.EndDate.focus();><img src="Images/date.gif" border="0" align="absmiddle" title="选择日期"></span></td></tr>'
+' <tr><td height="40" align="center"><input type="submit" name="SearchButton" value="开始搜索" onclick="return(SearchFormSubmit())"></td></tr>'
+'</form>'
+' <tr><td><strong>使用说明:</strong></td></tr>'
+' <tr><td> ① 您可以利用本搜索助理来搜索文章、图片、下载Flash、专题、标签、JS等,但不能搜索（目录）诸如频道名称、栏目名称，标签目录等</td></tr>'
+' <tr><td> ② 按 <font color=red>Ctrl+F</font> 可以快速进行打开或关闭搜索小助理</td></tr>'
+'</table>'
var str=""
+"<div id='SearchBox' style='display:none;z-index:" + zindex + ";width:" + width + ";height:" + height + ";left:" + left + ";top:" + top + ";background-color:" + normal + ";color:black;font-size:12px;font-family:Verdana, Arial, Helvetica, sans-serif;position:absolute;cursor:default;border:10px solid " + normal + ";'>"
+ "<div style='background-color:" + normal + ";width:" + (width) + ";height:16;color:white;'>"
+ "<span style='width:" + (width-2*12-4) + ";padding-left:3px;font-weight:bold;'>" + title + "</span>"
+ " <span id='Close' style='padding-right:0px;width:20;border-width:0px;color:white;font-family:webdings;' onclick='CloseSearchBox(this)'>r</span>"
+ "</div>"
+ "<div style='width:170;overflow:auto;height:" + (height-20-4) + ";background-color:white;line-height:14px;word-break:break-all;padding:6px;'>" + SearchBodyStr + "</div>"
+ "</div>"
+ "<div style='display:none;width:" + width + ";height:" + height + ";top:" + top + ";left:" + left + ";z-index:" + (zindex-1) + ";position:absolute;background-color:black;filter:alpha(opacity=40);'></div>";
//关闭;
function CloseSearchBox(el)
{ if (el.id=='Close'){ var twin = el.parentNode.parentNode;
var shad = twin.nextSibling;
twin.style.display = "none";
shad.style.display = "none";
openTF=false;
SearchBodyStr=null;
str=null;
}
}
function initial()
{if (!openTF){
document.body.insertAdjacentHTML("beforeEnd",str);
openTF=true;}
}
//初始化;
function initializeSearch(SearchArea,sChannelID,sBasicType)
{
initial();
initialSearchAreaOption(SearchArea);
ChannelID=sChannelID;
BasicType=sBasicType;
if ($('SearchBox').style.display=='none')
{
$('SearchBox').style.display='';
if (document.forms[0].disabled==false) document.forms[0].focus();
}
else
$('SearchBox').style.display='none';
}
<%
Dim ModelList,ModelEList,ChannelIDList
For I=0 To Ubound(SQL,2)
If SQL(0,I)<>6 Then
ModelList=ModelList & "'" & SQL(1,I) & "',"
ModelElist=ModelElist & "'" & SQL(4,I) & "',"
ChannelIDList=ChannelIDList & "'" & SQL(0,I) &"',"
End If
Next
%>
var sTextArr,ChannelIDArr;
function initialSearchAreaOption(SearchArea)
{ var EF=false;
sTextArr=new Array(<%=ModelList%>'专题中心','友情链接站点','系统函数标签','自定义函数标签','自定义静态标签','系统 JS','自由 JS','管理员')
ChannelIDArr=new Array(<%=ChannelIDList%>'专题中心','友情链接站点','系统函数标签','自定义函数标签','自定义静态标签','系统 JS','自由 JS','管理员')
var valueArr=new Array(<%=ModelElist%>'Special','Link','SysLabel','DIYFunctionLabel','FreeLabel','SysJS','FreeJS','Manager')
for(var i=0;i<valueArr.length;++i)
if (SearchArea==sTextArr[i])
{
EF=true;
break;
}
if (!EF) return false;
$('KeyWord').value='';
$('SearchArea').length=0;
for (var i=0;i<sTextArr.length;++i)
{
$('SearchArea').options[$('SearchArea').length] = new Option(sTextArr[i],valueArr[i]);
if (SearchArea==sTextArr[i])
$('SearchArea').options(i).selected=true;
}
//进行权限检查,对没有权限的搜索模块,进行屏蔽
var n=0;
for (var i=1000;i<sTextArr.length;++i)
{ var removeTF=false;
if (valueArr[i]!=SearchArea)
{
<%For I=0 To Ubound(SQL,2)%>
if (SearchPower<%=SQL(0,i)%>=='False')
removeTF=true;
<%NEXT%>
if (valueArr[i]=='Special' && SearchSpecialPower=='False')
removeTF=true;
if (valueArr[i]=='Link' && SearchLinkPower=='False')
removeTF=true;
if (valueArr[i]=='SysLabel' && SearchSysLabelPower=='False')
removeTF=true;
if (valueArr[i]=='DIYFunctionLabel' && SearchDIYFunctionLabelPower=='False')
removeTF=true;
if (valueArr[i]=='FreeLabel' && SearchFreeLabelPower=='False')
removeTF=true;
if (valueArr[i]=='SysJS' && SearchSysJSPower=='False')
removeTF=true;
if (valueArr[i]=='FreeJS' && SearchFreeJSPower=='False')
removeTF=true;
if (valueArr[i]=='Manager' && SearchAdminPower=='False')
removeTF=true;
}
if (removeTF==true)
{document.all.SearchArea.options.remove(i-n);
n++;
}
}
SetSearchTypeOption(SearchArea);
}
function SetSearchTypeOption(AreaType)
{
//改变选择范围时，取得正确的模型ID
for(var i=0;i<sTextArr.length;++i)
if (AreaType==sTextArr[i])
{
ChannelID=ChannelIDArr[i];
break;
}
var TextArr=new Array();
$('SearchType').options.length=0
switch (AreaType)
{
<%For I=0 To Ubound(SQL,2)%>
case '<%= SQL(1,I)%>':
if (SearchPower<%= SQL(0,I)%>=='False') //搜索权限检查
{
DisabledSearchFluctuation(true);
return;
}
else
{
DisabledSearchFluctuation(false);
$('DateArea').style.display="";
TextArr=new Array('<%=SQL(3,I)%>标题','<%=SQL(3,I)%>内容','<%=SQL(3,I)%>关键字','<%=SQL(3,I)%>作者','<%=SQL(3,I)%>录入')
}
break;
<%Next%>
case '专题中心':
if (SearchSpecialPower=='False') //搜索专题权限检查
{
DisabledSearchFluctuation(true);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -