📄 cls.content.asp
字号:
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$Editor}",WRUser.DispUser(0,pRs(6)))
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$Time}",pRs(7))
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$ArticleGrade}",pRs(10))
ClassName = pRs(13)
pParentPath = pRs(14)
Set pRso = Conn.Execute("Select Top 1 WM_ID,WM_TitlePrefixion,WM_Title,WM_ClassDir,WM_AddTime From WM_Article where WM_Passed=1 and WM_IsDeleted=0 and WM_ClassID="&ClassID&" and WM_id<"&pID&" Order By WM_ID Desc")
If Not pRso.Eof Then
pPrevArticle = "<a href="&WRMPS.GetShowUrl(1,1,0,pRso(0),pRso(4),ChannelDir&pRso(3),ChannelID)&" target=_blank>"&pRso(1)&pRso(2)&"</a>"
Else
pPrevArticle = "没有了"
End If
pRso.Close
Set pRso = Conn.Execute("Select Top 1 WM_ID,WM_TitlePrefixion,WM_Title,WM_ClassDir,WM_AddTime From WM_Article where WM_Passed=1 and WM_IsDeleted=0 and WM_ClassID="&ClassID&" and WM_id>"&pID&" Order By WM_ID")
If Not pRso.Eof Then
pNextArticle = "<a href="&WRMPS.GetShowUrl(1,1,0,pRso(0),pRso(4),ChannelDir&pRso(3),ChannelID)&" target=_blank>"&pRso(1)&pRso(2)&"</a>"
Else
pNextArticle = "没有了"
End If
pRso.Close
pTags = ""
If Instr(PageArticleShow,"{$Tags}") > 0 Then
pTag = pRs(16)
If pTag <> "" and IsNUll(pTag) = False Then
pTag = Split(pTag,",")
For pi=0 To UBound(pTag)
If pTag(pi) <> "" Then
If pTags = "" Then
pTags = "<a href="&WR_Setting(3)&"Search/A?Key="&escape(pTag(pi))&" target=_blank>"&pTag(pi)&"</a>"
Else
pTags = pTags&",<a href="&WR_Setting(3)&"Search/A?Key="&escape(pTag(pi))&" target=_blank>"&pTag(pi)&"</a>"
End If
End If
Next
Else
pTags = ""
End If
End If
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$Tags}",pTags)
SitePath = ",<a href="&WR_Setting(3)&ChannelDir&"/>"&ChannelName&"</a>"
If Instr(pParentPath,",") Then
pParentPath = Right(pParentPath,Len(pParentPath)-2)
For i = 0 To UBound(Split(pParentPath,","))
If Split(pParentPath,",")(i) <> "" Then
Set pRso = Conn.Execute("Select WM_Name,WM_ID,WM_ParentDir,WM_Dir From WM_ArticleSort where WM_ID="&Int(Split(pParentPath,",")(i)))
If Not pRso.Eof Then
SitePath = SitePath & ",<a href="&WRMPS.GetClassUrl(0,1,1,ChannelDir&pRso(2)&pRso(3),pRso(1))&">"&pRso(0)&"</a>"
End If
pRso.Close
End If
Next
End If
SitePath = SitePath & ",<a href="&WRMPS.GetClassUrl(0,1,1,ChannelDir&pRs(12),ClassID)&">"&ClassName&"</a>"
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$PrevArticle}",pPrevArticle)
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$NextArticle}",pNextArticle)
UrlPath = WR_Setting(4)
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$Url}",WRMPS.GetShowUrl(1,1,0,pID,pRs(7),ChannelDir&pRs(12),ChannelID))
SitePath = WRMPS.GetSitePath(-1,SitePath)
PageArticleShow = WRTemp.SiteClass(PageArticleShow)
PageArticleShow = WRTemp.SiteChannel(PageArticleShow)
PageArticleShow = WRTemp.SiteLabel(PageArticleShow)
Case 1
ContentPage = 1
Select Case pRs(9)
Case 1 '1自动分页
If pRs(8) = "" Then pRs(8) = 5000
If pRs(8) <= 0 Then pRs(8) = 5000
If Instr(Round(Len(pRs(3))/pRs(8),1),".") > 0 Then
If Split(Round(Len(pRs(3))/pRs(8),1),".")(0) = "" Then
ContentPage = 1
Else
ContentPage = Int(Split(Round(Len(pRs(3))/pRs(8),1),".")(0)) + 1
End If
Else
ContentPage = Int(Round(Len(pRs(3))/pRs(8),1))
End If
Case 2 '2手动分页
If InStr(pRs(3),"[NextPage]") > 0 Then
ContentPage = UBound(Split(pRs(3),"[NextPage]"))+1
End If
End Select
If ContentPage < 1 Then ContentPage = 1
PageArticleShow = ContentPage
End Select
Else
PageArticleShow = "<font color=#FFFFFF><script language='JavaScript' src='/Inc/WM.Article.asp?"&pID&",Hit'></script></font><script>window.open('"&pRs(15)&"','_self')</script>"
End If
pRs.Close
End Function
'文章频道首页内容获取
Function PageArticleIndex(pID)
SitePath = ",<a href="&WR_Setting(3)&ChannelDir&"/>"&ChannelName&"</a>"
SitePath = WRMPS.GetSitePath(-1,SitePath)
PageArticleIndex = WRTemp.SiteTemplates(1,0,21,pID)
PageArticleIndex = WRTemp.SiteChannel(PageArticleIndex)
PageArticleIndex = WRTemp.SiteLabel(PageArticleIndex)
End Function
'###############################################################################################
'产品频道首页内容获取
Function PageProductIndex()
SitePath = ",<a href="&WR_Setting(3)&ChannelDir&"/>"&ChannelName&"</a>"
SitePath = WRMPS.GetSitePath(-1,SitePath)
PageProductIndex = WRTemp.SiteTemplates(1,0,31,ChannelID)
PageProductIndex = WRTemp.SiteChannel(PageProductIndex)
PageProductIndex = WRTemp.SiteLabel(PageProductIndex)
End Function
'###############################################################################################
'礼品频道首页内容获取
Function PageGiftIndex()
SitePath = ",<a href="&WR_Setting(3)&"Gift/>礼品中心</a>"
SitePath = WRMPS.GetSitePath(-1,SitePath)
PageGiftIndex = WRTemp.SiteTemplates(1,0,39,0)
PageGiftIndex = WRMPS.GetReplace(PageGiftIndex,"{$GiftListUrl}",WRMPS.GetGiftListUrl())
PageGiftIndex = WRTemp.SiteChannel(PageGiftIndex)
PageGiftIndex = WRTemp.SiteLabel(PageGiftIndex)
End Function
'###############################################################################################
'店铺频道首页获取
Function PageCompanyIndex()
SitePath = ",<a href="&WR_Setting(3)&ChannelDir&"/>"&ChannelName&"</a>"
SitePath = WRMPS.GetSitePath(0,SitePath)
PageCompanyIndex = WRTemp.SiteTemplates(1,0,45,ChannelID)
PageCompanyIndex = WRTemp.SiteChannel(PageCompanyIndex)
PageCompanyIndex = WRTemp.SiteLabel(PageCompanyIndex)
End Function
'###############################################################################################
'优惠券频道首页获取
Function PageCouponIndex()
SitePath = ",<a href="&WR_Setting(3)&ChannelDir&"/>"&ChannelName&"</a>"
SitePath = WRMPS.GetSitePath(0,SitePath)
PageCouponIndex = WRTemp.SiteTemplates(1,0,67,ChannelID)
PageCouponIndex = WRTemp.SiteChannel(PageCouponIndex)
PageCouponIndex = WRTemp.SiteLabel(PageCouponIndex)
End Function
'###############################################################################################
'单页频道内容获取
Function PageSinglePage(pID)
SitePath = ",<a href="&WR_Setting(3)&ChannelDir&">"&ChannelName&"</a>"
SitePath = WRMPS.GetSitePath(0,SitePath)
PageSinglePage = WRTemp.SiteTemplates(1,0,33,pID)
Set pRs = server.createobject("adodb.recordset")
pRs.open "Select WM_Content From WM_SinglePage Where WM_ChannelID="&pID&"" ,Conn,1,1
If Not pRs.Eof Then
SinglePage = pRs(0)
End If
pRs.Close
Set pRs = Nothing
PageSinglePage = WRMPS.GetReplace(PageSinglePage,"{$Content}",SinglePage)
PageSinglePage = WRTemp.SiteChannel(PageSinglePage)
PageSinglePage = WRTemp.SiteLabel(PageSinglePage)
End Function
'###############################################################################################
'首页内容获取
Function PageIndex(pCityID)
SitePath = ",<a href="&WR_Setting(3)&"Index.asp>网站首页</a>"
SitePath = WRMPS.GetSitePath(0,SitePath)
If pCityID <> 0 Then
PageIndex = WRTemp.SiteTemplates(1,MyCityTempID,2,0)
Else
PageIndex = WRTemp.SiteTemplates(1,WR_Setting(18),1,0)
End If
PageIndex = WRTemp.SiteLabel(PageIndex)
End Function
'###############################################################################################
'简版首页内容获取
Function PageBriefnessIndex()
If Int(UserFlag(6)) < 1 Then Call WRMPS.ErrView("·您没有权限使用此功能<br>·<a href="&WR_Setting(3)&"Index.asp?Briefness=0>返回首页？</a>", 0)
Dim SChannel
SitePath = ",<a href="&WR_Setting(3)&"Index.asp>网站首页</a>"
SitePath = WRMPS.GetSitePath(0,SitePath)
PageBriefnessIndex = WRTemp.SiteTemplates(1,0,26,0)
PageBriefnessIndex = WRMPS.GetReplace(PageBriefnessIndex,"{$SCity}",WRDB.GetAreaSort(0,1,MyCityID,"City"))
If Instr(PageBriefnessIndex,"{$SChannel}") > 0 Then
SChannel = "<select name=ClassID size=1><option value=''>所有频道</option>" & vbCrLf
Set Rs = Conn.Execute("select WM_ID,WM_ChannelName from WM_Channel where WM_Key = 1 And WM_Module = 1 Order By WM_OrderID")
Do While Not Rs.EOF
SChannel = SChannel & "<option value="&Rs(0)&">"&Rs(1)&"</option>" & vbCrLf
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
SChannel = SChannel & "</select>"
PageBriefnessIndex = WRMPS.GetReplace(PageBriefnessIndex,"{$SChannel}",SChannel)
End If
PageBriefnessIndex = WRTemp.SiteLabel(PageBriefnessIndex)
End Function
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -