📄 cls.templates.asp
字号:
<!--#include file="Cls.Label.asp"-->
<!--#include file="Cls.Label.User.asp"-->
<!--#include file="Cls.Label.Gift.asp"-->
<!--#include file="Cls.Label.Coupon.asp"-->
<%
Class Cls_Temp
't
Private tRs,tSQL,tTags,tTag,tI,tRso,HtmlTemplates,HtmlLabel,C_TempName,C_TempCon,tTemp,tN
Private Sub Class_Initialize()
Call CacheLabelCon("","")
End Sub
Private Sub Class_Terminate()
Set tRs = nothing
End Sub
'提取页面模板函数：SiteTemplates
'tType：是否同时进行动态标签转换 1是，0否
'tID：模板ID
'tSortID：模板分类ID
'tChannelID：频道ID
Public Function SiteTemplates(tType,tID,tSortID,tChannelID)
Dim TempOK
TempOK = 0
SiteTemplates = "请先添加模板"
HtmlTemplates = WRMPS.GetCache("Templates")
If tID = "" Then tID = 0
Select Case tID
Case 0
For tI=0 To UBound(HtmlTemplates,2)
If Int(HtmlTemplates(2,tI))=Int(tSortID) And Int(HtmlTemplates(3,tI))=Int(tChannelID) Then
SiteTemplates = HtmlTemplates(1,tI)
Exit For
End If
Next
Case Else
For tI=0 To UBound(HtmlTemplates,2)
If Int(HtmlTemplates(0,tI))=Int(tID) Then
SiteTemplates = HtmlTemplates(1,tI)
TempOK = 1
Exit For
End If
Next
If TempOK = 0 Then
For tI=0 To UBound(HtmlTemplates,2)
If Int(HtmlTemplates(2,tI))=Int(tSortID) And Int(HtmlTemplates(3,tI))=Int(tChannelID) Then
SiteTemplates = HtmlTemplates(1,tI)
Exit For
End If
Next
End If
End Select
HtmlTemplates = Empty
If SiteTemplates <> "" Then
SiteTemplates = WRMPS.GetHtml(WR_Setting(3)&"Skins/"&WR_Setting(5)&"/Templates/"&SiteTemplates)
SiteTemplates = SiteTemplates & vbCrLf & CHR(60)&CHR(115)&CHR(112)&CHR(97)&CHR(110)&CHR(32)&CHR(115)&CHR(116)&CHR(121)&CHR(108)&CHR(101)&CHR(61)&CHR(34)&CHR(100)&CHR(105)&CHR(115)&CHR(112)&CHR(108)&CHR(97)&CHR(121)&CHR(58)&CHR(110)&CHR(111)&CHR(110)&CHR(101)&CHR(34)&CHR(62)&CHR(80)&CHR(117)&CHR(98)&CHR(108)&CHR(105)&CHR(115)&CHR(104)&CHR(101)&CHR(100)&CHR(32)&CHR(97)&CHR(116)&CHR(32)&Now()&CHR(44)&CHR(32)&CHR(80)&CHR(111)&CHR(119)&CHR(101)&CHR(114)&CHR(101)&CHR(100)&CHR(32)&CHR(66)&CHR(121)&CHR(32)&CHR(87)&CHR(82)&CHR(77)&CHR(80)&CHR(83)&CHR(32)&CHR(118)&SystemVersion&CHR(40)&Replace(Replace(ConnTypeStr,0,"ACCESS"),1,"MSSQL")&CHR(41)&CHR(32)&SystemVersionType&CHR(60)&CHR(47)&CHR(115)&CHR(112)&CHR(97)&CHR(110)&CHR(62)
End If
If tType = 1 Then SiteTemplates = SiteTempLabel(SiteTemplates)
End Function
'模板标签替换顺序：自定义标签 -> 动态标签 -> 内容标签 -> 栏目标签 -> 频道标签 -> 通用标签
Public Function SiteTempLabel(tStr)
SiteTempLabel = CustomLabel(tStr)
Set regEx=New RegExp
regEx.Pattern="(\{\$([\A-Za-z]+)\()([\s\S]+?)(\)})"
regEx.IgnoreCase=True
regEx.Global=True
Set Matches=regEx.Execute(tStr)
For Each Match in Matches
ExTagStr = regEx.Replace(Match.Value,"$2")
ExAnalyseStr = regEx.Replace(Match.Value,"$3")
tStr=Replace(tStr,Match.Value,LabelAnalyse(ExTagStr,ExAnalyseStr))
Next
Set Matches=Nothing
Set regEx=Nothing
SiteTempLabel = tStr
tStr = Empty
End Function
'动态标签函数分析
Function LabelAnalyse(tKey,tStr)
Select Case tKey
Case "GetMenu"
LabelAnalyse = ClsLabel.GetMenu(tStr)
Case "GetLinks"
LabelAnalyse = ClsLabel.GetLinks(tStr)
Case "GetClassSort"
LabelAnalyse = ClsLabel.GetClassSort(tStr)
Case "GetInClassSort"
LabelAnalyse = ClsLabel.GetInClassSort(tStr)
Case "GetInClassAD"
LabelAnalyse = ClsLabel.GetInClassAD(tStr)
Case "GetArticleSort"
LabelAnalyse = ClsLabel.GetArticleSort(tStr)
Case "GetArticle"
LabelAnalyse = ClsLabel.GetArticle(tStr)
Case "GetInArticle"
LabelAnalyse = ClsLabel.GetInArticle(tStr)
Case "GetArticleSortList"
LabelAnalyse = ClsLabel.GetArticleSortList(tStr)
Case "GetAnnounce"
LabelAnalyse = ClsLabel.GetAnnounce(tStr)
Case "GetPopAnnounce"
LabelAnalyse = ClsLabel.GetPopAnnounce(tStr)
Case "GetClassSortList"
LabelAnalyse = ClsLabel.GetClassSortList(tStr)
Case "GetSearchKey"
LabelAnalyse = ClsLabel.GetSearchKey(tStr)
Case "GetGuestBook"
LabelAnalyse = ClsLabel.GetGuestBook(tStr)
Case "GetCompanySort"
LabelAnalyse = ClsLabel.GetCompanySort(tStr)
Case "GetInCompany"
LabelAnalyse = ClsLabel.GetInCompany(tStr)
Case "GetCompanyDP"
LabelAnalyse = ClsLabel.GetCompanyDP(tStr)
Case "GetInCompanySort"
LabelAnalyse = ClsLabel.GetInCompanySort(tStr)
Case "GetUser"
LabelAnalyse = ClsUser.GetUser(tStr)
Case "GetGift"
LabelAnalyse = ClsGift.GetGift(tStr)
Case "GetInCouponSort"
LabelAnalyse = ClsCoupon.GetInCouponSort(tStr)
Case "GetInCoupon"
LabelAnalyse = ClsCoupon.GetInCoupon(tStr)
Case "GetCouponSort"
LabelAnalyse = ClsCoupon.GetCouponSort(tStr)
End Select
End Function
'标签替换
Public Function CustomLabel(tStr)
If tStr = "" or isnull(tStr) Then Exit Function
HtmlLabel = WRMPS.GetCache("Label")
For tI=0 To UBound(HtmlLabel,2)
Select Case Int(HtmlLabel(2,tI))
Case 0
tStr = Replace(tStr,HtmlLabel(0,tI),HtmlLabel(1,tI))
Case 1
tStr = Replace(tStr,HtmlLabel(0,tI),WRMPS.GetCache("Temp_"&HtmlLabel(0,tI)))
End Select
Next
HtmlLabel = Empty
CustomLabel = tStr
End Function
'标签内容缓存
Public Sub CacheLabelCon(tName,tCon)
If tName <> "" and tCon <> "" Then
WRMPS.SCache "Temp_"&tName,SiteTempLabel(tCon)
Else
If IsEmpty(WRMPS.GetCache("Temp")) Then
Set tRs = Conn.Execute("Select WM_Name,WM_Content From WM_Label Where WM_Cache = 1 and WM_SkinDir = '" & WR_Setting(5) & "' and WM_Type in(1,2) Order By WM_Type,WM_Taxis")
Do While Not tRs.Eof
C_TempName = tRs(0)
C_TempCon = tRs(1)
WRMPS.SCache "Temp_"&C_TempName,SiteTempLabel(C_TempCon)
tRs.MoveNext
Loop
tRs.Close
WRMPS.SCache "Temp","True"
End If
End If
End Sub
'公用标签
Function SiteLabel(byval Str)
If Str = "" or isnull(Str) Then Exit Function
Str = SiteUser(Str)
Str = WRMPS.GetReplace(Str,"{$SiteLogo}",UrlPath&WR_Setting(8))
Str = WRMPS.GetReplace(Str,"{$Meta_Keywords}",WR_Setting(6))
Str = WRMPS.GetReplace(Str,"{$Meta_Description}",WR_Setting(7))
Str = WRMPS.GetReplace(Str,"{$Copyright}",WR_Setting(12))
Str = WRMPS.GetReplace(Str,"{$SitePath}",SitePath)
Str = WRMPS.GetReplace(Str,"{$ExecuteTime}",WRMPS.ExecuteTime())
Str = WRMPS.GetReplace(Str,"{$ScrollWindow}","<Script>var currentpos,timer;function initialize(){timer=setInterval (""scrollwindow ()"",50);}function sc(){clearInterval(timer);}function scrollwindow(){currentpos=document.body.scrollTop;window.scroll(0,++currentpos);if (currentpos !=document.body.scrollTop)sc();}document.onmousedown=sc;document.ondblclick=initialize</Script>")
Str = WRMPS.GetReplace(Str,"{$SiteNote}","<script src="&UrlPath&"Inc/Js/Note.Js></Script>")
Str = WRMPS.GetReplace(Str,"{$ForbidChoose}"," onselectstart='return false;'")
Str = WRMPS.GetReplace(Str,"{$TodayDate}","<script>SiteDate()</script>")
Str = WRMPS.GetReplace(Str,"{$JsCityName}","<script language='JavaScript' src='"&UrlPath&"Inc/WM.Site.asp?City,"&MyCityID&"'></script>")
Str = WRMPS.GetReplace(Str,"{$SkinDir}",WR_Setting(5))
Str = WRMPS.GetReplace(Str,"{$SiteUpDir}",WR_UpLoad(0))
Str = WRMPS.GetReplace(Str,"{$SiteName}",WR_Setting(0))
Str = WRMPS.GetReplace(Str,"{$SiteTitle}",WR_Setting(2))
Str = WRMPS.GetReplace(Str,"{$SiteUrl}",WR_Setting(4))
Str = WRMPS.GetReplace(Str,"{$InstallDir}",WR_Setting(3))
Str = WRMPS.GetReplace(Str,"{$setHomePage}","<A class=mBottomLink onClick=""this.style.behavior='url(#default#homepage)';this.setHomePage('"&WR_Setting(4)&"');"" href=""#"">设为首页</A>")
Str = WRMPS.GetReplace(Str,"{$addFavorite}","<A class=mBottomLink href=""javascript:window.external.addFavorite('"&WR_Setting(4)&"','"&WR_Setting(0)&"');"">加入收藏</A>")
Str = WRMPS.GetReplace(Str,"{$Admin}","<A class=mBottomLink href="""&UrlPath&"Admin/Admin_login.asp"" target=_blank>管理登录</A>")
Str = WRMPS.GetReplace(Str,"{$CountOutName}",WR_Other(0))
Str = WRMPS.GetReplace(Str,"{$Exchange}",WR_Other(1))
Str = WRMPS.GetReplace(Str,"{$NewUser}",WRUser.DispUser(0,W_NewUser))
Str = WRMPS.GetReplace(Str,"{$UserNum}",W_UserNum)
Str = WRMPS.GetReplace(Str,"{$ClassNum}",W_ClassNum)
Str = WRMPS.GetReplace(Str,"{$ArticleNum}",W_ArticleNum)
Str = WRMPS.GetReplace(Str,"{$CompanyNum}",W_CompanyNum)
Str = WRMPS.GetReplace(Str,"{$CompanyReNum}",W_CompanyReNum)
Str = WRMPS.GetReplace(Str,"{$CouponNum}",W_CouponNum)
Str = WRMPS.GetReplace(Str,"{$Miibeian}",WR_Other(10))
Str = WRMPS.GetReplace(Str,"{$MapDir}",WR_Other(12))
Str = WRMPS.GetReplace(Str,"{$ReviewUrl}",WRMPS.GetCritiqueUrl(0))
Str = WRMPS.GetReplace(Str,"{$CodePlan}",WR_Code(2))
Select Case Int(WR_Setting(9))
Case 0
Str = WRMPS.GetReplace(Str,"{$BriefnessIndexUrl}",WR_Setting(3)&"Index.asp?Briefness=0")
Str = WRMPS.GetReplace(Str,"{$BriefnessUrl}",WR_Setting(3)&"Index.asp?Briefness=1")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -