📄 editor_tree.asp
字号:
<%@language=vbscript codepage=936 %>
<%
Option Explicit
'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<!-- #include File="../conn.asp" -->
<%
Dim ChannelID,sql,rs,ModuleType
Dim InsertTemplate,InsertTemplateType
ChannelID=PE_CLng(trim(request("ChannelID")))
InsertTemplate=PE_CLng(Request("insertTemplate"))
InsertTemplateType=PE_CLng(Request("InsertTemplateType"))
Public Function PE_CLng(ByVal str1)
If IsNumeric(str1) Then
PE_CLng = CLng(str1)
Else
PE_CLng = 0
End If
End Function
Public Function PE_CStr(ByVal str1, ByVal str2)
If IsNull(str1) Then
PE_CStr = str2
Else
PE_CStr = CStr(str1)
End If
End Function
Private Sub BacktrackEditor()
If InsertTemplate=1 Then
Response.Write "if(label!=null){" & vbCrLf
Response.Write " parent.insertTemplateLabel(label," & InsertTemplateType & ");" & vbCrLf
Response.Write "}" & vbCrLf
Else
Response.Write "window.returnValue = label" & vbCrLf
Response.Write "window.close();" & vbCrLf
End if
End Sub
sql = "select ModuleType from PE_Channel where ChannelID=" & PE_CLng(ChannelID)
Set rs = Conn.Execute(sql)
If rs.bof And rs.EOF Then
else
ModuleType=rs("ModuleType")
End If
rs.Close
Set rs = Nothing
'**************************************************
'函数名：FoundInArr
'作 用：检测数组中是否有指定的数值
'参 数：strArr ----- 调入的数组
' strItem ----- 检测的字符
' strSplit ----- 分割字符
'返回值：True ----有
' False ----没有
'**************************************************
Public Function FoundInArr(strArr, strItem, strSplit)
Dim arrTemp, arrTemp2, i, j
FoundInArr = False
If IsNull(strArr) Or IsNull(strItem) Or Trim(strArr) = "" Or Trim(strItem) = "" Then
Exit Function
End If
If IsNull(strSplit) Or strSplit = "" Then
strSplit = ","
End If
If InStr(Trim(strArr), strSplit) > 0 Then
If InStr(Trim(strItem), strSplit) > 0 Then
arrTemp = Split(strArr, strSplit)
arrTemp2 = Split(strItem, strSplit)
For i = 0 To UBound(arrTemp)
For j = 0 To UBound(arrTemp2)
If LCase(Trim(arrTemp2(j))) <> "" And LCase(Trim(arrTemp(i))) <> "" And LCase(Trim(arrTemp2(j))) = LCase(Trim(arrTemp(i))) Then
FoundInArr = True
Exit Function
End If
Next
Next
Else
arrTemp = Split(strArr, strSplit)
For i = 0 To UBound(arrTemp)
If LCase(Trim(arrTemp(i))) = LCase(Trim(strItem)) Then
FoundInArr = True
Exit Function
End If
Next
End If
Else
If LCase(Trim(strArr)) = LCase(Trim(strItem)) Then
FoundInArr = True
End If
End If
End Function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Keywords" content="动易网络科技有限公司，动易网站管理系统，动易，动力文章系统，文章系统，动力，整站系统，系统，网站制作，网站，设计，网页设计制作，软件，帮助，系统帮助，动易帮助，支持，安装帮助">
<title>网站管理系统--标签导航</title>
</head>
<body leftmargin="0" rightmargin="0"topmargin="0">
<!-- ******** 菜单效果开始 ******** -->
<table width="100%" border="0" cellspacing="0" cellpadding="4" align="center">
<tr>
<td align="center" bgcolor="#0066FF"><b><font color="#ffffff">网站管理系统--标签导航</font></b></td>
</tr>
</table>
<table width="90%" border="0" cellspacing="0" cellpadding="2" align="center">
<tr>
<td height="50" valign="top" background="images/left_tdbg_01.gif">
<style rel=stylesheet type=text/css>
td {
FONT-SIZE: 9pt; COLOR: #000000; FONT-FAMILY: 宋体,Dotum,DotumChe,Arial;line-height: 150%;
}
INPUT {
BACKGROUND-COLOR: #ffffff;
BORDER-BOTTOM: #666666 1px solid;
BORDER-LEFT: #666666 1px solid;
BORDER-RIGHT: #666666 1px solid;
BORDER-TOP: #666666 1px solid;
COLOR: #666666;
HEIGHT: 18px;
border-color: #666666 #666666 #666666 #666666; font-size: 9pt
}
.favMenu {
BACKGROUND: #ffffff; COLOR: windowtext; CURSOR: hand;line-height: 150%;
}
.favMenu DIV {
WIDTH: 100%;height: 5px;
}
.favMenu A {
COLOR: windowtext; TEXT-DECORATION: none
}
.favMenu A:hover {
COLOR: windowtext; TEXT-DECORATION: underline
}
.topFolder {
}
.topItem {
}
.subFolder {
PADDING: 0px;BACKGROUND: #ffffff;
}
.subItem {
PADDING: 0px;BACKGROUND: #ffffff;
}
.sub {
BACKGROUND: #ffffff;DISPLAY: none; PADDING: 0px;
}
.sub .sub {
BORDER: 0px;BACKGROUND: #ffffff;
}
.icon {
HEIGHT: 18px; MARGIN-RIGHT: 5px; VERTICAL-ALIGN: absmiddle; WIDTH: 18px
}
.outer {
BACKGROUND: #ffffff;PADDING: 0px;
}
.inner {
BACKGROUND: #ffffff;PADDING: 0px;
}
.scrollButton {
BACKGROUND: #ffffff; BORDER: #f6f6f6 1px solid; PADDING: 0px;
}
.flat {
BACKGROUND: #ffffff; BORDER: #f6f6f6 1px solid; PADDING: 0px;
}
</style>
<SCRIPT type=text/javascript>
var selectedItem = null;
var targetWin;
document.onclick = handleClick;
document.onmouseover = handleOver;
document.onmouseout = handleOut;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -