📄 class.asp
字号:
If arrPage(3,i) > Now() Then TitStyle = "color:"&arrPage(4,i)
If arrPage(5,i) > Now() Then TitStyle = TitStyle & ";background:"&arrPage(6,i)
If arrPage(7,i) > Now() Then TitStyle = TitStyle & ";font-weight:bold"
If TitStyle <> "" Then Title = "<span style='"&TitStyle&"'>"&Title&"</span>"
CycTemp = WRMPS.GetReplace(CycTemp,"{$Company}",Title)
CycTemp = WRMPS.GetReplace(CycTemp,"{$Url}",WRMPS.GetCompanyUrl(arrPage(0,i)))
If Instr(CycTemp,"{$Tags}") > 0 Then
Tag = arrPage(8,i)
If Tag <> "" and Isnull(Tag) = false Then
Tag = Split(Tag,",")
For n=0 To UBound(Tag)
If Tag(n) <> "" Then
If Tags = "" Then
Tags = "<a href="&WR_Setting(3)&"Search/Y?Key="&escape(Tag(n))&" target=_blank>"&Tag(n)&"</a>"
Else
Tags = Tags&",<a href="&WR_Setting(3)&"Search/Y?Key="&escape(Tag(n))&" target=_blank>"&Tag(n)&"</a>"
End If
End If
Next
Else
Tags = ""
End If
CycTemp = WRMPS.GetReplace(CycTemp,"{$Tags}",Tags)
End If
CycTemp = WRMPS.GetReplace(CycTemp,"{$IsCard}",arrPage(9,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$BusinessTime}",arrPage(10,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$Address}",arrPage(11,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$Depot}",arrPage(12,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$BusRoute}",arrPage(13,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$Marker}",arrPage(14,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$Web}",arrPage(15,i))
If Instr(CycTemp,"{$Intro}") > 0 Then
Con = arrPage(16,i)
If Int(ContentNum) > 0 Then Con = WRMPS.GotTopic(WRMPS.LeachHTML(Con),Int(ContentNum),1)
CycTemp = WRMPS.GetReplace(CycTemp,"{$Intro}",Con)
End If
CycTemp = WRMPS.GetReplace(CycTemp,"{$Phone}",arrPage(17,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$Fax}",arrPage(18,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$Mobile}",arrPage(19,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$CheckUser}",WRUser.DispUser(0,arrPage(20,i)))
CycTemp = WRMPS.GetReplace(CycTemp,"{$CheckTime}",arrPage(21,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$Year}",Year(arrPage(21,i)))
CycTemp = WRMPS.GetReplace(CycTemp,"{$Month}",Month(arrPage(21,i)))
CycTemp = WRMPS.GetReplace(CycTemp,"{$Day}",Day(arrPage(21,i)))
CycTemp = WRMPS.GetReplace(CycTemp,"{$Hour}",Hour(arrPage(21,i)))
CycTemp = WRMPS.GetReplace(CycTemp,"{$Minute}",Minute(arrPage(21,i)))
CycTemp = WRMPS.GetReplace(CycTemp,"{$Second}",Second(arrPage(21,i)))
If arrPage(22,i) <> "" Then CycTemp = WRMPS.GetReplace(CycTemp,"{$ClaimUser}",WRUser.DispUser(0,arrPage(22,i))) Else CycTemp = WRMPS.GetReplace(CycTemp,"{$ClaimUser}","")
CycTemp = WRMPS.GetReplace(CycTemp,"{$ClaimTime}",arrPage(23,i))
If arrPage(24,i) <> "" Then CycTemp = WRMPS.GetReplace(CycTemp,"{$FirstRE}",WRUser.DispUser(0,arrPage(24,i))) Else CycTemp = WRMPS.GetReplace(CycTemp,"{$FirstRE}","")
If arrPage(25,i) <> "" Then CycTemp = WRMPS.GetReplace(CycTemp,"{$LastRE}",WRUser.DispUser(0,arrPage(25,i))) Else CycTemp = WRMPS.GetReplace(CycTemp,"{$LastRE}","")
CycTemp = WRMPS.GetReplace(CycTemp,"{$Hit}",arrPage(26,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$Re}",arrPage(27,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$Coordinate}",arrPage(28,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$GB}",arrPage(29,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$Collection}",arrPage(30,i))
If arrPage(27,i) > 0 Then
ReSer = WRMPS.GetFormatNumber(arrPage(31,i)/arrPage(27,i),2)
RePrice = WRMPS.GetFormatNumber(arrPage(32,i)/arrPage(27,i),2)
All = WRMPS.GetFormatNumber(arrPage(33,i)/arrPage(27,i),2)
Consume = WRMPS.GetFormatNumber(arrPage(34,i)/arrPage(27,i),2)
Else
ReSer = 0
RePrice = 0
All = 0
Consume = 0
End If
CycTemp = WRMPS.GetReplace(CycTemp,"{$ReSer}",WRMPS.GetRePic(ReSer))
CycTemp = WRMPS.GetReplace(CycTemp,"{$RePrice}",WRMPS.GetRePic(RePrice))
CycTemp = WRMPS.GetReplace(CycTemp,"{$All}",WRMPS.GetRePic(All))
CycTemp = WRMPS.GetReplace(CycTemp,"{$Consume}",Consume)
If Instr(CycTemp,"{$CommendProduct}") > 0 Then
Set Rso = Conn.Execute("Select Top 10 WM_ProductName,WM_CommendNum From WM_CompanyProduct Where WM_CommendNum > 0 and WM_ComID = "&arrPage(0,i)&" Order By WM_CommendNum Desc,WM_ID Desc")
Do While Not Rso.Eof
If Product = "" Then
Product = Rso(0)&"<span class=Remark>("&Rso(1)&")</span>"
Else
Product = Product&","&Rso(0)&"<span class=Remark>("&Rso(1)&")</span>"
End If
Rso.MoveNext
Loop
Rso.Close
CycTemp = WRMPS.GetReplace(CycTemp,"{$CommendProduct}",Product)
End If
If Instr(CycTemp,"{$ThinkGoNum}") > 0 Or Instr(CycTemp,"{$ThinkGo}") > 0 Then
ThinkGo = arrPage(35,i):ThinkGoStr = "":ThinkGoNum = 0
If ThinkGo <> "" Then
ThinkGo = Split(ThinkGo,",")
ThinkGoNum = Ubound(ThinkGo)+1
For n = 0 To Ubound(ThinkGo)
If ThinkGo(n) <> "" Or IsNull(ThinkGo(n)) Then
If ThinkGoStr = "" Then ThinkGoStr = WRUser.DispUser(0,ThinkGo(n)) Else ThinkGoStr = ThinkGoStr & "," & WRUser.DispUser(0,ThinkGo(n))
End If
Next
End If
CycTemp = WRMPS.GetReplace(CycTemp,"{$ThinkGoNum}",ThinkGoNum)
CycTemp = WRMPS.GetReplace(CycTemp,"{$ThinkGo}",ThinkGoStr)
End If
If Instr(CycTemp,"{$IsGoNum}") > 0 Or Instr(CycTemp,"{$IsGo}") > 0 Then
IsGo = arrPage(36,i):IsGoStr = "":IsGoNum = 0
If IsGo <> "" Then
IsGo = Split(IsGo,",")
IsGoNum = Ubound(IsGo)+1
For n = 0 To Ubound(IsGo)
If IsGo(n) <> "" Or IsNull(IsGo(n)) Then
If IsGoStr = "" Then IsGoStr = WRUser.DispUser(0,IsGo(n)) Else IsGoStr = IsGoStr & "," & WRUser.DispUser(0,IsGo(n))
End If
Next
End If
CycTemp = WRMPS.GetReplace(CycTemp,"{$IsGoNum}",IsGoNum)
CycTemp = WRMPS.GetReplace(CycTemp,"{$IsGo}",IsGoStr)
End If
CycTemp = WRMPS.GetReplace(CycTemp,"{$PhotoNum}",arrPage(37,i))
LastPhoto = arrPage(38,i)
If LastPhoto = "" Or IsNull(LastPhoto) Then LastPhoto = WR_Setting(3)&"Skins/"&WR_Setting(5)&"/nopic.gif"
CycTemp = WRMPS.GetReplace(CycTemp,"{$LastPhoto}",LastPhoto)
CycTemp = WRMPS.GetReplace(CycTemp,"{$CoCouponNum}",arrPage(39,i))
MapSign = arrPage(28,i)
If MapSign <> "" and IsNull(MapSign) = False Then CycTemp = WRMPS.GetReplace(CycTemp,"{$MapSign}","<a href=# onClick=""openWithIframe('"&WRMPS.LeachHTML(arrPage(2,i))&" 地图位置','"&WR_Setting(3)&"Plus/Map/"&WR_Other(12)&"/?Action=Show&z=10&xy="&MapSign&"&Text="&WRMPS.LeachHTML(arrPage(2,i))&"',650,500);""><Img Src='"&WR_Setting(3)&"Skins/"&WR_Setting(5)&"/Map.gif' alt='已标注到地图，点击查看' align=absmiddle border=0></a>") Else CycTemp = WRMPS.GetReplace(CycTemp,"{$MapSign}","")
If Instr(CycTemp,"{$zTopSign}") > 0 Then
zTopSign = arrPage(40,i)
If zTopSign > Now() Then CycTemp = WRMPS.GetReplace(CycTemp,"{$zTopSign}","<Img Src='"&WR_Setting(3)&"Skins/"&WR_Setting(5)&"/zTop.gif' alt='总置顶' align=absmiddle border=0>")
CycTemp = WRMPS.GetReplace(CycTemp,"{$zTopSign}","")
End If
If Instr(CycTemp,"{$TopSign}") > 0 Then
TopSign = arrPage(41,i)
If TopSign > Now() Then CycTemp = WRMPS.GetReplace(CycTemp,"{$TopSign}","<Img Src='"&WR_Setting(3)&"Skins/"&WR_Setting(5)&"/Top.gif' alt='置顶' align=absmiddle border=0>")
CycTemp = WRMPS.GetReplace(CycTemp,"{$TopSign}","")
End If
If Instr(CycTemp,"{$PicSign}") > 0 Then If arrPage(37,i) > 0 Then CycTemp = WRMPS.GetReplace(CycTemp,"{$PicSign}","<img src='"&WR_Setting(3)&"Skins/"&WR_Setting(5)&"/Pic.gif' align=absmiddle alt='有图片'>") Else CycTemp = WRMPS.GetReplace(CycTemp,"{$PicSign}","")
If Instr(CycTemp,"{$CommendSign}") > 0 Then If arrPage(42,i) > 0 Then CycTemp = WRMPS.GetReplace(CycTemp,"{$CommendSign}","<img src='"&WR_Setting(3)&"Skins/"&WR_Setting(5)&"/Elite.gif' align=absmiddle alt='推荐'>") Else CycTemp = WRMPS.GetReplace(CycTemp,"{$CommendSign}","")
If Instr(CycTemp,"{$NewSign}") > 0 Then If arrPage(21,i) >= (Now()-1) Then CycTemp = WRMPS.GetReplace(CycTemp,"{$NewSign}","<img src='"&WR_Setting(3)&"Skins/"&WR_Setting(5)&"/New.gif' align=absmiddle alt='新进'>") Else CycTemp = WRMPS.GetReplace(CycTemp,"{$NewSign}","")
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB1}",arrPage(43,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB2}",arrPage(44,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB3}",arrPage(45,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB4}",arrPage(46,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB5}",arrPage(47,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB6}",arrPage(48,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB7}",arrPage(49,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB8}",arrPage(50,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB9}",arrPage(51,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB10}",arrPage(52,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB1T}",arrPage(53,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB2T}",arrPage(54,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB3T}",arrPage(55,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB4T}",arrPage(56,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB5T}",arrPage(57,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB6T}",arrPage(58,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB7T}",arrPage(59,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB8T}",arrPage(60,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB9T}",arrPage(61,i))
CycTemp = WRMPS.GetReplace(CycTemp,"{$DB10T}",arrPage(62,i))
TempList = TempList & CycTemp
Next
End If
TempStr = WRMPS.GetReplace(TempStr,"{$NextPage}",strPageList)
If Int(WR_Setting(9)) = 1 And DB1 = "" and DB2 = "" and DB3 = "" and DB4 = "" and DB5 = "" and DB6 = "" and DB7 = "" and DB8 = "" and DB9 = "" and DB10 = "" Then
For i=1 To 9
TempStr = WRMPS.GetReplace(TempStr,"{orderlink("&i&")}",WRMPS.GetClassUrl(i,Split(ClassUrl,"_")(2),1,ChannelDir,Split(ClassUrl,"_")(1)))
Next
Else
For i=1 To 9
TempStr = WRMPS.GetReplace(TempStr,"{orderlink("&i&")}","{$URLStr}&order="&i)
Next
End If
TempStr = WRMPS.GetReplace(TempStr,"{$URLStr}",WR_Setting(3)&ChannelDir&"/Class.asp"&URLStr)
TempStr = WRMPS.GetReplace(TempStr,"{$ClassUrl}",ClassUrl)
TempStr = WRMPS.GetReplace(TempStr,"{$DB1}",DB1)
TempStr = WRMPS.GetReplace(TempStr,"{$DB2}",DB2)
TempStr = WRMPS.GetReplace(TempStr,"{$DB3}",DB3)
TempStr = WRMPS.GetReplace(TempStr,"{$DB4}",DB4)
TempStr = WRMPS.GetReplace(TempStr,"{$DB5}",DB5)
TempStr = WRMPS.GetReplace(TempStr,"{$DB6}",DB6)
TempStr = WRMPS.GetReplace(TempStr,"{$DB7}",DB7)
TempStr = WRMPS.GetReplace(TempStr,"{$DB8}",DB8)
TempStr = WRMPS.GetReplace(TempStr,"{$DB9}",DB9)
TempStr = WRMPS.GetReplace(TempStr,"{$DB10}",DB10)
TempStr = WRMPS.GetReplace(TempStr,"class=order"&Order,"class=orderlink")
TempStr = WRMPS.HCode(1,TempStr,"{\$CycBegin}","{\$CycEnd}") & TempList & WRMPS.HCode(3,TempStr,"{\$CycBegin}","{\$CycEnd}")
TempStr = WRTemp.SiteClass(TempStr)
TempStr = WRTemp.SiteChannel(TempStr)
TempStr = WRTemp.SiteLabel(TempStr)
Call ClassEnd()
Call DBConnEnd()
Response.write TempStr
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -