📄 cl_function_public.asp
字号:
End Select
sTemp=sTemp & " <input type=""text"" name=""keyword"" size=""18"" value=""关键字"" maxlength=""50"" onFocus=""this.select();"" /> "
sTemp=sTemp & "<input type=""submit"" name=""Submit"" value=""搜索"" />"
sTemp=sTemp & "</form>"'</div>"
ShowSearchForm=sTemp
End Function
Function ShowSearchField(Byval sModuleID,Byval sItemName)
Dim sTemp
sTemp="<select name=""Field"" size=""1"">"
select case Clng(sModuleID)
case 1
sTemp=sTemp & "<option value=""ID"">"&sItemName&"ID</option>"
sTemp=sTemp & "<option value=""Title"" selected>"&sItemName&"标题</option>"
sTemp=sTemp & "<option value=""Keyword"">关 键 字</option>"
sTemp=sTemp & "<option value=""Intro"">"&sItemName&"简介</option>"
sTemp=sTemp & "<option value=""CopyFrom"">"&sItemName&"来源</option>"
sTemp=sTemp & "<option value=""Author"">"&sItemName&"作者</option>"
sTemp=sTemp & "<option value=""Editor"">添加用户</option>"
sTemp=sTemp & "<option value=""Censor"">审核用户</option>"
sTemp=sTemp & "<option value=""Point"">"&sItemName&Cl.Web_Setting(28)&"</option>"
case 2
sTemp=sTemp & "<option value=""ID"">"&sItemName&"ID</option>"
sTemp=sTemp & "<option value=""Title"" selected>"&sItemName&"名称</option>"
sTemp=sTemp & "<option value=""Keyword"">关 键 字</option>"
sTemp=sTemp & "<option value=""Intro"">"&sItemName&"简介</option>"
sTemp=sTemp & "<option value=""Author"">"&sItemName&"作者</option>"
sTemp=sTemp & "<option value=""Editor"">添加用户</option>"
sTemp=sTemp & "<option value=""Censor"">审核用户</option>"
sTemp=sTemp & "<option value=""Point"">"&sItemName&Cl.Web_Setting(28)&"</option>"
case 3
sTemp=sTemp & "<option value=""ID"">"&sItemName&"ID</option>"
sTemp=sTemp & "<option value=""Title"" selected>"&sItemName&"名称</option>"
sTemp=sTemp & "<option value=""Keyword"">关 键 字</option>"
sTemp=sTemp & "<option value=""Intro"">"&sItemName&"简介</option>"
sTemp=sTemp & "<option value=""Author"">"&sItemName&"作者</option>"
sTemp=sTemp & "<option value=""Editor"">添加用户</option>"
sTemp=sTemp & "<option value=""Censor"">审核用户</option>"
sTemp=sTemp & "<option value=""Point"">"&sItemName&Cl.Web_Setting(28)&"</option>"
case 4
sTemp=sTemp & "<option value=""ID"">"&sItemName&"ID</option>"
sTemp=sTemp & "<option value=""Title"" selected>"&sItemName&"名称</option>"
sTemp=sTemp & "<option value=""Keyword"">关 键 字</option>"
sTemp=sTemp & "<option value=""Intro"">"&sItemName&"简介</option>"
sTemp=sTemp & "<option value=""Director"">"&sItemName&"导演</option>"
sTemp=sTemp & "<option value=""ActName"">"&sItemName&"主演</option>"
sTemp=sTemp & "<option value=""Editor"">添加用户</option>"
sTemp=sTemp & "<option value=""Censor"">审核用户</option>"
sTemp=sTemp & "<option value=""Point"">"&sItemName&Cl.Web_Setting(28)&"</option>"
case 5
sTemp=sTemp & "<option value=""ID"">"&sItemName&"ID</option>"
sTemp=sTemp & "<option value=""Title"" selected>"&sItemName&"名称</option>"
sTemp=sTemp & "<option value=""ProductSn"">"&sItemName&"编号</option>"
sTemp=sTemp & "<option value=""Keyword"">关 键 字</option>"
sTemp=sTemp & "<option value=""Intro"">"&sItemName&"简介</option>"
sTemp=sTemp & "<option value=""Producer"">生 产 商</option>"
sTemp=sTemp & "<option value=""Trademark"">品牌商标</option>"
sTemp=sTemp & "<option value=""ProductModel"">"&sItemName&"型号</option>"
sTemp=sTemp & "<option value=""Editor"">添加用户</option>"
sTemp=sTemp & "<option value=""Censor"">审核用户</option>"
sTemp=sTemp & "<option value=""MarketPrice"">"&sItemName&"价格</option>"
sTemp=sTemp & "<option value=""Point"">"&sItemName&Cl.Web_Setting(28)&"</option>"
case 6
sTemp=sTemp & "<option value=""ID"">"&sItemName&"ID</option>"
sTemp=sTemp & "<option value=""Title"" selected>"&sItemName&"标题</option>"
sTemp=sTemp & "<option value=""Keyword"">关 键 字</option>"
sTemp=sTemp & "<option value=""Intro"">"&sItemName&"简介</option>"
sTemp=sTemp & "<option value=""CopyFrom"">"&sItemName&"来源</option>"
sTemp=sTemp & "<option value=""Author"">"&sItemName&"作者</option>"
sTemp=sTemp & "<option value=""Editor"">添加用户</option>"
sTemp=sTemp & "<option value=""Censor"">审核用户</option>"
sTemp=sTemp & "<option value=""Point"">"&sItemName&Cl.Web_Setting(28)&"</option>"
end select
ShowSearchField=sTemp & "</select>"
sTemp=Empty
End Function
Function ShowRootClass(sChannelID,sRootID)
dim sqlRoot,rsRoot,sTemp,i
sqlRoot="select ClassID,ClassName,RootID,Child From Cl_Class where ChannelID="&Clng(sChannelID)&" and ParentID=0 and IsOuter=0 order by RootID"
Set rsRoot = Cl.Execute(sqlRoot)
if rsRoot.bof and rsRoot.eof then
sTemp="还没有任何栏目，请首先添加栏目。"
else
sqlRoot=rsRoot.GetRows(-1)
For i=0 To Ubound(sqlRoot,2)
if sqlRoot(2,i)=sRootID then
sTemp = sTemp & "<a href=""" & FileName & "&ClassID=" & sqlRoot(0,i) & """><font color=""red""><b>" & sqlRoot(1,i) & "</b></font></a>"
else
sTemp = sTemp & "<a href=""" & FileName & "&ClassID=" & sqlRoot(0,i) & """>" & sqlRoot(1,i) & "</a>"
end if
if (i+1) mod 8=0 then
sTemp=sTemp&"<br />"
else
sTemp=sTemp&" | "
end if
Next
end if
ShowRootClass=sTemp
sqlRoot=Empty : sTemp=Empty
rsRoot.Close : Set rsRoot=Nothing
End Function
Function ShowClass_Option(Byval sChannelID,Byval CurrentID,Byval sDepth,Byval ShowType)
dim rsClass,sqlClass,sTemp,tmpDepth,i,n
dim arrShowLine(10)
CurrentID = Clng(CurrentID)
ShowType = Clng(ShowType)
sChannelID = Clng(sChannelID)
sDepth = Clng(sDepth)
for i=0 to ubound(arrShowLine)
arrShowLine(i)=False
next
if ShowType=0 then
sTemp="<option value=""0"""
if CurrentID=0 then sTemp=sTemp & " selected"
sTemp=sTemp & ">无（作为一级栏目）</option>"
end if
sqlClass="Select ClassID,ClassName,Depth,NextID,IsOuter,Child From Cl_Class where ChannelID="&sChannelID&" "
if sDepth>0 then
sqlClass=sqlClass & " and Depth<"&sDepth&" order by RootID,OrderID"
else
sqlClass=sqlClass & " order by RootID,OrderID"
end if
set rsClass=Cl.Execute(sqlClass)
if rsClass.bof and rsClass.eof then
ShowClass_Option = sTemp & "<option value="""">请先添加栏目</option>"
rsClass.close : set rsClass=Nothing : Exit Function
End if
sqlClass=rsClass.GetRows(-1)
rsClass.close : set rsClass=Nothing
Dim sChecked, sTClassName, sTPurview
sTPurview=False
For i=0 to Ubound(sqlClass,2)
tmpDepth=sqlClass(2,i)
if sqlClass(3,i)>0 then
arrShowLine(tmpDepth)=True
else
arrShowLine(tmpDepth)=False
end if
sChecked = "" : sTClassName = ""
if sqlClass(0,i)=CurrentID then sChecked = " selected"
if tmpDepth>0 then
for n=1 to tmpDepth
sTClassName = sTClassName & " "
if n=tmpDepth then
if sqlClass(3,i)>0 then
sTClassName = sTClassName & "├ "
else
sTClassName = sTClassName & "└ "
end if
else
if arrShowLine(n)=True then
sTClassName = sTClassName & "│"
else
sTClassName = sTClassName & " "
end if
end if
next
else
sTPurview=Cl.TrueClassPurview_U(3,sChannelID,sqlClass(0,i))
end if
sTClassName = sTClassName & sqlClass(1,i)
Select Case ShowType
Case 0
sTemp=sTemp & "<option value=""" & sqlClass(0,i) & """ "&sChecked&">" & sTClassName
if sqlClass(4,i)=1 then sTemp=sTemp & "(外)"
sTemp=sTemp & "</option>"
Case 1
if sqlClass(4,i)=1 then
sTemp=sTemp & "<option value=""0"" "&sChecked&">" & sTClassName & "(外)"
elseif sqlClass(5,i)>0 then
sTemp=sTemp & "<option value=""0"" "&sChecked&">" & sTClassName
else
sTemp=sTemp & "<option value=""" & sqlClass(0,i) & """ "&sChecked&">" & sTClassName
end if
sTemp=sTemp & "</option>"
Case 2
if Not sTPurview then
sTPurview=Cl.TrueClassPurview_U(3,sChannelID,sqlClass(0,i))
end if
if sqlClass(4,i)=1 then
sTemp=sTemp & "<option value=""0"" "&sChecked&">" & sTClassName & "(外)"
elseif sqlClass(5,i)>0 then
sTemp=sTemp & "<option value=""0"" "&sChecked&">" & sTClassName
elseif Not sTPurview then
sTemp=sTemp & "<option value=""0"" "&sChecked&">" & sTClassName & "(*)"
else
sTemp=sTemp & "<option value=""" & sqlClass(0,i) & """ "&sChecked&">" & sTClassName
end if
sTemp=sTemp & "</option>"
Case 3
if sqlClass(4,i)=0 then
sTemp=sTemp & "<option value=""" & sqlClass(0,i) & """ "&sChecked&">" & sTClassName & "</option>"
end if
Case 4
if Not sTPurview then
sTPurview=Cl.TrueClassPurview_U(3,sChannelID,sqlClass(0,i))
end if
if sqlClass(5,i)>0 then
sTemp=sTemp & "<option value=""0"" "&sChecked&">" & sTClassName & "(*)"
elseif sTPurview then
sTemp=sTemp & "<option value=""" & sqlClass(0,i) & """ "&sChecked&">" & sTClassName
end if
sTemp=sTemp & "</option>"
Case else
sTemp=sTemp & "<option value=""" & sqlClass(0,i) & """ "&sChecked&">" & sTClassName & "</option>"
End Select
Next
ShowClass_Option=sTemp
sqlClass=Empty : sTemp=Empty
End Function
Function ShowManageClassPath(Byval sChannelID,Byval sClassName,Byval sParentPath,Byval iDepth)
dim sTemp
if iDepth<=0 then ShowManageClassPath = sClassName : Exit Function
dim sqlPath,rsPath,i
sqlPath="select ClassID,ClassName,Depth From Cl_Class where ChannelID="&Clng(sChannelID)&" and ClassID in (" & sParentPath & ") order by Depth"
set rsPath=Cl.Execute(sqlPath)
do while not rsPath.eof
for i=1 to rsPath("Depth")
sTemp= sTemp & " "
next
if rsPath("Depth")>0 then
sTemp= sTemp & "└"
end if
sTemp= sTemp & rsPath("ClassName") & "<br />"
rsPath.movenext
loop
Set rsPath=Nothing
if iDepth>0 and sClassName<>"" then
for i=1 to iDepth
sTemp= sTemp & " "
next
sTemp= sTemp & "└" & sClassName
end if
ShowManageClassPath = sTemp
sTemp=Empty
End Function
Function ShowManageChild(Byval sChannelID,Byval sClassID)
dim sqlChild,rsChild,sTemp,i
sqlChild = "select ClassID,ClassName,Child From Cl_Class where ChannelID="&Cint(sChannelID)&" and ParentID=" & sClassID & " order by OrderID"
Set rsChild = Cl.Execute(sqlChild)
If rsChild.bof and rsChild.eof then
ShowManageChild = ""
rsChild.Close : Set rsChild = Nothing : Exit Function
End If
sqlChild=rsChild.GetRows(-1)
rsChild.Close : Set rsChild = Nothing
sTemp = " >> "
For i=0 to Ubound(sqlChild,2)
sTemp = sTemp & "<a href=""" & FileName & "&ClassID=" & sqlChild(0,i) & """>" & sqlChild(1,i) & "</a>"
if sqlChild(2,i)>0 then sTemp = sTemp & "(" & sqlChild(2,i) & ")"
if (i+1) mod 8=0 then
sTemp = sTemp & "<br />"
else
sTemp = sTemp & " "
end if
Next
ShowManageChild=sTemp
sqlChild=Empty
End Function
Function ShowRootSpecial(Byval sChannelID,Byval sSpecialID)
dim sqlSpecial,rsSpecial,sTemp,i
sqlSpecial="select SpecialID,SpecialName from Cl_Special where ChannelID=-1 or ChannelID="&sChannelID&" order by OrderID"
set rsSpecial=Cl.Execute(sqlSpecial)
if rsSpecial.bof and rsSpecial.eof then
sTemp="没有任何专题"
else
sqlSpecial=rsSpecial.GetRows(-1)
For i=0 to Ubound(sqlSpecial,2)
if sqlSpecial(0,i)=sSpecialID then
sTemp=sTemp&"<a href=""" & FileName & "&SpecialID=" & sqlSpecial(0,i) & """><font color=""red""><b>" & sqlSpecial(1,i) & "</b></font></a>"
else
sTemp=sTemp&"<a href=""" & FileName & "&SpecialID=" & sqlSpecial(0,i) & """>" & sqlSpecial(1,i) & "</a>"
end if
if (i+1) mod 8=0 then
sTemp=sTemp&"<br />"
else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -