📄 cls.label.asp
字号:
Case "[推荐]"
elShowIncludePic="<Font Color=#FF00FF>[推荐]</Font>"
Case "[原创]"
elShowIncludePic="<Font Color=#FF6600>[原创]</Font>"
End Select
elHand = elHand&elShowIncludePic
End If
'标题后标志
If eHotSign>0 Then
If eRs(10)>0 Then
elCaudaLogo = "<Img Src='"&UrlPath&"Skins/"&WR_Setting(5)&"/Hot.gif' alt='热门' align=absmiddle>"
Else
If eHotNum > 0 Then If eRs(11)>=eHotNum Then elCaudaLogo = "<Img Src='"&UrlPath&"Skins/"&WR_Setting(5)&"/Hot.gif' alt='热门' align=absmiddle>"
End If
End If
If eCommend>0 And eRs(15)>0 Then elCaudaLogo = elCaudaLogo&"<Img Src='"&UrlPath&"Skins/"&WR_Setting(5)&"/Elite.gif' alt='推荐' align=absmiddle>"
If eNewSign>0 And eRs(12) >= (Now()-eNewNum) Then elCaudaLogo = elCaudaLogo&"<Img Src='"&UrlPath&"Skins/"&WR_Setting(5)&"/New.gif' alt='新进' align=absmiddle>"
If elCaudaLogo <> "" Then elCaudaLogo = " "&elCaudaLogo&" "
'标题尾内容
Select Case eDateType
Case 1
elCauda = eRs(12)
Case 2
elCauda = Month(eRs(12))&"-"&Day(eRs(12))
Case 3
elCauda = Hour(eRs(12))&":"&Minute(eRs(12))
Case 4
elCauda = Year(eRs(12))&"-"&Month(eRs(12))&"-"&Day(eRs(12))
Case 5
elCauda = Hour(eRs(12))&":"&Minute(eRs(12))&":"&Second(eRs(12))
End Select
If eEditor > 0 Then:If elCauda <> "" Then elCauda = elCauda&" "&WM_User.DispUser(0,eRs(13)) Else elCauda = elCauda&WM_User.DispUser(0,eRs(13)):End If
If eHits > 0 Then:If elCauda <> "" Then elCauda = elCauda&" "&eRs(11) Else elCauda = elCauda&eRs(11):End If
If elCauda <> "" Then:If eTeilSymbolCSS <> "" Then elCauda = "<Font"&WRMPS.LabelCss(eTeilSymbolCSS)&">"&Split(eTeilSymbol,"§")(0)&elCauda&Split(eTeilSymbol,"§")(1)&"</Font>" Else elCauda = Split(eTeilSymbol,"§")(0)&elCauda&Split(eTeilSymbol,"§")(1):End If
'标题
If eRs(7) <> "" Then elTitHand = "<Font Color="&eRs(7)&">":elTitCauda = "</Font>"
Select Case eRs(8)
Case 1
elTitHand = elTitHand&"<strong>"
elTitCauda = "</strong>"&elTitCauda
Case 2
elTitHand = elTitHand&"<i>"
elTitCauda = "</i>"&elTitCauda
Case 3
elTitHand = elTitHand&"<i><strong>"
elTitCauda = "</strong></i>"&elTitCauda
End Select
elTitLink = WRMPS.GetShowUrl(1,1,0,eRs(0),eRs(12),eRs(17)&eRs(2),eRs(18))
If eTips > 0 Then elTips = " title='标题："&eRs(1)& vbCrLf &"时间："&eRs(12)& vbCrLf &"编辑："&eRs(13)& vbCrLf &"点击："&eRs(11)&"'" Else elTips = ""
If eCommentLink>0 And eRs(5)>0 Then elRevert = 1
If elRevert = 1 Then
elTLen = elTLen+3
elCommentLink = " <a href="&UrlPath&eRs(17)&"/Review.asp?ID="&eRs(0)&" target='_blank'"&eCommentCss&"><img src='"&UrlPath&"Skins/"&WR_Setting(5)&"/Re.gif' border=0 align=absmiddle></a>"
End If
'内容
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
If eContentCSS <> "" Then elContentLen = "<Font"&WRMPS.LabelCss(eContentCSS)&">"&elContentLen&"</Font>"
End If
If eColsNum > 0 Then elTDWidth=Round(100/int(eColsNum),0)&"%" Else elTDWidth = ""
eArticlePic = eRs(14)
Select Case eType
Case 1
If eLen > 0 Then elTitle = WRMPS.GotTopic(WRMPS.LeachHTML(eRs(1)),eLen-elOLen-elTLen,eTitleEllipsis) Else elTitle = eRs(1)
Select Case eExport
Case 2
GetArticle = GetArticle & "<td"&eTDCss&" width='"&elTDWidth&"'>"&elHand&"<a href="&elTitLink&" target="&eOpenType&eLinkCss&elTips&">"&elTitHand&elTitle&elTitCauda&"</a>"&elCommentLink&elCaudaLogo&elCauda&"</td>" & vbCrLf
Case 3
GetArticle = GetArticle & "<li"&WRMPS.LabelCss(eTDCSS2)&">"&elHand&"<a href="&elTitLink&" target="&eOpenType&eLinkCss&elTips&">"&elTitHand&elTitle&elTitCauda&"</a>"&elCommentLink&elCaudaLogo&elCauda&"</li>"
End Select
Case 2
If eLen > 0 Then elTitle = WRMPS.GotTopic(WRMPS.LeachHTML(eRs(1)),eLen-elOLen-elTLen,eTitleEllipsis) Else elTitle = eRs(1)
Select Case eExport
Case 2
GetArticle = GetArticle & "<td width='"&elTDWidth&"' valign=top><table width='100%' border=0 cellspacing=0 cellpadding=0><tr><td"&eTDCss&">" & vbCrLf
GetArticle = GetArticle & elHand&"<a href="&elTitLink&" target="&eOpenType&eLinkCss&elTips&">"&elTitHand&elTitle&elTitCauda&"</a>"&elCommentLink&elCaudaLogo&elCauda
GetArticle = GetArticle & vbCrLf &"</td></tr>"& vbCrLf &"<tr><td>"& vbCrLf & elContentLen & vbCrLf &"</td></tr>"& vbCrLf &"</table></td>" & vbCrLf
Case 3
GetArticle = GetArticle & "<li"&WRMPS.LabelCss(eTDCSS2)&">"
GetArticle = GetArticle & elHand&"<a href="&elTitLink&" target="&eOpenType&eLinkCss&elTips&">"&elTitHand&elTitle&elTitCauda&"</a>"&elCommentLink&elCaudaLogo&elCauda
GetArticle = GetArticle & vbCrLf &"<br>"& vbCrLf & elContentLen & vbCrLf &"</li>"
End Select
Case 3
Select Case eExport
Case 2
GetArticle = GetArticle & "<td"&eTDCss&" width='"&elTDWidth&"'><a href="&elTitLink&" target="&eOpenType&eLinkCss&elTips&"><img Src='"&eArticlePic&"' align=absmiddle style='"&elWidth&elHeight&"border:0;border:1px #CCCCCC solid'></a></td>" & vbCrLf
Case 3
GetArticle = GetArticle & "<li"&WRMPS.LabelCss(eTDCSS2)&"><a href="&elTitLink&" target="&eOpenType&eLinkCss&elTips&"><img Src='"&eArticlePic&"' align=absmiddle style='"&elWidth&elHeight&"border:0;border:1px #CCCCCC solid'></a></li>"
End Select
Case 4
If eLen > 0 Then elTitle = WRMPS.GotTopic(WRMPS.LeachHTML(eRs(1)),eLen-elTLen,eTitleEllipsis) Else elTitle = eRs(1)
Select Case eExport
Case 2
GetArticle = GetArticle & "<td width='"&elTDWidth&"' valign=top><table width='100%' border=0 cellspacing=0 cellpadding=0><tr><td align=center>" & vbCrLf
GetArticle = GetArticle & "<a href="&elTitLink&" target="&eOpenType&elTips&"><img Src='"&eArticlePic&"' align=absmiddle style='"&elWidth&elHeight&"border:0;border:1px #CCCCCC solid'></a>" & vbCrLf
GetArticle = GetArticle & "</td></tr><tr><td"&eTDCss&">" & vbCrLf
GetArticle = GetArticle & "<a href="&elTitLink&" target="&eOpenType&eLinkCss&elTips&">"&elTitHand&elTitle&elTitCauda& "</a>"&elCommentLink
GetArticle = GetArticle & "</td></tr></table></td>" & vbCrLf
Case 3
GetArticle = GetArticle & "<li"&WRMPS.LabelCss(eTDCSS2)&"><a href="&elTitLink&" target="&eOpenType&elTips&"><img Src='"&eArticlePic&"' align=absmiddle style='"&elWidth&elHeight&"border:0;border:1px #CCCCCC solid'></a>" & vbCrLf
GetArticle = GetArticle & "<br>" & vbCrLf
GetArticle = GetArticle & "<a href="&elTitLink&" target="&eOpenType&eLinkCss&elTips&">"&elTitHand&elTitle&elTitCauda& "</a>"&elCommentLink & "</li>"
End Select
Case 5
If eLen > 0 Then elTitle = WRMPS.GotTopic(WRMPS.LeachHTML(eRs(1)),eLen,eTitleEllipsis) Else elTitle = eRs(1)
If Instr(eRs(14),".")>0 Then
If UCase(Split(eRs(14),".")(UBound(Split(eRs(14),".")))) = "JPG" Then
eli = eli + 1
elST5=elST5&"imgUrl"&eli&eANum&"="""&eRs(14)&""";" & vbCrLf&"imgtext"&eli&eANum&"="""&elTitHand&elTitle&elTitCauda&""";" & vbCrLf&"imgLink"&eli&eANum&"=escape("""&elTitLink&""");" & vbCrLf
End If
End If
Case 6
If eWidth = 0 Then eWidth = 80
elTD_WNum = Round((eWidth+16)/6,0)
If eHeight = 0 Then eHeight = 80
elTD_HNum = Round((eHeight+16)/20,0)
If elPIC = "" Or IsNull(elPIC) Then
If eArticlePic<>"" and IsNUll(eArticlePic)=False Then elPIC = "<a href="&elTitLink&" target="&eOpenType&elTips&"><Img Src='"&eArticlePic&"' Width="&eWidth&" Height="&eHeight&" border=0></a>"
End If
If eln>elTD_HNum Then
elTD = " Colspan=2"
If eLen > 0 Then elTitle = WRMPS.GotTopic(WRMPS.LeachHTML(eRs(1)),eLen-elOLen-elTLen,eTitleEllipsis) Else elTitle = eRs(1)
Else
elTD = ""
If eLen > 0 Then elTitle = WRMPS.GotTopic(WRMPS.LeachHTML(eRs(1)),eLen-elOLen-elTLen-elTD_WNum-2,eTitleEllipsis) Else elTitle = eRs(1)
End If
Select Case eExport
Case 2
If elTDPIC = "" Then
elTDPIC = "<td width='"&eWidth&"' align=center rowspan="&elTD_HNum&">"
elTDPIC = elTDPIC&"<table cellspacing=5 cellpadding=0 align='center'><tr><td>"
elTDPIC = elTDPIC&"<table cellspacing=0 cellpadding=3 style='border:1px #999999 solid' align='center'><tr><td style='border:1px #ffffff solid' bgcolor=#cccccc>{#Pic}</td></tr></table>"
elTDPIC = elTDPIC&"</td></tr></table></td>"
GetArticle = GetArticle & elTDPIC&"<td"&elTD&eTDCss&" width='*'>"
Else
GetArticle = GetArticle & "<td"&elTD&eTDCss&" width='100%'>"
End If
elTitle = "<a href="&elTitLink&" target="&eOpenType&eLinkCss&elTips&">"&elTitHand&elTitle&elTitCauda&"</a>"&elCommentLink
GetArticle = GetArticle & elHand&elTitle&elCaudaLogo&elCauda
GetArticle = GetArticle & "</td>"
Case 3
If elTDPIC = "" Then
elTDPIC = "<div style='width:"&eWidth&";padding:5;float:left'><div style='border:1px #999999 solid;width:100%'><ul style='border:1px #ffffff solid;width:100%;background-color:#cccccc;padding:3'>{#Pic}</ul></div></div>"
GetArticle = GetArticle & elTDPIC & vbCrLf
End If
GetArticle = GetArticle &"<div"&WRMPS.LabelCss(eTDCSS2)
If eln <= elTD_HNum Then GetArticle = GetArticle & " style='width:auto'"
GetArticle = GetArticle & ">"
elTitle = "<a href="&elTitLink&" target="&eOpenType&eLinkCss&elTips&">"&elTitHand&elTitle&elTitCauda&"</a>"&elCommentLink
GetArticle = GetArticle & elHand&elTitle&elCaudaLogo&elCauda
GetArticle = GetArticle & "</div>" & vbCrLf
End Select
Case 7
If eWidth = 0 Then eWidth = 80
elTD_WNum = Round((eWidth+16)/6,0)
If eHeight = 0 Then eHeight = 80
elTD_HNum = Round((eHeight+16)/20,0)
If elPIC = "" Or IsNull(elPIC) Then
If eArticlePic<>"" and IsNUll(eArticlePic)=False Then elPIC = "<a href="&elTitLink&" target="&eOpenType&elTips&"><Img Src='"&eArticlePic&"' Width="&eWidth&" Height="&eHeight&" border=0></a>"
End If
If eln>elTD_HNum Then
elTD = " Colspan=2"
If eLen > 0 Then elTitle = WRMPS.GotTopic(WRMPS.LeachHTML(eRs(1)),eLen-elOLen-elTLen,eTitleEllipsis) Else elTitle = eRs(1)
Else
elTD = ""
If eLen > 0 Then elTitle = WRMPS.GotTopic(WRMPS.LeachHTML(eRs(1)),eLen-elOLen-elTLen-elTD_WNum-2,eTitleEllipsis) Else elTitle = eRs(1)
End If
Select Case eExport
Case 2
GetArticle = GetArticle & "<td"&elTD&eTDCss&" width='100%'>"
elTitle = "<a href="&elTitLink&" target="&eOpenType&eLinkCss&elTips&">"&elTitHand&elTitle&elTitCauda&"</a>"&elCommentLink
GetArticle = GetArticle & elHand&elTitle&elCaudaLogo&elCauda
GetArticle = GetArticle & "</td>"
If elTDPIC = "" Then
elTDPIC = "<td width='"&eWidth&"' align=center rowspan="&elTD_HNum&">"
elTDPIC = elTDPIC&"<table cellspacing=5 cellpadding=0 align='center'><tr><td>"
elTDPIC = elTDPIC&"<table cellspacing=0 cellpadding=3 style='border:1px #999999 solid' align='center'><tr><td style='border:1px #ffffff solid;padding:3'>{#Pic}</td></tr></table>"
elTDPIC = elTDPIC&"</td></tr></table>"
elTDPIC = elTDPIC&"</td>"
GetArticle = GetArticle & elTDPIC
End If
Case 3
If elTDPIC = "" Then
elTDPIC = "<div style='width:"&eWidth&";padding:5;float:right'><div style='border:1px #999999 solid;width:100%'><ul style='border:1px #ffffff solid;width:100%;padding:3'>{#Pic}</ul></div></div>"
GetArticle = GetArticle & elTDPIC & vbCrLf
End If
GetArticle = GetArticle &"<div"&WRMPS.LabelCss(eTDCSS2)
If eln <= elTD_HNum Then GetArticle = GetArticle & " style='width:auto'"
GetArticle = GetArticle & ">"
elTitle = "<a href="&elTitLink&" target="&eOpenType&eLinkCss&elTips&">"&elTitHand&elTitle&elTitCauda&"</a>"&elCommentLink
GetArticle = GetArticle & elHand&elTitle&elCaudaLogo&elCauda
GetArticle = GetArticle & "</div>" & vbCrLf
End Select
Case 8
If eLen > 0 Then elTitle = WRMPS.GotTopic(WRMPS.LeachHTML(eRs(1)),eLen-elOLen-elTLen,eTitleEllipsis) Else elTitle = eRs(1)
Select Case eExport
Case 2
GetArticle = GetArticle & "<td width='5%' align=center"&eTDCss&">"&eln &"</td>" & vbCrLf
GetArticle = GetArticle & "<td width=*"&eTDCss&">"&elHand&"<a href="&elTitLink&" target="&eOpenType&eLinkCss&elTips&">"&elTitHand&elTitle&elTitCauda&"</a>"&elCommentLink&elCaudaLogo&elCauda&"</td>" & vbCrLf
GetArticle = GetArticle & "<td width='5%'"&eTDCss&" align=center>"&eRs(11)&"</td>" & vbCrLf
GetArticle = GetArticle & "<td width='12%'"&eTDCss&" align=center>"&WRUser.DispUser(0,eRs(13))&"</td>" & vbCrLf
GetArticle = GetArticle & "<td width='23%'"&eTDCss&" align=center>"&eRs(12)&"</td>"& vbCrLf
Case 3
GetArticle = GetArticle & "<li"&WRMPS.LabelCss(eTDCSS2)&" style='width:5%;text-align:center'>"&eln &"</li>"
GetArticle = GetArticle & "<li"&WRMPS.LabelCss(eTDCSS2)&" style='width:55%'>"&elHand&"<a href="&elTitLink&" target="&eOpenType&eLinkCss&elTips&">"&elTitHand&elTitle&elTitCauda&"</a>"&elCommentLink&elCaudaLogo&elCauda&"</li>"
GetArticle = GetArticle & "<li"&WRMPS.LabelCss(eTDCSS2)&" style='width:5%;text-align:center'>"&eRs(11)&"</li>"
GetArticle = GetArticle & "<li"&WRMPS.LabelCss(eTDCSS2)&" style='width:12%;text-align:center'>"&WRUser.DispUser(0,eRs(13))&"</li>"
GetArticle = GetArticle & "<li"&WRMPS.LabelCss(eTDCSS2)&" style='width:23%;text-align:center'>"&eRs(12)&"</li>"
End Select
End Select
If eType = 6 Or eType = 7 Or eType = 8 Then eColsNum = 1
If eColsNum > 0 And eType <> 5 Then
If Int(eln) Mod eColsNum = 0 And eln <> eRs.RecordCount Then
Select Case eExport
Case 2
GetArticle = GetArticle & "</tr>"&vbCrLf&"<tr>"& vbCrLf
Case 3
If eType = 6 Or eType = 7 Then
If eln >= elTD_HNum Then GetArticle = GetArticle & "</ul>"&vbCrLf&"<ul"&WRMPS.LabelCss(eTDCSS1)&">"& vbCrLf
Else
GetArticle = GetArticle & "</ul>"&vbCrLf&"<ul"&WRMPS.LabelCss(eTDCSS1)&">"& vbCrLf
End If
End Select
End If
End If
eRs.movenext
Loop
If elST5 <> "" and IsNull(elST5) = False Then
elST5 = "<a href='javascript:goUrl()'><span>"&vbCrLf&"<script type='text/javascript'>"&vbCrLf&elST5
elST5 = elST5 & "var focus_width"&eANum&" = "&eWidth&vbCrLf&"var focus_height"&eANum&" = "&eHeight&vbCrLf&"var text_height"&eANum&" = 20"&vbCrLf&"var swf_height"&eANum&" = focus_height"&eANum&"+text_height"&eANum&""&vbCrLf
For eN = 1 To eli
If eN = 1 Then
ePics = "var pics"&eANum&"=imgUrl"&eN&eANum
eLinks = "var links"&eANum&"=imgLink"&eN&eANum
eTexts = "var texts"&eANum&"=imgtext"&eN&eANum
Else
ePics = ePics & "+""|""+imgUrl"&eN&eANum
eLinks = eLinks & "+""|""+imgLink"&eN&eANum
eTexts = eTexts & "+""|""+imgtext"&eN&eANum
End If
Next
elST5 = elST5 & ePics & vbCrLf & eLinks & vbCrLf & eTexts & vbCrLf
elST5 = elST5 & "document.write('<object classid=""clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"" codebase=""http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"" width=""'+ focus_width"&eANum&" +'"" height=""'+ swf_height"&eANum&" +'"">');" & vbCrLf
elST5 = elST5 & "document.write('<param name=""allowScriptAccess"" value=""sameDomain""><param name=""movie"" value="""&UrlPath&"Images/lanternslide.swf""><param name=""quality"" value=""high""><param name=""bgcolor"" value=""#F0F0F0"">');" & vbCrLf
elST5 = elST5 & "document.write('<param name=""menu"" value=""false""><param name=wmode value=""opaque"">');" & vbCrLf
elST5 = elST5 & "document.write('<param name=""FlashVars"" value=""pics='+pics"&eANum&"+'&links='+links"&eANum&"+'&texts='+texts"&eANum&"+'&borderwidth='+focus_width"&eANum&"+'&borderheight='+focus_height"&eANum&"+'&textheight='+text_height"&eANum&"+'"">');" & vbCrLf
elST5 = elST5 & "document.write('<embed src="""&UrlPath&"Images/lanternslide.swf"" wmode=""opaque"" FlashVars=""pics='+pics"&eANum&"+'&links='+links"&eANum&"+'&texts='+texts"&eANum&"+'&borderwidth='+focus_width"&eANum&"+'&borderheight='+focus_height"&eANum&"+'&textheight='+text_height"&eANum&"+'"" menu=""false"" bgcolor=""#F0F0F0"" quality=""high"" width=""'+ focus_width"&eANum&" +'"" height=""'+ focus_height"&eANum&" +'"" allowScriptAccess=""sameDomain"" type=""Application/x-shockwave-flash"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" />');" & vbCrLf
elST5 = elST5 & "document.write('</object>');" & vbCrLf
elST5 = elST5 & "</script>" & vbCrLf & "</span></a>" & vbCrLf & "<span id=focustext"&eANum&"></span>" & vbCrLf
End If
If elPIC = "" Then elPIC = "<Img Src='"&UrlPath&"Skins/"&WR_Setting(5)&"/nopic.gif' Width="&eWidth&" Height="&eHeight&" border=0>"
If eType = 6 Or eType = 7 Then GetArticle=Replace(GetArticle,"{#Pic}",elPIC) & vbCrLf
Select Case eExport
Case 2
GetArticle = GetArticle & "</tr></table>" & vbCrLf
Case 3
GetArticle = GetArticle & "</ul></div>"& vbCrLf
End Select
If eType = 5 Then GetArticle = elST5 & vbCrLf
End If
eRs.Close
elST5 = "":eANum = "":elTDPIC = "":elPIC = "":eShowNum = 0
End Function
'========================================================================================
'个性化文章调用标签
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -