📄 cls.label.asp
字号:
Function GetInArticle(Str)
Str = Split(Str,",")
eExport = Int(Str(0))
eTDCss = Str(1)
eTDCSS1 = Str(2)
eTDCSS2 = Str(3)
eChannel = Str(4)
eClass = Str(5)
eChildClass = Int(Str(6))
eIsDefault = Int(Str(7))
eIsHot = Int(Str(8))
eIsElite = Int(Str(9))
eInputerName = Str(10)
eShowNum = Int(Str(11))
eColsNum = Int(Str(12))
eDayNum = Int(Str(13))
eLen = Int(Str(14))
eTitleEllipsis = Int(Str(15))
eCommentCss = Str(16)
eOrderType = Int(Str(17))
eHotNum = Int(Str(18))
eNewNum = Int(Str(19))
eContentLen = Int(Str(20))
eContent = WRMPS.GetReplace(Str(21),"§№§",",")
'调用频道
elChannel = "":eSql = "":elOrderType="":elChannel = ""
If eIsElite>0 Then eSql = eSql & " And A.WM_Commend=1"
If eIsHot>0 Then eSql = eSql & " And A.WM_Hot=1"
If eIsDefault > 0 Then eSql = eSql & " And A.WM_DefaultShow=1"
If eChannel<>"" Then
If Ucase(eChannel) = "CHANNEL" Then
If ClassID <> "" Then eClass = "CLASS"
If ChannelID <> "" Then eSql = eSql & " And A.WM_ChannelID="&ChannelID
Else
eCID=Split(eChannel,"|")
For eli=0 To UBound(eCID)
If elChannel = "" Then
elChannel = eCID(eli)
Else
elChannel = elChannel&","&eCID(eli)
End If
Next
eSql = eSql & " And A.WM_ChannelID In("&Trim(elChannel)&")"
End If
End If
'调用栏目
If Ucase(eClass) = "CLASS" Then If ClassID <> "" Then eClass=ClassID Else eClass = ""
If eClass <> "" Then
If IsNumeric(eClass) Then
If eClass > 0 Then
eSql = " and A.WM_ClassID in("&Trim(WRDB.GetChildClass(eClass,"WM_ArticleSort"))&")" & eSql
End If
Else
If Instr(eClass,"|") > 0 Then eClass = WRMPS.GetReplace(eClass,"|",",")
eSql = " and A.WM_ClassID In("&Trim(eClass)&")" & eSql
End If
End If
If eDayNum>0 Then eSql = eSql & " And A.WM_AddTime >= ("&ConnTime&"-"&eDayNum&")"
If Ucase(eInputerName) = "C" Then eInputerName = Author
If eInputerName<>"" Then eSql = eSql & " And A.WM_Editor='"&eInputerName&"'"
'排序方式
Select Case eOrderType
Case 1
elOrderType=" Order By A.WM_ID Desc"
Case 2
elOrderType=" Order By A.WM_Hit Desc,A.WM_ID Desc"
Case 3
elOrderType=" Order By A.WM_Re Desc,A.WM_ID Desc"
Case 4
elOrderType=" Order By A.WM_Collection Desc,A.WM_ID Desc"
Case 5
elOrderType=" Order By A.WM_DefaultShow Desc,A.WM_ID Desc"
Case 6
elOrderType=" Order By A.WM_Hot Desc,A.WM_ID Desc"
Case 7
elOrderType=" Order By A.WM_Commend Desc,A.WM_ID Desc"
Case 8
elOrderType=" Order By A.WM_Grade Desc,A.WM_ID Desc"
End Select
Select Case eExport
Case 2
GetInArticle = GetInArticle & "<table width='100%' border=0 cellspacing=0 cellpadding=0><tr>"
Case 3
GetInArticle = GetInArticle & "<div"&WRMPS.LabelCss(eTDCss)&"><ul"&WRMPS.LabelCss(eTDCSS1)&">"
End Select
e_Sql = "Select Top "&eShowNum&" A.WM_ID,A.WM_Title,A.WM_ClassDir,A.WM_ClassID,A.WM_TitlePrefixion,A.WM_TitleReview,A.WM_Content,A.WM_TitleColor,A.WM_TitleFont,A.WM_LinkUrl,A.WM_Hot,A.WM_Hit,A.WM_AddTime,A.WM_Editor,A.WM_DefaultPicUrl,A.WM_Commend,A.WM_Synopsis,A.WM_ChannelDir,A.WM_ChannelID,B.WM_ID,B.WM_Name,A.WM_Keyword,A.WM_CopyFrom,A.WM_Author,A.WM_Re,A.WM_Collection from WM_Article A Inner Join WM_ArticleSort B on A.WM_ClassID = B.WM_ID Where A.WM_IsDeleted=0 and A.WM_Passed=1"&eSql&elOrderType
eRs.Open e_Sql,Conn,1,1
If eRs.Eof Then GetInArticle = "":eRs.Close:Exit Function
eln=0
Do While not eRs.eof
eln=eln+1
eTag = "":eTags = ""
eTemp = eContent
eTemp = WRMPS.GetReplace(eTemp,"{$ID}",eRs(0))
eTemp = WRMPS.GetReplace(eTemp,"{$No}",eln)
eTemp = WRMPS.GetReplace(eTemp,"{$ClassName}",eRs(20))
eTemp = WRMPS.GetReplace(eTemp,"{$ClassUrl}",WRMPS.GetClassUrl(0,1,1,eRs(17)&eRs(2),eRs(19)))
If eLen > 0 Then elTitle = WRMPS.GotTopic(WRMPS.LeachHTML(eRs(1)),eLen,eTitleEllipsis) Else elTitle = eRs(1)
If eRs(7) <> "" Then elTitle = "<Font Color="&eRs(7)&">"&elTitle&"</Font>"
Select Case eRs(8)
Case 1
elTitle = "<strong>"&elTitle&"</strong>"
Case 2
elTitle = "<i>"&elTitle&"</i>"
Case 3
elTitle = "<strong><i>"&elTitle&"</i></strong>"
End Select
eTemp = WRMPS.GetReplace(eTemp,"{$Title}",elTitle)
elTitLink = WRMPS.GetShowUrl(1,1,0,eRs(0),eRs(12),eRs(17)&eRs(2),eRs(18))
eTemp = WRMPS.GetReplace(eTemp,"{$Url}",elTitLink)
If Instr(eTemp,"{$Content}") > 0 Then
If eContentLen > 0 Then
If eRs(16) <> "" Then
elContentLen = WRMPS.GotTopic(WRMPS.LeachHTML(eRs(16)),eContentLen,1)
Else
If eRs(9) <> "" Then
elContentLen = WRMPS.GotTopic(WRMPS.LeachHTML(eRs(9)),eContentLen,1)
Else
elContentLen = WRMPS.GotTopic(WRMPS.LeachHTML(eRs(6)),eContentLen,1)
End If
End If
End If
eTemp = WRMPS.GetReplace(eTemp,"{$Content}",elContentLen)
End If
elPIC = WRMPS.CheckStr(eRs(14),5)
If elPIC = "" Then elPIC = UrlPath&"Skins/"&WR_Setting(5)&"/nopic.gif"
eTemp = WRMPS.GetReplace(eTemp,"{$Pic}",elPIC)
If Instr(eTemp,"{$Tags}") > 0 Then
eTag = eRs(21)
If eTag <> "" and IsNUll(eTag) = False Then
eTag = Split(eTag,",")
For ei=0 To UBound(eTag)
If eTag(ei) <> "" Then
If eTags = "" Then
eTags = "<a href="&UrlPath&"Search/A?Key="&escape(eTag(ei))&WRMPS.LabelCss(eCommentCss)&" target=_blank>"&eTag(ei)&"</a>"
Else
eTags = eTags&",<a href="&UrlPath&"Search/A?Key="&escape(eTag(ei))&WRMPS.LabelCss(eCommentCss)&" target=_blank>"&eTag(ei)&"</a>"
End If
End If
Next
End If
eTemp = WRMPS.GetReplace(eTemp,"{$Tags}",eTags)
End If
If Instr(eTemp,"{$Prefixion}") > 0 Then
Select Case eRs(4)
Case "[图]"
elShowIncludePic="<Font Color=#003366>[图]</Font>"
Case "[图文]"
elShowIncludePic="<Font Color=#336600>[图文]</Font>"
Case "[组图]"
elShowIncludePic="<Font Color=#666600>[组图]</Font>"
Case "[讨论]"
elShowIncludePic="<Font Color=#663333>[讨论]</Font>"
Case "[公告]"
elShowIncludePic="<Font Color=#CC0000>[公告]</Font>"
Case "[转载]"
elShowIncludePic="<Font Color=#990033>[转载]</Font>"
Case "[推荐]"
elShowIncludePic="<Font Color=#FF00FF>[推荐]</Font>"
Case "[原创]"
elShowIncludePic="<Font Color=#FF6600>[原创]</Font>"
Case Else
elShowIncludePic=""
End Select
eTemp = WRMPS.GetReplace(eTemp,"{$Prefixion}",elShowIncludePic)
End If
If Instr(eTemp,"{$ReviewLink}") > 0 Then If eRs(5) > 0 Then eTemp = WRMPS.GetReplace(eTemp,"{$ReviewLink}","<a href="&UrlPath&eRs(17)&"/Review.asp?ID="&eRs(0)&" target='_blank'><img src='"&UrlPath&"Skins/"&WR_Setting(5)&"/Re.gif' border=0 align=absmiddle></a>") Else eTemp = WRMPS.GetReplace(eTemp,"{$ReviewLink}","")
If Instr(eTemp,"{$HotSign}") > 0 Then
If eRs(10)>0 Then
eTemp = WRMPS.GetReplace(eTemp,"{$HotSign}","<Img Src='"&UrlPath&"Skins/"&WR_Setting(5)&"/Hot.gif' alt='热门' align=absmiddle>")
Else
If eHotNum > 0 and eRs(11)>=eHotNum Then eTemp = WRMPS.GetReplace(eTemp,"{$HotSign}","<Img Src='"&UrlPath&"Skins/"&WR_Setting(5)&"/Hot.gif' alt='热门' align=absmiddle>")
End if
eTemp = WRMPS.GetReplace(eTemp,"{$HotSign}","")
End If
If Instr(eTemp,"{$CommendSign}") > 0 Then If eRs(15)>0 Then eTemp = WRMPS.GetReplace(eTemp,"{$CommendSign}","<Img Src='"&UrlPath&"Skins/"&WR_Setting(5)&"/Elite.gif' alt='推荐' align=absmiddle>") Else eTemp = WRMPS.GetReplace(eTemp,"{$CommendSign}","")
If Instr(eTemp,"{$NewSign}") > 0 Then If eRs(12) >= (Now()-eNewNum) Then eTemp = WRMPS.GetReplace(eTemp,"{$NewSign}","<Img Src='"&UrlPath&"Skins/"&WR_Setting(5)&"/New.gif' alt='新进' align=absmiddle>") Else eTemp = WRMPS.GetReplace(eTemp,"{$NewSign}","")
eTemp = WRMPS.GetReplace(eTemp,"{$CopyForm}",eRs(22))
eTemp = WRMPS.GetReplace(eTemp,"{$Author}",eRs(23))
eTemp = WRMPS.GetReplace(eTemp,"{$Editor}",eRs(13))
eTemp = WRMPS.GetReplace(eTemp,"{$Hit}",eRs(11))
eTemp = WRMPS.GetReplace(eTemp,"{$Re}",eRs(24))
eTemp = WRMPS.GetReplace(eTemp,"{$Year}",Year(eRs(12)))
eTemp = WRMPS.GetReplace(eTemp,"{$Month}",Month(eRs(12)))
eTemp = WRMPS.GetReplace(eTemp,"{$Day}",Day(eRs(12)))
eTemp = WRMPS.GetReplace(eTemp,"{$Hour}",Hour(eRs(12)))
eTemp = WRMPS.GetReplace(eTemp,"{$Minute}",Minute(eRs(12)))
eTemp = WRMPS.GetReplace(eTemp,"{$Second}",Second(eRs(12)))
eTemp = WRMPS.GetReplace(eTemp,"{$Collection}",eRs(25))
Select Case eExport
Case 2
eTemp = "<td"&WRMPS.LabelCss(eTDCss)&" width='"&elTDWidth&"'>"&eTemp&"</td>"
Case 3
eTemp = "<li"&WRMPS.LabelCss(eTDCSS2)&">"&eTemp&"</li>"
End Select
If eColsNum > 0 Then
If Int(eln) Mod eColsNum = 0 And eln <> eRs.RecordCount Then
Select Case eExport
Case 1
eTemp = eTemp & "<br>"& vbCrLf
Case 2
eTemp = eTemp & "</tr>"&vbCrLf&"<tr>"
Case 3
eTemp = eTemp & "</ul>"&vbCrLf&"<ul"&WRMPS.LabelCss(eTDCSS1)&">"
End Select
End If
End If
GetInArticle = GetInArticle & eTemp
eRs.movenext
Loop
Select Case eExport
Case 2
GetInArticle = GetInArticle & "</tr></table>" & vbCrLf
Case 3
GetInArticle = GetInArticle & "</ul></div>"& vbCrLf
End Select
eRs.Close
eTemp = ""
End Function
'========================================================================================
'循环文章分类显示标签
Function GetArticleSortList(Str)
Str = Split(Str,",")
eExport = Int(Str(0))
eTDCss = Str(1)
eTDCSS1 = Str(2)
eTDCSS2 = Str(3)
eChannel = Int(Str(4))
eClass = Int(Str(5))
eIsDefault = Int(Str(6))
eIsHot = Int(Str(7))
eIsElite = Int(Str(8))
eShowNum = Int(Str(9))
eColsNum = Int(Str(10))
eDayNum = Int(Str(11))
eLen = Int(Str(12))
eTitleEllipsis = Int(Str(13))
eOrderType = Int(Str(14))
eHotNum = Int(Str(15))
eNewNum = Int(Str(16))
eSortNum = Int(Str(17))
eContent = WRMPS.GetReplace(Str(18),"§№§",",")
eSql = "":elOrderType="":elSortNum = "":elNum = ""
If eChannel = 0 Then '当前频道
If ChannelID = "" Then ChannelID = 1
If ClassID = "" Then
eLSql = " and WM_ChannelID="&ChannelID&" and WM_ParentID=0"
Else
eLSql = " and WM_ChannelID="&ChannelID&" and WM_ParentID="&ClassID
End If
If ClassID <> "" Then
eLSql = eLSql & " and WM_ParentID="&ClassID
End If
Else '自定义频道
Select Case eClass
Case -1
eLSql = " and WM_ChannelID="&eChannel&" and WM_ParentID=0"
Case 0
If ClassID = "" Then
eLSql = " and WM_ChannelID="&eChannel&" and WM_ParentID=0"
Else
eLSql = " and WM_ChannelID="&eChannel&" and WM_ParentID="&ClassID
End If
Case Else
eLSql = " and WM_ChannelID="&eChannel&" and WM_ParentID="&eClass
End Select
End If
If eSortNum > 0 Then elSortNum = " Top "&eSortNum
If eShowNum > 0 Then elNum = " Top "&eShowNum
If eIsElite > 0 Then eSql = eSql & " And WM_Commend=1"
If eIsDefault > 0 Then eSql = eSql & " And WM_DefaultShow=1"
If eIsHot > 0 Then eSql = eSql & " And WM_Hot=1"
If eDayNum > 0 Then eSql = eSql & " And WM_AddTime >= ("&ConnTime&"-"&eDayNum&")"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -