📄 powereasy.product.asp
字号:
End If
End Select
Dim Product_ClassID
If UseCreateHTML > 0 Or ShowClassName = True Then
Product_ClassID = rsProductList("ClassID")
Else
Product_ClassID = 0
End If
If ShowClassName = True And Product_ClassID <> -1 Then
strLink = Replace(Character_Class, "{$Text}", "<a href=""" & GetClassUrl(rsProductList("ParentDir"), rsProductList("ClassDir"), Product_ClassID, 0) & """>" & rsProductList("ClassName") & "</a>")
Else
strLink = ""
End If
If ShowType = 5 Then
strLink = "http://" & Trim(Request.ServerVariables("HTTP_HOST"))
If Not (UrlType = 0 Or Left(ChannelUrl, 1) <> "/") Then
If UseCreateHTML > 0 Then
strLink = strLink & GetProductUrl(rsProductList("ParentDir"), rsProductList("ClassDir"), rsProductList("UpdateTime"), rsProductList("ProductID")) & """"
Else
strLink = strLink & GetProductUrl("", "", "", rsProductList("ProductID")) & """"
End If
End If
Else
If UrlType = 0 Or Left(ChannelUrl, 1) <> "/" Then
strLink = strLink & "<a class=""productlist_A"" href="""
Else
strLink = strLink & "<a class=""productlist_A"" href=""http://" & Trim(Request.ServerVariables("HTTP_HOST"))
End If
If UseCreateHTML > 0 Then
strLink = strLink & GetProductUrl(rsProductList("ParentDir"), rsProductList("ClassDir"), rsProductList("UpdateTime"), rsProductList("ProductID")) & """"
Else
strLink = strLink & GetProductUrl("", "", "", rsProductList("ProductID")) & """"
End If
strLink = strLink & " title=""" & rsProductList("ProductName") & """"
If OpenType = 0 Then
strLink = strLink & " target=""_self"">"
Else
strLink = strLink & " target=""_blank"">"
End If
End If
Select Case PE_CLng(ShowType)
Case 1
If Cols > 1 Then
strProductList = strProductList & "<td class='" & CssName & "'>"
End If
strProductList = strProductList & strProperty & " " & strLink & TitleStr & "</a>"
If ShowDateType > 0 Then
strProductList = strProductList & " (" & GetUpdateTimeStr(rsProductList("UpdateTime"), ShowDateType) & ")"
End If
If ShowHotSign = True And rsProductList("IsHot") = True Then
strProductList = strProductList & "<img src='" & strInstallDir & "images/hot.gif' alt='" & strHot & ChannelShortName & "'>"
End If
If ShowNewSign = True And DateDiff("D", rsProductList("UpdateTime"), Now()) < DaysOfNew Then
strProductList = strProductList & "<img src='" & strInstallDir & "images/new.gif' alt='" & strNew & ChannelShortName & "'>"
End If
If ShowButtonType > 0 Then
strProductList = strProductList & " " & GetButtons(ShowButtonType, ButtonStyle, rsProductList("ProductID"), strLink)
End If
If ContentLen > 0 Then
strProductList = strProductList & "<div " & strList_Content_Div & ">" & Left(Replace(Replace(nohtml(rsProductList("ProductIntro")), ">", ">"), "<", "<"), ContentLen) & "……</div>"
End If
strProductList = strProductList & "<br>"
iCount = iCount + 1
If Cols > 1 Then
strProductList = strProductList & "</td>"
If iCount Mod Cols = 0 Then
strProductList = strProductList & "</tr><tr>"
iLines = iLines + 1
If IntervalLines > 0 Then
If iLines Mod IntervalLines = 0 Then strProductList = strProductList & "<td></td></tr><tr>"
End If
If iCount Mod 2 = 0 Then
CssName = CssName1
Else
CssName = CssName2
End If
End If
Else
If IntervalLines > 0 Then
If iCount Mod IntervalLines = 0 Then strProductList = strProductList & "<table class='IntervalHeight'><tr><td></td></tr></table>"
End If
End If
Case 2
If strProperty <> "" Then
strProductList = strProductList & "<td width='10' class='" & CssName & "'>" & strProperty & "</td>"
End If
strProductList = strProductList & "<td class='" & CssName & "'>" & strLink & TitleStr & "</a>"
If ShowHotSign = True And rsProductList("IsHot") = True Then
strProductList = strProductList & "<img src='" & strInstallDir & "images/hot.gif' alt='" & strHot & ChannelShortName & "'>"
End If
If ShowNewSign = True And DateDiff("D", rsProductList("UpdateTime"), Now()) < DaysOfNew Then
strProductList = strProductList & "<img src='" & strInstallDir & "images/new.gif' alt='" & strNew & ChannelShortName & "'>"
End If
strProductList = strProductList & "</td>"
If ShowProductModel = True Then
strProductList = strProductList & "<td class='" & CssName & "'>" & rsProductList("ProductModel") & "</td>"
End If
If ShowProductStandard = True Then
strProductList = strProductList & "<td class='" & CssName & "'>" & rsProductList("ProductStandard") & "</td>"
End If
If ShowDateType > 0 Then
strProductList = strProductList & "<td class='" & CssName & "'>" & GetUpdateTimeStr(rsProductList("UpdateTime"), ShowDateType) & "</td>"
End If
If ShowUnit = True Then
strProductList = strProductList & "<td align='center' class='" & CssName & "'>" & rsProductList("Unit") & "</td>"
End If
Select Case PE_CLng(ShowStocksType)
Case 1
strProductList = strProductList & "<td align='right' class='" & CssName & "'>" & rsProductList("Stocks") - rsProductList("OrderNum") & "</td>"
Case 2
strProductList = strProductList & "<td align='right' class='" & CssName & "'>" & rsProductList("Stocks") & "</td>"
End Select
If ShowWeight = True Then
strProductList = strProductList & "<td align='right' class='" & CssName & "'>" & rsProductList("Weight") & "Kg</td>"
End If
If ShowPrice_Market = True Then
strProductList = strProductList & "<td align='right' class='" & CssName & "'>" & GetPrice_Market(rsProductList("Price_Market")) & "</td>"
End If
If ShowPrice_Original = True Then
strProductList = strProductList & "<td align='right' class='" & CssName & "'>" & GetPrice_FilterZero(rsProductList("Price_Original")) & "</td>"
End If
If ShowPrice = True Then
strProductList = strProductList & "<td align='right' class='" & CssName & "'>" & GetCurrentPrice(rsProductList("ProductType"), rsProductList("BeginDate"), rsProductList("EndDate"), rsProductList("Price_Original"), rsProductList("Price")) & "</td>"
End If
If ShowPrice_Member = True Then
strProductList = strProductList & "<td align='right' class='" & CssName & "'>" & GetPrice_Member(rsProductList("Price_Member")) & "</td>"
End If
If ShowDiscount = True Then
strProductList = strProductList & "<td align='center' class='" & CssName & "'>" & GetDiscount(rsProductList("ProductType"), rsProductList("Discount"), rsProductList("BeginDate"), rsProductList("EndDate")) & "</font></td>"
End If
If ShowButtonType > 0 Then
strProductList = strProductList & "<td align='center' class='" & CssName & "'>" & GetButtons(ShowButtonType, ButtonStyle, rsProductList("ProductID"), strLink) & "</td>"
End If
iCount = iCount + 1
If (iCount Mod Cols = 0) Or ContentLen > 0 Then
strProductList = strProductList & "</tr>"
If ContentLen > 0 Then
strProductList = strProductList & "<tr><td colspan='10'>" & Left(Replace(Replace(nohtml(rsProductList("ProductIntro")), ">", ">"), "<", "<"), ContentLen) & "……</td></tr>"
End If
strProductList = strProductList & "<tr>"
iLines = iLines + 1
If IntervalLines > 0 Then
If iLines Mod IntervalLines = 0 Then strProductList = strProductList & "<td class='IntervalHeight'></td></tr><tr>"
End If
If iCount Mod (Cols * 2) = 0 Then
CssName = CssName1
Else
CssName = CssName2
End If
End If
Case 3
If Cols > 1 Then
strProductList = strProductList & "<td class='" & CssName & "'>"
End If
strProductList = strProductList & strProperty & " " & strLink & TitleStr & "</a>"
If ShowDateType > 0 Then
strProductList = strProductList & Replace(Character_Date, "{$Text}", GetUpdateTimeStr(rsProductList("UpdateTime"), ShowDateType))
End If
If ShowHotSign = True And rsProductList("IsHot") = True Then
strProductList = strProductList & "<img src='" & strInstallDir & "images/hot.gif' alt='" & strHot & ChannelShortName & "'>"
End If
If ShowNewSign = True And DateDiff("D", rsProductList("UpdateTime"), Now()) < DaysOfNew Then
strProductList = strProductList & "<img src='" & strInstallDir & "images/new.gif' alt='" & strNew & ChannelShortName & "'>"
End If
If ShowButtonType > 0 Then
strProductList = strProductList & " " & GetButtons(ShowButtonType, ButtonStyle, rsProductList("ProductID"), strLink)
End If
If ContentLen > 0 Then
strProductList = strProductList & "<div " & strList_Content_Div & ">" & Left(Replace(Replace(nohtml(rsProductList("ProductIntro")), ">", ">"), "<", "<"), ContentLen) & "……</div>"
End If
strProductList = strProductList & "<br>"
iCount = iCount + 1
If Cols > 1 Then
strProductList = strProductList & "</td>"
If iCount Mod Cols = 0 Then
strProductList = strProductList & "</tr><tr>"
If iCount Mod 2 = 0 Then
CssName = CssName1
Else
CssName = CssName2
End If
End If
End If
Case 4
strProductList = strProductList & "<div class=""" & CssName & """>"
strProductList = strProductList & strProperty & " " & strLink & TitleStr & "</a>"
If ShowDateType > 0 Then
strProductList = strProductList & Replace(Character_Date, "{$Text}", GetUpdateTimeStr(rsProductList("UpdateTime"), ShowDateType))
End If
If ShowHotSign = True And rsProductList("IsHot") = True Then
strProductList = strProductList & "<img src=""" & strInstallDir & "images/hot.gif"" alt=""" & strHot & ChannelShortName & """>"
End If
If ShowNewSign = True And DateDiff("D", rsProductList("UpdateTime"), Now()) < DaysOfNew Then
strProductList = strProductList & "<img src=""" & strInstallDir & "images/new.gif"" alt=""" & strNew & ChannelShortName & """>"
End If
If ShowButtonType > 0 Then
strProductList = strProductList & "<div class=""product_list_button"">" & GetButtons(ShowButtonType, ButtonStyle, rsProductList("ProductID"), strLink) & "</div>"
End If
If ContentLen > 0 Then
strProductList = strProductList & "<div class=""product_list_content"">" & Left(Replace(Replace(nohtml(rsProductList("ProductIntro")), ">", ">"), "<", "<"), ContentLen) & "……</div>"
End If
strProductList = strProductList & "</div>"
iCount = iCount + 1
If iCount Mod 2 = 0 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -