📄 cl_clstemplate.asp
字号:
DataStr = ShowTopArticle(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),ArrayStr(3),ArrayStr(4),ArrayStr(5),ArrayStr(6))
Case "showneararticle"
DataStr = ShowNearArticle(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),Cl.GetEval(ArrayStr(3)),ArrayStr(4),ArrayStr(5))
'Rem 下载部分
Case "showsoft"
DataStr = ShowSoft(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),Cl.GetEval(ArrayStr(3)),ArrayStr(4),ArrayStr(5),ArrayStr(6),ArrayStr(7),ArrayStr(8),ArrayStr(9),ArrayStr(10),ArrayStr(11),ArrayStr(12),ArrayStr(13),ArrayStr(14),ArrayStr(15),ArrayStr(16))
Case "showpicsoft"
DataStr = ShowPicSoft(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),Cl.GetEval(ArrayStr(3)),ArrayStr(4),ArrayStr(5),ArrayStr(6),ArrayStr(7),ArrayStr(8),ArrayStr(9),ArrayStr(10),ArrayStr(11),ArrayStr(12))
Case "showclasssoft"
DataStr = ShowClassSoft(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),ArrayStr(3),ArrayStr(4))
Case "showtopsoft"
DataStr = ShowTopSoft(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),ArrayStr(3),ArrayStr(4),ArrayStr(5),ArrayStr(6))
'Rem 图片部分
Case "showphoto"
DataStr = ShowPhoto(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),Cl.GetEval(ArrayStr(3)),ArrayStr(4),ArrayStr(5),ArrayStr(6),ArrayStr(7),ArrayStr(8),ArrayStr(9),ArrayStr(10),ArrayStr(11),ArrayStr(12),ArrayStr(13),ArrayStr(14),ArrayStr(15),ArrayStr(16))
Case "showpicphoto"
DataStr = ShowPicPhoto(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),Cl.GetEval(ArrayStr(3)),ArrayStr(4),ArrayStr(5),ArrayStr(6),ArrayStr(7),ArrayStr(8),ArrayStr(9),ArrayStr(10),ArrayStr(11),ArrayStr(12))
Case "showclassphoto"
DataStr = ShowClassPhoto(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),ArrayStr(3),ArrayStr(4))
Case "showtopphoto"
DataStr = ShowTopPhoto(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),ArrayStr(3),ArrayStr(4),ArrayStr(5),ArrayStr(6))
'Rem 影视部分
Case "showmovie"
DataStr = ShowMovie(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),Cl.GetEval(ArrayStr(3)),ArrayStr(4),ArrayStr(5),ArrayStr(6),ArrayStr(7),ArrayStr(8),ArrayStr(9),ArrayStr(10),ArrayStr(11),ArrayStr(12),ArrayStr(13),ArrayStr(14),ArrayStr(15),ArrayStr(16))
Case "showpicmovie"
DataStr = ShowPicMovie(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),Cl.GetEval(ArrayStr(3)),ArrayStr(4),ArrayStr(5),ArrayStr(6),ArrayStr(7),ArrayStr(8),ArrayStr(9),ArrayStr(10),ArrayStr(11),ArrayStr(12))
Case "showclassmovie"
DataStr = ShowClassMovie(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),ArrayStr(3),ArrayStr(4))
Case "showtopmovie"
DataStr = ShowTopMovie(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),ArrayStr(3),ArrayStr(4),ArrayStr(5),ArrayStr(6))
'Rem 商城部分
Case "showproduct"
DataStr = ShowProduct(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),Cl.GetEval(ArrayStr(3)),ArrayStr(4),ArrayStr(5),ArrayStr(6),ArrayStr(7),ArrayStr(8),ArrayStr(9),ArrayStr(10),ArrayStr(11),ArrayStr(12),ArrayStr(13),ArrayStr(14),ArrayStr(15),ArrayStr(16))
Case "showpicproduct"
DataStr = ShowPicProduct(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),Cl.GetEval(ArrayStr(3)),ArrayStr(4),ArrayStr(5),ArrayStr(6),ArrayStr(7),ArrayStr(8),ArrayStr(9),ArrayStr(10),ArrayStr(11),ArrayStr(12))
Case "showclassproduct"
DataStr = ShowClassProduct(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),ArrayStr(3),ArrayStr(4))
Case "showtopproduct"
DataStr = ShowTopProduct(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),ArrayStr(3),ArrayStr(4),ArrayStr(5),ArrayStr(6))
Case "showcorrelativearticle","showcorrelativesoft","showcorrelativephoto","showcorrelativemovie"
DataStr = ShowCorrelative(Cl.GetEval(ArrayStr(1)),InfoID,ArrayStr(2),ArrayStr(3),ArrayStr(4))
Case "showcorrelativeproduct"
DataStr = ShowCorrelativeProduct(Cl.GetEval(ArrayStr(1)),ArrayStr(2),ArrayStr(3),ArrayStr(4),ArrayStr(5),ArrayStr(6),ArrayStr(7),ArrayStr(8))
Case "showcorrelative"
DataStr = ShowCorrelative(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),ArrayStr(3),ArrayStr(4),ArrayStr(5))
Rem Supply
Case "showsupply"
DataStr = ShowSupply(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),Cl.GetEval(ArrayStr(3)),ArrayStr(4),ArrayStr(5),ArrayStr(6),ArrayStr(7),ArrayStr(8),ArrayStr(9),ArrayStr(10),ArrayStr(11),ArrayStr(12),ArrayStr(13),ArrayStr(14),ArrayStr(15),ArrayStr(16))
Case "showpicsupply"
DataStr = ShowPicSupply(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),Cl.GetEval(ArrayStr(3)),ArrayStr(4),ArrayStr(5),ArrayStr(6),ArrayStr(7),ArrayStr(8),ArrayStr(9),ArrayStr(10),ArrayStr(11),ArrayStr(12))
'Rem Other
Case "wap"
DataStr = Wap(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)))
Case "rss"
DataStr = Rss(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)))
Case "showlogo"
DataStr = ShowLogo(Cl.GetEval(ArrayStr(1)),ArrayStr(2),ArrayStr(3))
Case "showbanner"
DataStr = ShowBanner(Cl.GetEval(ArrayStr(1)),ArrayStr(2),ArrayStr(3))
Case "showannounce"
DataStr = ShowAnnounce(Cl.GetEval(ArrayStr(1)),ArrayStr(2),ArrayStr(3),ArrayStr(4),ArrayStr(5))
Case "openannounce"
if Cl.Web_Info(15) = "1" then
DataStr = "<script language = ""JavaScript"" type=""text/javascript"" src="""&Cl.WebDir&"Js/Announce/"&ChannelID&"_3.Js"" ></script>"
else
DataStr = "<script language = ""JavaScript"" type=""text/javascript"">" & Vbcrlf & OpenAnnounce(Cl.GetEval(ArrayStr(1))) & Vbcrlf & "</script>"
end If
Case "showchannel"
if Cl.Web_Info(15) = "1" then
DataStr = "<script language = ""JavaScript"" type=""text/javascript"" src="""&Cl.WebDir&"Js/ChannelMenu/ChannelMenu_"&Cl.GetEval(ArrayStr(1))&".Js""></script>"
else
DataStr = Cl.ShowChannelMenu(Cl.GetEval(ArrayStr(1)))
end If
Case "showchannelmenu"
DataStr = Cl.ShowChannelMenu(Cl.GetEval(ArrayStr(1)))
Case "showclassmenu"
if Cl.Web_Info(15) = "1" then
DataStr = "<script language = ""JavaScript"" type=""text/javascript"" src="""&Cl.WebDir&"Js/ClassMenu/ClassMenu_"&Cl.GetEval(ArrayStr(1))&".Js""></script>"
else
DataStr = "<script language = ""JavaScript"" type=""text/javascript"">"&GetClassMenu(Cl.GetEval(ArrayStr(1)))&"</script>"
end if
Case "showpage"
If Ubound(ArrayStr)<5 Then
DataStr = Cl.ShowPage(FileName,TotalPut,PageSize,Cl.ChannelItemUnit,Cl.ChannelItemName)
Else
DataStr = Cl.ShowPage(ArrayStr(1),ArrayStr(2),ArrayStr(3),ArrayStr(4),ArrayStr(5))
End If
Case "showspecial"
DataStr = ShowSpecial(Cl.GetEval(ArrayStr(1)),ArrayStr(2))
Case "showchildclass"
DataStr = ShowChildClass(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),ArrayStr(3),ArrayStr(4))
Case "showclassnavigation"
DataStr = ShowClassNavigation(Cl.GetEval(ArrayStr(1)),Cl.GetEval(ArrayStr(2)),ArrayStr(3))
Case "showcomment"
DataStr = ShowComment(Cl.GetEval(ArrayStr(1)),ArrayStr(2),ArrayStr(3))
Case "showsearchform"
if Cint(ArrayStr(2))>2 and Cl.Web_Info(15) = "1" then
DataStr = "<script type=""text/javascript"" src="""&Cl.WebDir&"Js/Search/Search"&Cl.GetEval(ArrayStr(1))&"_"&ArrayStr(2)&".Js""></script>"
else
DataStr = ShowSearchForm(Cl.GetEval(ArrayStr(1)),ArrayStr(2))
end if
Case "showvote"
if Ubound(ArrayStr)<2 Then
DataStr = ShowVote(ChannelID,1)
Else
DataStr = ShowVote(Cl.GetEval(ArrayStr(1)),ArrayStr(2))
End if
Case "showad"
If Ubound(ArrayStr)<5 Then
DataStr = ShowAd(ArrayStr(1),ArrayStr(2),ArrayStr(3),0,0)
Else
DataStr = ShowAd(ArrayStr(1),ArrayStr(2),ArrayStr(3),ArrayStr(4),ArrayStr(5))
End if
Case "channelcount"
Select Case ChannelID
Case 1
DataStr = "<script type=""text/javascript"" src="""&Cl.WebDir&"Count.asp?style=article""></script>"
Case 2
DataStr = "<script type=""text/javascript"" src="""&Cl.WebDir&"Count.asp?style=soft""></script>"
Case 3
DataStr = "<script type=""text/javascript"" src="""&Cl.WebDir&"Count.asp?style=photo""></script>"
Case 4
DataStr = "<script type=""text/javascript"" src="""&Cl.WebDir&"Count.asp?style=movie""></script>"
Case 5
DataStr = "<script type=""text/javascript"" src="""&Cl.WebDir&"Count.asp?style=product""></script>"
Case 10
DataStr = "<script type=""text/javascript"" src="""&Cl.WebDir&"Count.asp?style=guestbook""></script>"
Case Else
DataStr = "<script type=""text/javascript"" src="""&Cl.WebDir&"Count.asp?style=default""></script>"
End Select
Case "showlinksite"
DataStr = ShowLinkSite(ArrayStr(1),ArrayStr(2),ArrayStr(3),ArrayStr(4),ArrayStr(5))
Case "showtopuser"
DataStr = ShowTopUser(ArrayStr(1),ArrayStr(2),ArrayStr(3))
Case "showguest"
DataStr = ShowGuest(ArrayStr(1),ArrayStr(2),ArrayStr(3))
Case "showuserlogin"
if Ubound(ArrayStr) < 1 then
DataStr = "<div id=""ShowUserLogin"">" & ShowUserLogin(0) & "</div>"
Else
DataStr = "<div id=""ShowUserLogin"">" & ShowUserLogin(ArrayStr(1)) & "</div>"
end if
Case "showjs"
Dim Tn,TempsTr
Randomize
Tn=Int(9999*Rnd)+10000
DataStr = "<div id=""T"&Tn&""">" & ArrayStr(1) & "</div>"
TempsTr = "<div id=""Text"&Tn&""" style=""display:none"">"&ArrayStr(2)&"</div>"
TempsTr = TempsTr & Vbcrlf & "<script type=""text/javascript"">" & Vbcrlf & "document.getElementById('T"&Tn&"').innerHTML=document.getElementById('Text"&Tn&"').innerHTML;" & Vbcrlf & "</script>"
sContent = Replace(sContent,"</body>",TempsTr & Vbcrlf & "</body>")
TempsTr = Empty
Case "powered"
if SysTemVersion>1 then
DataStr = ""
else
DataStr = Cl.Language.selectSingleNode("//Powered").text & "<a href=""http://www.aspoo.cn/"" target=""_blank"">"&ClCMS_Version&"</a>"
end if
Case "runtime"
if Trim(Cl.Web_Setting(0))="Yes" then
DataStr = Replace(Cl.Language.selectSingleNode("//RunTime").text,"{$runtime}",Right(0&FormatNumber(Timer-PageBeginTime,3),5))' & "  " & Replace(Cl.Language.selectSingleNode("//QueryNum").text,"{$querynum}",Cl.SqlQueryNum))
else
DataStr = ""
end If
Case "description" : DataStr = Cl.DeScriptIon
Case "keywords" : DataStr = Replace(Cl.Keywords,"|",",")
Case "web_info" : DataStr = Cl.Web_Info(ArrayStr(1))
Case "web_setting" : DataStr = Cl.Web_Setting(ArrayStr(1))
Case "copyright" : DataStr = Cl.Web_info(9)
Case "title" : DataStr = Cl.Title
Case "currentpath" : DataStr = Cl.Path
Case "webdir","installdir" : DataStr = InstallDir
Case "channeldir" : DataStr = Cl.ChannelDir
Case "showarticlecontent" : DataStr = ShowArticleContent()
Case "cssid" : DataStr = Cl.CssID
Case "webcss"
DataStr = "<style type=""text/css"">"&vbCrlf& Css & vbCrlf &"</style>"
Case "csspicurl"
DataStr = Cl.WebDir & Cl.CssPicUrl
Case "channelid","classid","classname","specialid","specialname","infoid"
DataStr = Eval(ArrayStr(0))
Case "showlinkclassmenu"
DataStr = ShowLinkClassMenu(Cl.GetEval(ArrayStr(1)),ArrayStr(2),ArrayStr(3))
Case "getclasslinkurl"
DataStr = Cl.GetClassLinkUrl(Cl.GetEval(ArrayStr(1)))
Case Else : DataStr = Match.Value
End Select
sContent = Replace(sContent,Match.Value,DataStr)
ArrayStr = Empty
DataStr = Empty
TempValue = Empty
Next
Set Matches = Nothing
ReplaceParameter = sContent
End Function
Public Function ReplaceFlag(Byval sContent,Byval FlagStr,Byval DataStr)
On Error Resume next
Dim Matches,Match,TempValue
regEx.Pattern = "{\$("&FlagStr&")\((.[^{\$}]*)\)}"
If DataStr="" Or IsNull(DataStr) Then
Set Matches = regEx.Execute(sContent)
For Each Match in Matches
DataStr = regEx.Replace(Match.Value,"$1") & "(" & regEx.Replace(Match.Value,"$2") & ")"
DataStr = Replace(DataStr,",)",",0)")
'Response.write DataStr
'Response.end
DataStr = Eval(DataStr)
sContent = Replace(sContent,Match.Value,DataStr)
DataStr = Empty
Next
Set Matches = Nothing
Else
sContent=regEx.Replace(sContent,DataStr)
End if
ReplaceFlag = sContent
End Function
Rem 处理创力[Cl_If]标签
Public Function ReplaceCl_If(Byval sContent)
'If InStr(sContent,"[Cl_If:")=0 Then
' ReplaceCl_If = sContent : Exit Function
'End If
'On Error Resume next
Dim Matches,Match,ValueContent,ValueIf,ContentStr
regEx.Pattern = "\[Cl_If:(.[^\[\]]*)\](.[^\\]*)\[\/Cl_If\]"
Set Matches = regEx.Execute(sContent)
For Each Match in Matches
ValueIf = regEx.Replace(Match.Value,"$1")
ValueIf = Replace(ValueIf,"'","")
ValueContent = regEx.Replace(Match.Value,"$2")
'Response.write ValueContent
if Eval(ValueIf) Then
If InStr(ValueContent,"[Cl_Else")>0 Then
ValueContent = Split(ValueContent,"[Cl_Else")
ContentStr = ValueContent(0)
Else
ContentStr = ValueContent
End if
ElseIf InStr(ValueContent,"[Cl_Else:")>0 Then
ContentStr = ReplaceCl_ElseIf(ValueContent)
ElseIf InStr(ValueContent,"[Cl_Else]")>0 Then
ValueContent = Split(ValueContent,"[Cl_Else]")
ContentStr = ValueContent(1)
Else
ContentStr = ""
End If
sContent = Replace(sContent,Match.Value,ContentStr)
ValueContent= Empty
ValueIf = Empty
ContentStr = Empty
Next
Set Matches = Nothing
ReplaceCl_If = sContent
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -