📄 cls.label.asp
字号:
Select Case eOrderType
Case 1
elOrderType=" Order By WM_ID Desc"
Case 2
elOrderType=" Order By WM_Hit Desc,WM_ID Desc"
Case 3
elOrderType=" Order By WM_Re Desc,WM_ID Desc"
Case 4
elOrderType=" Order By WM_Collection Desc,WM_ID Desc"
Case 5
elOrderType=" Order By WM_DefaultShow Desc,WM_ID Desc"
Case 6
elOrderType=" Order By WM_Hot Desc,WM_ID Desc"
Case 7
elOrderType=" Order By WM_Commend Desc,WM_ID Desc"
Case 8
elOrderType=" Order By WM_Grade Desc,WM_ID Desc"
End Select
elContent = WRMPS.HCode(2,eContent,"{\$CycBegin}","{\$CycEnd}")
Select Case eExport
Case 2
GetArticleSortList = GetArticleSortList & "<table width='100%' border=0 cellpadding=0 cellspacing=0><tr>"
Case 3
GetArticleSortList = GetArticleSortList & "<div"&WRMPS.LabelCss(eTDCSS)&"><ul"&WRMPS.LabelCss(eTDCSS1)&">" & vbCrLf
End Select
e_Sql = "Select"&elSortNum&" WM_ID,WM_Name,WM_ChannelDir,WM_ChannelID,WM_ParentDir,WM_Dir From WM_ArticleSort Where WM_Type = 1"&eLSql&" Order By WM_ClassID,WM_Taxis"
eRs.Open e_Sql,Conn,1,1
eI = 0
Do While Not eRs.Eof
eI = eI + 1
eTemp = ""
elPic = ""
elPICUrl = ""
Select Case eExport
Case 2
GetArticleSortList = GetArticleSortList & "<td"&WRMPS.LabelCss(eTDCSS)&" valign=top>"
Case 3
GetArticleSortList = GetArticleSortList & "<li"&WRMPS.LabelCss(eTDCSS2)&">" & vbCrLf
End Select
GetArticleSortList = GetArticleSortList & eContent
GetArticleSortList = WRMPS.GetReplace(GetArticleSortList,"{$SName}",eRs(1))
GetArticleSortList = WRMPS.GetReplace(GetArticleSortList,"{$SUrl}",WRMPS.GetClassUrl(0,1,1,eRs(2)&eRs(4)&eRs(5),eRs(0)))
elClassID = ""
elClassID = WRDB.GetChildClass(eRs(0),"WM_ArticleSort")
eRso.Open "Select"&elNum&" WM_ID,WM_Title,WM_TitlePrefixion,WM_TitleReview,WM_TitleColor,WM_TitleFont,WM_LinkUrl,WM_Hot,WM_Hit,WM_AddTime,WM_Editor,WM_DefaultPicUrl,WM_Commend,WM_CopyFrom,WM_Author,WM_Re from WM_Article Where WM_ClassID in("&elClassID&") and WM_IsDeleted=0 and WM_Passed=1"&eSql&elOrderType,Conn,1,1
Do While Not eRso.Eof
eTemp = eTemp & elContent
eTemp = WRMPS.GetReplace(eTemp,"{$ID}",eRso(0))
If eLen > 0 Then elTitle = WRMPS.GotTopic(WRMPS.LeachHTML(eRso(1)),eLen,eTitleEllipsis) Else elTitle = eRso(1)
If eRso(4) <> "" Then elTitle = "<Font Color="&eRso(4)&">"&elTitle&"</Font>"
Select Case eRso(5)
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,eRso(0),eRso(9),eRs(2)&eRs(4)&eRs(5)&"/",eRs(3))
eTemp = WRMPS.GetReplace(eTemp,"{$Url}",elTitLink)
If Instr(eTemp,"{$Prefixion}") > 0 Then
Select Case eRso(2)
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 eRso(3) > 0 Then eTemp = WRMPS.GetReplace(eTemp,"{$ReviewLink}","<a href="&UrlPath&eRs(2)&"/Review.asp?ID="&eRso(0)&" target='_blank'><img src='"&UrlPath&"Skins/"&WR_Setting(5)&"/Re.gif' border=0 align=absmiddle></a>") Else eTemp = WRMPS.GetReplace(eTemp,"{$ReviewLink}","")
End If
If Instr(eTemp,"{$HotSign}") > 0 Then
If eRso(7)>0 Then
eTemp = WRMPS.GetReplace(eTemp,"{$HotSign}","<Img Src='"&UrlPath&"Skins/"&WR_Setting(5)&"/Hot.gif' alt='热门' align=absmiddle>")
Else
If eHotNum > 0 and eRso(8)>=eHotNum Then eTemp = WRMPS.GetReplace(eTemp,"{$HotSign}","<Img Src='"&UrlPath&"Skins/"&WR_Setting(5)&"/Hot.gif' alt='热门' align=absmiddle>")
End if
End If
eTemp = WRMPS.GetReplace(eTemp,"{$HotSign}","")
If Instr(eTemp,"{$CommendSign}") > 0 Then
If eRso(12)>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}","")
End If
End If
If Instr(eTemp,"{$NewSign}") > 0 Then
If eRso(9) >= (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}","")
End If
End If
eTemp = WRMPS.GetReplace(eTemp,"{$CopyForm}",eRso(13))
eTemp = WRMPS.GetReplace(eTemp,"{$Author}",eRso(14))
eTemp = WRMPS.GetReplace(eTemp,"{$Editor}",eRso(10))
eTemp = WRMPS.GetReplace(eTemp,"{$Hit}",eRso(8))
eTemp = WRMPS.GetReplace(eTemp,"{$Re}",eRso(15))
eTemp = WRMPS.GetReplace(eTemp,"{$Year}",Year(eRso(9)))
eTemp = WRMPS.GetReplace(eTemp,"{$Month}",Month(eRso(9)))
eTemp = WRMPS.GetReplace(eTemp,"{$Day}",Day(eRso(9)))
eTemp = WRMPS.GetReplace(eTemp,"{$Hour}",Hour(eRso(9)))
eTemp = WRMPS.GetReplace(eTemp,"{$Minute}",Minute(eRso(9)))
eTemp = WRMPS.GetReplace(eTemp,"{$Second}",Second(eRso(9)))
If elPic = "" Then
If eRso(11)<>"" Then
elPIC = WRMPS.CheckStr(eRso(11),5)
elPICUrl = elTitLink
End If
End If
eRso.MoveNext
Loop
eRso.Close
If elPic = "" Then
elPic = UrlPath&"Skins/"&WR_Setting(5)&"/nopic.gif"
elPICUrl = WRMPS.GetClassUrl(0,1,1,eRs(2)&eRs(4)&eRs(5),eRs(0))
End If
GetArticleSortList = WRMPS.GetReplace(GetArticleSortList,"{$SPic}",elPic)
GetArticleSortList = WRMPS.GetReplace(GetArticleSortList,"{$SPUrl}",elPICUrl)
GetArticleSortList = WRMPS.GetReplace(GetArticleSortList,"{$CycBegin}"&elContent&"{$CycEnd}",eTemp)
Select Case eExport
Case 2
GetArticleSortList = GetArticleSortList & "</td>"
Case 3
GetArticleSortList = GetArticleSortList & "</li>"
End Select
If eColsNum > 0 Then
If eI Mod eColsNum = 0 Then
Select Case eExport
Case 2
GetArticleSortList = GetArticleSortList & "</tr><tr>"
Case 3
GetArticleSortList = GetArticleSortList & "</ul><ul"&WRMPS.LabelCss(eTDCSS1)&">" & vbCrLf
End Select
End If
End If
eRs.MoveNext
Loop
eRs.Close
Select Case eExport
Case 2
GetArticleSortList = GetArticleSortList & "</tr></table>"
Case 3
GetArticleSortList = GetArticleSortList & "</ul></div>" & vbCrLf
End Select
GetArticleSortList = WRMPS.GetReplace(GetArticleSortList,"@@@@@@","")
eTemp = ""
End Function
'========================================================================================
'分类信息分类
Function GetClassSort(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)
eClassSort = ""
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 Top 1 WM_ChannelID From WM_ClassSort")
If Not eRso.Eof Then eChannelID = eRso(0)
eRso.Close
If eChannelID = "" Then Exit Function
eRs.Open"Select WM_ID,WM_Name,WM_Dir,WM_ParentDir,WM_ChannelDir From WM_ClassSort Where"&e_BigID&" Order By WM_ClassID,WM_Taxis",Conn,1,1
Do While Not eRs.Eof
eDir = eRs(2)
eParentDir = eRs(3)
eChannelDir = eRs(4)
If eClassSort = "" Then
eClassSort = "<a href="&WRMPS.GetClassUrl(0,1,1,eChannelDir&eParentDir&eDir,eRs(0))&" target='"&eOpenType&"'"&e_CSS&">"&eRs(1)&"</a>"
Else
eClassSort = eClassSort & "@@@" & "<a href="&WRMPS.GetClassUrl(0,1,1,eChannelDir&eParentDir&eDir,eRs(0))&" target='"&eOpenType&"'"&e_CSS&">"&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$$}"
eClassSort = Split(eClassSort,"@@@")
Select Case eExport
Case 2
GetClassSort = "<table border=0 cellspacing=0 cellpadding=0><tr>" & vbCrLf
Case 3
GetClassSort = "<div"&WRMPS.LabelCss(eTDCSS)&"><ul"&WRMPS.LabelCss(eTDCSS1)&">" & vbCrLf
End Select
For eI = 0 To UBound(eClassSort)
Select Case eExport
Case 1
GetClassSort = GetClassSort&Replace(eSymbol,"{$$Menu$$}",eClassSort(eI))
Case 2
GetClassSort = GetClassSort&" <td"&WRMPS.LabelCss(eTDCSS)&" onMouseOut='mOver(this.ClassName="""&eTDCSS&""")' onMouseOver='mOver(this.ClassName="""&eTDStopCSS&""")'>"&Replace(eSymbol,"{$$Menu$$}",eClassSort(eI))&"</td>" & vbCrLf
Case 3
GetClassSort = GetClassSort&" <li"&WRMPS.LabelCss(eTDCSS2)&" onMouseOut='mOver(this.ClassName="""&eTDCSS2&""")' onMouseOver='mOver(this.ClassName="""&eTDStopCSS&""")'>"&Replace(eSymbol,"{$$Menu$$}",eClassSort(eI))&"</li>"
End Select
If eColsNum > 0 Then
If (eI + 1) mod eColsNum = 0 Then
Select Case eExport
Case 1
GetClassSort = GetClassSort&"<br>" & vbCrLf
Case 2
If UBound(eClassSort) > eI Then GetClassSort = GetClassSort&"</tr>" & vbCrLf & "<tr>"
Case 3
If UBound(eClassSort) > eI Then GetClassSort = GetClassSort&"</ul>" & vbCrLf & "<ul"&WRMPS.LabelCss(eTDCSS1)&">" & vbCrLf
End Select
End If
End If
Next
Select Case eExport
Case 2
GetClassSort = GetClassSort & "</tr></table>" & vbCrLf
Case 3
GetClassSort = GetClassSort & "</ul></div>" & vbCrLf
End Select
End Function
'========================================================================================
'个性分类信息分类
Function GetInClassSort(Str)
Str = Split(Str,",")
eExport = Int(Str(0))
eTDCSS = Str(1)
eTDCSS1 = Str(2)
eTDCSS2 = Str(3)
eCTDCSS = Str(4)
eCTDCSS1 = Str(5)
eCTDCSS2 = Str(6)
eBNum = Int(Str(7))
eBCols = Int(Str(8))
eBFontNum = Int(Str(9))
eBCss = Str(10)
eBCompart = Str(11)
eBCompartCss = Str(12)
eTarget = Str(13)
eChild = Int(Str(14))
eBigID = Str(15)
eCNum = Int(Str(16))
eCCols = Int(Str(17))
eCCss = Str(18)
eCFontNum = Int(Str(19))
eCCompart = Str(20)
eCCompartCss = Str(21)
eCTarget = Str(22)
eBShow = Int(Str(23))
eBShowCss = Str(24)
eCShow = Int(Str(25))
eCShowCss ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -