📄 cls.label.asp
字号:
End Select
End If
End If
Next
Select Case eExport
Case 2
GetLinks = GetLinks & "</tr></table>" & vbCrLf
Case 3
GetLinks = GetLinks & "</ul></div>" & vbCrLf
End Select
End Function
'========================================================================================
'文章栏目菜单
Function GetArticleSort(Str)
Str = Split(Str,",")
eBigID = Int(Str(0))
eExport = Int(Str(1))
eTDCSS = Str(2)
eTDCSS1 = Str(3)
eTDCSS2 = Str(4)
eTDStopCSS = Str(5)
eColsNum = Int(Str(6))
eCSS = Str(7)
eExplain = Int(Str(8))
eOpenType = Str(9)
eSymbol = Str(10)
eSymbolCSS = Str(11)
eArticleSort = ""
e_CSS = WRMPS.LabelCss(eCSS)
e_BigID = " WM_ParentID = 0"
If eBigID > 0 Then
e_BigID = " WM_ParentID = "&eBigID
ElseIf eBigID < 0 Then
If ClassID <> "" Then e_BigID = " WM_ParentID = "&ClassID
End If
Set eRso = Conn.Execute("Select WM_ChannelID From WM_ArticleSort Where"&e_BigID)
If Not eRso.Eof Then eChannelID = eRso(0)
eRso.Close
If eChannelID = "" Then Exit Function
eRs.Open"Select WM_ID,WM_Name,WM_Type,WM_Title,WM_Url,WM_Dir,WM_ParentDir,WM_ChannelDir,WM_ChannelID From WM_ArticleSort Where"&e_BigID&" And WM_ShowOnParent=1 Order By WM_ClassID,WM_Taxis",Conn,1,1
Do While Not eRs.Eof
eDir = eRs(5)
eParentDir = eRs(6)
eChannelDir = eRs(7)
eUrl = eRs(4)
If eExplain = 1 Then e_Explain = " title='"&eRs(3)&"'" Else e_Explain = ""
Select Case eRs(2)
Case 0
eToUrl = WRMPS.GetClassUrl(0,1,0,eUrl,eRs(0))
Case 1
eToUrl = WRMPS.GetClassUrl(0,1,1,eChannelDir&eParentDir&eDir,eRs(0))
End Select
If eArticleSort = "" Then
eArticleSort = "<a href="&eToUrl&" target='"&eOpenType&"'"&e_CSS&e_Explain&">"&eRs(1)&"</a>"
Else
eArticleSort = eArticleSort & "|" & "<a href="&eToUrl&" target='"&eOpenType&"'"&e_CSS&e_Explain&">"&eRs(1)&"</a>"
End If
eRs.MoveNext
Loop
eRs.Close
If eSymbol <> "§" Then eSymbol = "<font"&WRMPS.LabelCss(eSymbolCSS)&">"&Split(eSymbol,"§")(0)&"</font>{$$Menu$$}<font"&WRMPS.LabelCss(eSymbolCSS)&">"&Split(eSymbol,"§")(1)&"</font>" Else eSymbol = "{$$Menu$$}"
eArticleSort = Split(eArticleSort,"|")
Select Case eExport
Case 2
GetArticleSort = "<table border=0 cellspacing=0 cellpadding=0><tr>" & vbCrLf
Case 3
GetArticleSort = "<div"&WRMPS.LabelCss(eTDCSS)&"><ul"&WRMPS.LabelCss(eTDCSS1)&">" & vbCrLf
End Select
For eI = 0 To UBound(eArticleSort)
Select Case eExport
Case 1
GetArticleSort = GetArticleSort&Replace(eSymbol,"{$$Menu$$}",eArticleSort(eI))
Case 2
GetArticleSort = GetArticleSort&" <td"&WRMPS.LabelCss(eTDCSS)&" onMouseOut='mOver(this.ClassName="""&eTDCSS&""")' onMouseOver='mOver(this.ClassName="""&eTDStopCSS&""")'>"&Replace(eSymbol,"{$$Menu$$}",eArticleSort(eI))&"</td>" & vbCrLf
Case 3
GetArticleSort = GetArticleSort&" <li"&WRMPS.LabelCss(eTDCSS2)&" onMouseOut='mOver(this.ClassName="""&eTDCSS2&""")' onMouseOver='mOver(this.ClassName="""&eTDStopCSS&""")'>"&Replace(eSymbol,"{$$Menu$$}",eArticleSort(eI))&"</li>"
End Select
If eColsNum > 0 Then
If (eI + 1) mod eColsNum = 0 Then
Select Case eExport
Case 1
GetArticleSort = GetArticleSort&"<br>" & vbCrLf
Case 2
If UBound(eArticleSort) > eI Then GetArticleSort = GetArticleSort&"</tr>" & vbCrLf & "<tr>"
Case 3
If UBound(eArticleSort) > eI Then GetArticleSort = GetArticleSort&"</ul>" & vbCrLf & "<ul"&WRMPS.LabelCss(eTDCSS1)&">" & vbCrLf
End Select
End If
End If
Next
Select Case eExport
Case 2
GetArticleSort = GetArticleSort & "</tr></table>" & vbCrLf
Case 3
GetArticleSort = GetArticleSort & "</ul></div>" & vbCrLf
End Select
End Function
'========================================================================================
'文章调用标签
Function GetArticle(Str)
Randomize Timer
eANum=Left(Int(Rnd*9998)+1000,4)
If Len(eANum)>4 Then eANum=Len(eANum&9999,4)
Str = Split(Str,",")
eChannel = Str(0)
eExport = Int(Str(1))
eType = Int(Str(2))
eClass = Str(3)
eChildClass = Int(Str(4))
eIsDefault = Int(Str(5))
eIsHot = Int(Str(6))
eIsElite = Int(Str(7))
eShowNum = Int(Str(8))
eColsNum = Int(Str(9))
eInputerName = Str(10)
eDayNum = Int(Str(11))
eTitleHand = Str(12)
eHandLinkCss = Str(13)
eHandOpenType = Str(14)
eHandSymbol = Str(15)
eHandSymbolCSS = Str(16)
eLen = Int(Str(17))
eTitleEllipsis = Int(Str(18))
eTips = Int(Str(19))
eShowIncludePic = Int(Str(20))
eOrderType = Int(Str(21))
eLinkCss = Str(22)
eOpenType = Str(23)
eCommentLink = Int(Str(24))
eCommentCss = Str(25)
eHotSign = Int(Str(26))
eHotNum = Int(Str(27))
eDateType = Int(Str(28))
eNewSign = Int(Str(29))
eNewNum = Int(Str(30))
eEditor = Int(Str(31))
eHits = Int(Str(32))
eTeilSymbol = Str(33)
eTeilSymbolCSS = Str(34)
eContentLen = Int(Str(35))
eContentCSS = Str(36)
eWidth = Int(Str(37))
eHeight = Int(Str(38))
eTDCss = Str(39)
eCommend = Int(Str(40))
eTDCSS1 = Str(41)
eTDCSS2 = Str(42)
'调用频道
elChannel = "":elOrderType="":elIsDefault=""
If eChannel<>"" Then
If Ucase(eChannel) = "CHANNEL" Then
If ClassID <> "" Then eClass = "CLASS"
If ChannelID <> "" Then elChannel=" And A.WM_ChannelID="&ChannelID Else elChannel = ""
Else
eCID=Split(eChannel,"|")
For eli=0 To UBound(eCID)
If elChannel = "" Then
elChannel = eCID(eli)
Else
elChannel = elChannel&","&eCID(eli)
End If
Next
elChannel=" 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 eChildClass > 0 Then eClass = WRDB.GetChildClass(eClass,"WM_ArticleSort")
elClass = " and A.WM_ClassID in("&eClass&")"
End If
If eType = 3 Or eType = 4 Or eType = 5 Then
elIsDefault=" And A.WM_DefaultPicUrl Is Not Null And A.WM_DefaultPicUrl <> ''"
If eIsDefault > 0 Then elIsDefault = elIsDefault & " And A.WM_DefaultShow=1"
Else
If eIsDefault > 0 Then elIsDefault = " And A.WM_DefaultShow=1" Else elIsDefault = ""
End If
If eIsHot>0 Then elIsHot=" And A.WM_Hot=1" Else elIsHot=""
If eIsElite>0 Then elIsElite=" And A.WM_Commend=1" Else elIsElite=""
If Ucase(eInputerName) = "C" Then eInputerName = Author
If eInputerName<>"" Then eInputerName=" And A.WM_Editor='"&eInputerName&"'" Else eInputerName=""
If eDayNum>0 Then elDayNum=" And A.WM_AddTime >= ("&ConnTime&"-"&eDayNum&")" Else elDayNum=""
eLinkCss = WRMPS.LabelCss(eLinkCss)
eHandLinkCss = WRMPS.LabelCss(eHandLinkCss)
eCommentCss = WRMPS.LabelCss(eCommentCss)
eTDCss = WRMPS.LabelCss(eTDCss)
If eWidth > 0 Then elWidth = " width:"&eWidth&"px;" Else elWidth = ""
If eHeight > 0 Then elHeight = " Height:"&eHeight&"px;" Else elHeight = ""
'排序方式
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
GetArticle = GetArticle & "<table width='100%' border=0 cellspacing=0 cellpadding=0><tr>" & vbCrLf
Case 3
GetArticle = GetArticle & "<div"&eTDCss&"><ul"&WRMPS.LabelCss(eTDCSS1)&">" & vbCrLf
End Select
Select Case Ucase(eTitleHand)
Case "CLASS"
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 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"&elIsElite&elIsHot&elClass&elIsDefault&elChannel&eInputerName&elDayNum&elOrderType
Case Else
e_Sql = Replace("Select Top "&eShowNum&" WM_ID,WM_Title,WM_ClassDir,WM_ClassID,WM_TitlePrefixion,WM_TitleReview,WM_Content,WM_TitleColor,WM_TitleFont,WM_LinkUrl,WM_Hot,WM_Hit,WM_AddTime,WM_Editor,WM_DefaultPicUrl,WM_Commend,WM_Synopsis,WM_ChannelDir,WM_ChannelID from WM_Article Where WM_IsDeleted=0 and WM_Passed=1"&elIsElite&elIsHot&elClass&elIsDefault&elChannel&eInputerName&elDayNum&elOrderType,"A.","")
End Select
eRs.Open e_Sql,Conn,1,1
If eRs.Eof Then
Select Case eExport
Case 2
GetArticle = GetArticle & "<td></td></tr></table>"
Case 3
GetArticle = GetArticle & "</div>"
End Select
Else
eln=0
eli=0
elPIC = ""
Do While not eRs.eof
If eShowNum > 0 Then If eln > eShowNum-1 Then Exit Function
eln=eln+1
elOLen = 0
elTLen = 0
elRevert = 0
elHand = ""
elCommentLink = ""
elCauda = ""
elCaudaLogo = ""
elTitHand = ""
elTitCauda = ""
'标题前内容
Select Case Ucase(eTitleHand)
Case "CLASS"
elHand = eRs(20)
elOLen = elOLen+WRMPS.StrLength(elHand)
elHand = "<a href="&WRMPS.GetClassUrl(0,1,1,eRs(17)&eRs(2),eRs(19))&" target="&eHandOpenType&eHandLinkCss&">"&elHand&"</a>"
Case "ID"
elHand = eRs(0)
elOLen = elOLen+WRMPS.StrLength(elHand)
Case Else
elHand = eTitleHand
elOLen = elOLen+WRMPS.StrLength(elHand)
End Select
If elHand <> "" Then elHand = Split(eHandSymbol,"§")(0)&elHand&Split(eHandSymbol,"§")(1):elOLen = elOLen+WRMPS.StrLength(eHandSymbol)-2
If eHandSymbolCSS <> "" Then elHand = "<Font"&WRMPS.LabelCss(eHandSymbolCSS)&">"&elHand&"</Font>"
If eShowIncludePic > 0 And eRs(4) <> "" Then
elOLen = elOLen+WRMPS.StrLength(eRs(4))
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>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -