<% Dim SearchByOrher,ParentPath,i,n,DB,ii,ChildArea,AreaTempList,SChildArea,SAreaTempList,AreaB,AreaS,AreaBCn,AreaSCn Dim ContentNum,TitleNum,CycList,ShowNum,TempList,CycTemp,Term Dim Title,TitStyle,Con,PIC,Tag,Tags,ReSer,RePrice,All,Consume,Product,ThinkGo,ThinkGoStr,ThinkGoNum,IsGo,IsGoStr,IsGoNum,LastPhoto,MapSign Dim PageUrl,DBSitePath,PageUrl1,PageUrl2,PageUrl3,ClassUrl,URLStr ClassID = WRMPS.CheckStr(Request.QueryString("ID"),1) If ClassID = "" Then Call WRMPS.ErrView("返回"&ChannelName&"首頁","index.asp","
  • 操作錯誤",0) Page = WRMPS.CheckStr(Request("Page"),1) If Page = "" Then Page = 1 PageUrl = WRMPS.URLDecode("&"&Request.QueryString) PageUrl1 = Split(PageUrl,"&") PageUrl = "" For i=0 To UBound(PageUrl1) If PageUrl1(i) <> "" and (Ucase(Left(PageUrl1(i),2)) = "DB" Or Ucase(Left(PageUrl1(i),4)) = "AREA") Then PageUrl = "&"&PageUrl1(i)&PageUrl End If Next PageUrl3 = Split(unescape(PageUrl),"&") PageUrl = "" For i=0 To UBound(PageUrl3) If PageUrl3(i) <> "" and Instr(Ucase(PageUrl),Ucase(Split("&"&PageUrl3(i),"=")(0))) = 0 Then PageUrl = PageUrl&"&"&PageUrl3(i) End If Next PageUrl2 = Split(PageUrl,"&") URLStr = "?ID="&ClassID DBSitePath = "":SQL = "":PageUrl = "" ClassUrl = WRMPS.GetClassUrl(1,1,ChannelDir&"/",ClassID) For i=0 To UBound(PageUrl2) If PageUrl2(i) <> "" and Instr(PageUrl2(i),"=") > 0 Then Select Case Ucase(Split(PageUrl2(i),"=")(0)) Case "DB1" DB1 = Split(PageUrl2(i),"=")(1) If DB1 <> "" Then PageUrl = PageUrl & "&DB1="&escape(DB1) Case "DB2" DB2 = Split(PageUrl2(i),"=")(1) If DB2 <> "" Then PageUrl = PageUrl & "&DB2="&escape(DB2) Case "DB3" DB3 = Split(PageUrl2(i),"=")(1) If DB3 <> "" Then PageUrl = PageUrl & "&DB3="&escape(DB3) Case "DB4" DB4 = Split(PageUrl2(i),"=")(1) If DB4 <> "" Then PageUrl = PageUrl & "&DB4="&escape(DB4) Case "DB5" DB5 = Split(PageUrl2(i),"=")(1) If DB5 <> "" Then PageUrl = PageUrl & "&DB5="&escape(DB5) Case "DB6" DB6 = Split(PageUrl2(i),"=")(1) If DB6 <> "" Then PageUrl = PageUrl & "&DB6="&escape(DB6) Case "DB7" DB7 = Split(PageUrl2(i),"=")(1) If DB7 <> "" Then PageUrl = PageUrl & "&DB7="&escape(DB7) Case "DB8" DB8 = Split(PageUrl2(i),"=")(1) If DB8 <> "" Then PageUrl = PageUrl & "&DB8="&escape(DB8) Case "DB9" DB9 = Split(PageUrl2(i),"=")(1) If DB9 <> "" Then PageUrl = PageUrl & "&DB9="&escape(DB9) Case "DB10" DB10 = Split(PageUrl2(i),"=")(1) If DB10 <> "" Then PageUrl = PageUrl & "&DB10="&escape(DB10) Case "DB11" DB11 = Split(PageUrl2(i),"=")(1) If DB11 <> "" Then PageUrl = PageUrl & "&DB11="&escape(DB11) Case "DB12" DB12 = Split(PageUrl2(i),"=")(1) If DB12 <> "" Then PageUrl = PageUrl & "&DB12="&escape(DB12) Case "DB13" DB13 = Split(PageUrl2(i),"=")(1) If DB13 <> "" Then PageUrl = PageUrl & "&DB13="&escape(DB13) Case "DB14" DB14 = Split(PageUrl2(i),"=")(1) If DB14 <> "" Then PageUrl = PageUrl & "&DB14="&escape(DB14) Case "DB15" DB15 = Split(PageUrl2(i),"=")(1) If DB15 <> "" Then PageUrl = PageUrl & "&DB15="&escape(DB15) Case "DB16" DB16 = Split(PageUrl2(i),"=")(1) If DB16 <> "" Then PageUrl = PageUrl & "&DB16="&escape(DB16) Case "DB17" DB17 = Split(PageUrl2(i),"=")(1) If DB17 <> "" Then PageUrl = PageUrl & "&DB17="&escape(DB17) Case "DB18" DB18 = Split(PageUrl2(i),"=")(1) If DB18 <> "" Then PageUrl = PageUrl & "&DB18="&escape(DB18) Case "DB19" DB19 = Split(PageUrl2(i),"=")(1) If DB19 <> "" Then PageUrl = PageUrl & "&DB19="&escape(DB19) Case "DB20" DB20 = Split(PageUrl2(i),"=")(1) If DB20 <> "" Then PageUrl = PageUrl & "&DB20="&escape(DB20) Case "AREAB" AreaB = Split(PageUrl2(i),"=")(1) If AreaB <> "" Then PageUrl = PageUrl & "&AreaB="&AreaB Case "AREAS" AreaS = Split(PageUrl2(i),"=")(1) If AreaS <> "" Then PageUrl = PageUrl & "&AreaS="&AreaS End Select End If Next If PageUrl <> "" Then PageUrl = "?ID="&ClassID&PageUrl Else PageUrl = WRMPS.GetClassUrl(Page,1,ChannelDir&"/",ClassID) SitePath = ","&ChannelName&"" Call DBConnBegin() Set Rs = Conn.Execute("Select WM_ID,WM_Name,WM_ParentPath,WM_Child,WM_ChannelDir,WM_ParentDir,WM_Dir,WM_DB,WM_TempID,WM_NoTempID,WM_MetaKey,WM_MetaContent From WM_CompanySort Where WM_ID="&ClassID&"") If Not Rs.Eof Then ClassName = Rs(1) DB = Rs(7) Call WRMPS.FsoBegin() If Int(Rs(3)) > 0 Then TempStr = WRTemp.SiteTemplates(1,Rs(8),46,ChannelID) Else TempStr = WRTemp.SiteTemplates(1,Rs(9),47,ChannelID) Call WRMPS.FsoEnd() MetaKey = Rs(10) MetaContent = Rs(11) If Instr(TempStr,"{$SCity}")>0 Then TempStr = WRMPS.GetReplace(TempStr,"{$SCity}",WRDB.GetAreaSort(0,1,MyCityID,"City")) If Rs(2) <> "0" Then ParentPath = Right(Rs(2),Len(Rs(2))-2) ParentPath = Split(ParentPath,",") For i=0 to UBound(ParentPath) Set Rso = Conn.Execute("Select WM_ID,WM_Name,WM_ChannelDir,WM_ParentDir,WM_Dir From WM_CompanySort Where WM_ID="&Int(ParentPath(i))&"") SitePath = SitePath & ","&MyCity&Rso(1)&"" Rso.Close Next End If SitePath = SitePath & ","&MyCity&Rs(1)&"" Rs.Close Else Rs.Close Call WRMPS.ErrView("","","
  • 欄目不存在",0) End If Set Rso = Nothing If AreaB <> "" Then DBSitePath = DBSitePath & ",{$AreaB$}" & ClassName &"":SQL = SQL & " and WM_AreaB="&AreaB&"":URLStr = URLStr & "&AreaB="&AreaB If AreaS <> "" Then DBSitePath = DBSitePath & ",{$AreaS$}" & ClassName &"":SQL = SQL & " and WM_AreaS="&AreaS&"":URLStr = URLStr & "&AreaS="&AreaS If DB1 <> "" Then DBSitePath = DBSitePath & "," & DB1 &"移除此條件":SQL = SQL & " and WM_DB1 like'%"&DB1&"%'":URLStr = URLStr & "&DB1="&escape(DB1) If DB2 <> "" Then DBSitePath = DBSitePath & "," & DB2 &"移除此條件":SQL = SQL & " and WM_DB2 like'%"&DB2&"%'":URLStr = URLStr & "&DB2="&escape(DB2) If DB3 <> "" Then DBSitePath = DBSitePath & "," & DB3 &"移除此條件":SQL = SQL & " and WM_DB3 like'%"&DB3&"%'":URLStr = URLStr & "&DB3="&escape(DB3) If DB4 <> "" Then DBSitePath = DBSitePath & "," & DB4 &"移除此條件":SQL = SQL & " and WM_DB4 like'%"&DB4&"%'":URLStr = URLStr & "&DB4="&escape(DB4) If DB5 <> "" Then DBSitePath = DBSitePath & "," & DB5 &"移除此條件":SQL = SQL & " and WM_DB5 like'%"&DB5&"%'":URLStr = URLStr & "&DB5="&escape(DB5) If DB6 <> "" Then DBSitePath = DBSitePath & "," & DB6 &"移除此條件":SQL = SQL & " and WM_DB6 like'%"&DB6&"%'":URLStr = URLStr & "&DB6="&escape(DB6) If DB7 <> "" Then DBSitePath = DBSitePath & "," & DB7 &"移除此條件":SQL = SQL & " and WM_DB7 like'%"&DB7&"%'":URLStr = URLStr & "&DB7="&escape(DB7) If DB8 <> "" Then DBSitePath = DBSitePath & "," & DB8 &"移除此條件":SQL = SQL & " and WM_DB8 like'%"&DB8&"%'":URLStr = URLStr & "&DB8="&escape(DB8) If DB9 <> "" Then DBSitePath = DBSitePath & "," & DB9 &"移除此條件":SQL = SQL & " and WM_DB9 like'%"&DB9&"%'":URLStr = URLStr & "&DB9="&escape(DB9) If DB10 <> "" Then DBSitePath = DBSitePath & "," & DB10 &"移除此條件":SQL = SQL & " and WM_DB10 like'%"&DB10&"%'":URLStr = URLStr & "&DB10="&escape(DB10) If DB11 <> "" Then DBSitePath = DBSitePath & "," & DB11 &"移除此條件":SQL = SQL & " and WM_DB11 like'%"&DB11&"%'":URLStr = URLStr & "&DB11="&escape(DB11) If DB12 <> "" Then DBSitePath = DBSitePath & "," & DB12 &"移除此條件":SQL = SQL & " and WM_DB12 like'%"&DB12&"%'":URLStr = URLStr & "&DB12="&escape(DB12) If DB13 <> "" Then DBSitePath = DBSitePath & "," & DB13 &"移除此條件":SQL = SQL & " and WM_DB13 like'%"&DB13&"%'":URLStr = URLStr & "&DB13="&escape(DB13) If DB14 <> "" Then DBSitePath = DBSitePath & "," & DB14 &"移除此條件":SQL = SQL & " and WM_DB14 like'%"&DB14&"%'":URLStr = URLStr & "&DB14="&escape(DB14) If DB15 <> "" Then DBSitePath = DBSitePath & "," & DB15 &"移除此條件":SQL = SQL & " and WM_DB15 like'%"&DB15&"%'":URLStr = URLStr & "&DB15="&escape(DB15) If DB16 <> "" Then DBSitePath = DBSitePath & "," & DB16 &"移除此條件":SQL = SQL & " and WM_DB16 like'%"&DB16&"%'":URLStr = URLStr & "&DB16="&escape(DB16) If DB17 <> "" Then DBSitePath = DBSitePath & "," & DB17 &"移除此條件":SQL = SQL & " and WM_DB17 like'%"&DB17&"%'":URLStr = URLStr & "&DB17="&escape(DB17) If DB18 <> "" Then DBSitePath = DBSitePath & "," & DB18 &"移除此條件":SQL = SQL & " and WM_DB18 like'%"&DB18&"%'":URLStr = URLStr & "&DB18="&escape(DB18) If DB19 <> "" Then DBSitePath = DBSitePath & "," & DB19 &"移除此條件":SQL = SQL & " and WM_DB19 like'%"&DB19&"%'":URLStr = URLStr & "&DB19="&escape(DB19) If DB20 <> "" Then DBSitePath = DBSitePath & "," & DB20 &"移除此條件":SQL = SQL & " and WM_DB20 like'%"&DB20&"%'":URLStr = URLStr & "&DB20="&escape(DB20) DBSitePath = WRMPS.GetReplace(DBSitePath,"{$U$}",URLStr) ContentNum = 0 Term = WRMPS.HCode(2,TempStr,"{\$CycBegin}【","】") CycList = WRMPS.HCode(2,TempStr,"{\$CycBegin}【"&Term&"】","{\$CycEnd}") ShowNum = Split(Term,",")(0) TitleNum = Split(Term,",")(1) ContentNum = Split(Term,",")(2) If MyCityID > 0 Then SQL = " and WM_AreaID in("&WRDB.GetChildClass(MyCityID,"WM_Area")&")"&SQL SQL = "WM_ClassID in("&WRDB.GetChildClass(ClassID,"WM_CompanySort")&")" & SQL & " and WM_Key=1" 'yi begin If Page = 1 And InStr(TempStr,"{$JingjiaList}") > 0 Then Set ClsPageList = New Cls_PageView ClsPageList.strTableName = "WM_AuctionAds A inner join WM_Company B on A.WM_ParentID = B.WM_ID" ClsPageList.strPageUrl = PageUrl ClsPageList.strFieldsList = "Top 3 B.WM_ID,B.WM_AreaID,B.WM_Company,B.WM_DB14T,B.WM_DB15T,B.WM_DB16T,B.WM_DB17T,B.WM_DB18T,B.WM_Tags,B.WM_IsCard,B.WM_BusinessTime,B.WM_Address,B.WM_Depot,B.WM_BusRoute,B.WM_Marker,B.WM_Web,B.WM_Intro,B.WM_Phone,B.WM_Fax,B.WM_Mobile,B.WM_User,B.WM_Time,B.WM_DB19T,B.WM_DB20T,B.WM_FiRstRE,B.WM_LastRE,B.WM_Hit,B.WM_Re,B.WM_Coordinate,B.WM_GB,B.WM_Collection,B.WM_ReSer,B.WM_RePrice,B.WM_All,B.WM_Consume,B.WM_ThinkGo,B.WM_IsGo,B.WM_PhotoNum,B.WM_LastPhoto,B.WM_CouponNum,B.WM_RZBL,B.WM_ProductNum,B.WM_Commend,B.WM_DB1,B.WM_DB2,B.WM_DB3,B.WM_DB4,B.WM_DB5,B.WM_DB6,B.WM_DB7,B.WM_DB8,B.WM_DB9,B.WM_DB10,B.WM_DB1T,B.WM_DB2T,B.WM_DB3T,B.WM_DB4T,B.WM_DB5T,B.WM_DB6T,B.WM_DB7T,B.WM_DB8T,B.WM_DB9T,B.WM_DB10T,B.WM_DB11,B.WM_DB12,B.WM_DB13,B.WM_DB14,B.WM_DB15,B.WM_DB16,B.WM_DB17,B.WM_DB18,B.WM_DB19,B.WM_DB20,B.WM_DB11T,B.WM_DB12T,B.WM_DB13T" ClsPageList.strCondiction = "B.WM_Jingjia = 1 and A.WM_Pay = 1 and "&WRMPS.GetReplace(SQL,"WM_","B.WM_")&" and A.WM_EndTime > "&ConnTime ClsPageList.strOrderList = "A.WM_Price Desc,A.WM_Time Desc" ClsPageList.strPrimaryKey = "B.WM_ID" ClsPageList.intPageSize = 3 ClsPageList.intPageNow = Page ClsPageList.strCookiesName = "RecordCount" ClsPageList.strPageVar = "Page" ClsPageList.intRefresh = 1 ClsPageList.inAdmin = 2 ClsPageList.objConn = Conn ClsPageList.InitClass arrPage = ClsPageList.arrPage strPageList = ClsPageList.strPageList Set ClsPageList = Nothing TempList = GetList() If TempList <> "" Then TempStr = WRMPS.GetReplace(TempStr,"{$JingjiaList}","


    "&TempList&"
    ") End If 'yi end TempStr = WRMPS.GetReplace(TempStr,"{$JingjiaList}","") '內容列表 Set ClsPageList = New Cls_PageView ClsPageList.strTableName = "WM_Company" ClsPageList.strPageUrl = PageUrl ClsPageList.strFieldsList = "WM_ID,WM_AreaID,WM_Company,WM_DB14T,WM_DB15T,WM_DB16T,WM_DB17T,WM_DB18T,WM_Tags,WM_IsCard,WM_BusinessTime,WM_Address,WM_Depot,WM_BusRoute,WM_Marker,WM_Web,WM_Intro,WM_Phone,WM_Fax,WM_Mobile,WM_User,WM_Time,WM_DB19T,WM_DB20T,WM_FiRstRE,WM_LastRE,WM_Hit,WM_Re,WM_Coordinate,WM_GB,WM_Collection,WM_ReSer,WM_RePrice,WM_All,WM_Consume,WM_ThinkGo,WM_IsGo,WM_PhotoNum,WM_LastPhoto,WM_CouponNum,WM_RZBL,WM_ProductNum,WM_Commend,WM_DB1,WM_DB2,WM_DB3,WM_DB4,WM_DB5,WM_DB6,WM_DB7,WM_DB8,WM_DB9,WM_DB10,WM_DB1T,WM_DB2T,WM_DB3T,WM_DB4T,WM_DB5T,WM_DB6T,WM_DB7T,WM_DB8T,WM_DB9T,WM_DB10T,WM_DB11,WM_DB12,WM_DB13,WM_DB14,WM_DB15,WM_DB16,WM_DB17,WM_DB18,WM_DB19,WM_DB20,WM_DB11T,WM_DB12T,WM_DB13T" ClsPageList.strCondiction = SQL ClsPageList.strOrderList = "WM_ID Desc" ClsPageList.strPrimaryKey = "WM_ID" ClsPageList.intPageSize = ShowNum ClsPageList.intPageNow = Page ClsPageList.strCookiesName = "RecordCount" ClsPageList.strPageVar = "Page" ClsPageList.intRefresh = 1 ClsPageList.inAdmin = 2 ClsPageList.objConn = Conn ClsPageList.InitClass arrPage = ClsPageList.arrPage strPageList = ClsPageList.strPageList Set ClsPageList = nothing TempList = "" TempList = GetList() TempStr = WRMPS.GetReplace(TempStr,"{$NextPage}",strPageList) '區域列表 If MyCityID > 0 Then If AreaB = "" Then AreaB = 0 Else AreaB = Int(AreaB) If AreaS = "" Then AreaS = 0 Else AreaS = Int(AreaS) Set Rs = Conn.execute("Select WM_ChildArea From WM_Area Where WM_ID="&MyCityID) If Not rs.eof Then ChildArea = Rs(0) If ChildArea <> "" And IsNull(ChildArea) = False Then ChildArea = Split(ChildArea,"$$") SAreaTempList = "":SChildArea = "" For i=0 To UBound(ChildArea) If ChildArea(i) <> "" Then AreaTempList = AreaTempList & " AreaB Then AreaTempList = AreaTempList & " class=ClassBigAreaList" Else AreaBCn = Split(ChildArea(i),"@")(0) AreaTempList = AreaTempList & " class=ClassNonceBigArea" SChildArea = Split(ChildArea(i),"@")(1) '下級區域 If SChildArea <> "" Then SChildArea = Split(SChildArea,",") For ii=0 To UBound(SChildArea) If SChildArea(ii) <> "" Then SAreaTempList = SAreaTempList & "
  • "&SChildArea(ii)&"
  • " End If Next End If 'End End If AreaTempList = AreaTempList & ">"&Split(ChildArea(i),"@")(0)&"" End If Next End If End If rs.close End If Set rs = Nothing If AreaTempList <> "" Then AreaTempList = "
    "&AreaTempList&"
    " If SAreaTempList <> "" Then AreaTempList = WRMPS.GetReplace(AreaTempList,"[$AreaTempList]","AreaTempList_1") Else AreaTempList = WRMPS.GetReplace(AreaTempList,"[$AreaTempList]","AreaTempList") End If If SAreaTempList <> "" Then AreaTempList = AreaTempList & "
    " TempStr = WRMPS.GetReplace(TempStr,"{$ClassAreaList}",AreaTempList) DBSitePath = WRMPS.GetReplace(DBSitePath,"{$AreaB$}",AreaBCn) DBSitePath = WRMPS.GetReplace(DBSitePath,"{$AreaS$}",AreaSCn) SitePath = WRMPS.GetSitePath(-1,SitePath&DBSitePath) '自定義字段顯示 If DB <> "" And IsNull(DB) = False Then Dim DBList,OptionList DBList = "" DB = Split(DB,"$$$$") For i=0 To UBound(DB) OptionList = "" If Split(DB(i),"@@")(1) > 1 And Split(DB(i),"@@")(4) <> "" And Split(DB(i),"@@")(6) > 0 Then DBList = DBList & "
    " End If Next DBList = DBList & "" End If Next TempStr = WRMPS.GetReplace(TempStr,"{$ClassOptionList}",DBList) End If TempStr = WRMPS.GetReplace(TempStr,"{$ClassOptionList}","") 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,"{$DB11}",DB11) TempStr = WRMPS.GetReplace(TempStr,"{$DB12}",DB12) TempStr = WRMPS.GetReplace(TempStr,"{$DB13}",DB13) TempStr = WRMPS.GetReplace(TempStr,"{$DB14}",DB14) TempStr = WRMPS.GetReplace(TempStr,"{$DB15}",DB15) TempStr = WRMPS.GetReplace(TempStr,"{$DB16}",DB16) TempStr = WRMPS.GetReplace(TempStr,"{$DB17}",DB17) TempStr = WRMPS.GetReplace(TempStr,"{$DB18}",DB18) TempStr = WRMPS.GetReplace(TempStr,"{$DB19}",DB19) TempStr = WRMPS.GetReplace(TempStr,"{$DB20}",DB20) 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) 'yi begin Dim JingjiaList If InStr(TempStr,"{$JingjiaPicList}") > 0 Then JingjiaList = vbCrLf&"" TempStr = WRMPS.GetReplace(TempStr,"{$JingjiaPicList}","
    ") End If 'yi end TempStr = WRMPS.GetReplace(TempStr,"{$JingjiaPicList}","") Call ClassEnd() Call DBConnEnd() Response.write TempStr 'yi begin Response.write JingjiaList 'yi end Function GetList() GetList = "":CycTemp="" If IsArray(arrPage) Then For i = 0 to UBound(arrPage, 2) TitStyle = "":Tag = "":Tags = "":Product = "":LastPhoto = "" CycTemp = CycList CycTemp = WRMPS.GetReplace(CycTemp,"{$ID}",arrPage(0,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$No}",i+1+(Page-1)*ShowNum) CycTemp = WRMPS.GetReplace(CycTemp,"{$Page}",Page) CycTemp = WRMPS.GetReplace(CycTemp,"{$AreaName}",WRMPS.GetAreaUrl(arrPage(1,i),"Name")) CycTemp = WRMPS.GetReplace(CycTemp,"{$AreaUrl}",WRMPS.GetAreaUrl(arrPage(1,i),"Url")) Title = arrPage(2,i) If TitleNum > 0 Then Title = WRMPS.GotTopic(Title,Int(TitleNum),0) 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 = ""&Tag(n)&"" Else Tags = Tags&","&Tag(n)&"" 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) Else Con = "" 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,"{$User}",WRUser.DispUser(0,arrPage(20,i))) CycTemp = WRMPS.GetReplace(CycTemp,"{$Time}",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(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)&"("&Rso(1)&")" Else Product = Product&","&Rso(0)&"("&Rso(1)&")" 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)) CycTemp = WRMPS.GetReplace(CycTemp,"{$CoProductNum}",arrPage(41,i)) MapSign = arrPage(28,i) If MapSign <> "" and IsNull(MapSign) = False Then CycTemp = WRMPS.GetReplace(CycTemp,"{$MapSign}","已標注到地圖,點擊查看") Else CycTemp = WRMPS.GetReplace(CycTemp,"{$MapSign}","") If arrPage(37,i) > 0 Then CycTemp = WRMPS.GetReplace(CycTemp,"{$PicSign}","有圖片") Else CycTemp = WRMPS.GetReplace(CycTemp,"{$PicSign}","") If arrPage(42,i) > 0 Then CycTemp = WRMPS.GetReplace(CycTemp,"{$CommendSign}","推薦") Else CycTemp = WRMPS.GetReplace(CycTemp,"{$CommendSign}","") If arrPage(21,i) >= (Now()-1) Then CycTemp = WRMPS.GetReplace(CycTemp,"{$NewSign}","新進") Else CycTemp = WRMPS.GetReplace(CycTemp,"{$NewSign}","") If arrPage(40,i) > 0 Then CycTemp = WRMPS.GetReplace(CycTemp,"{$RzSign}","已通過營業執照認證") Else CycTemp = WRMPS.GetReplace(CycTemp,"{$RzSign}","") 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)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB11}",arrPage(63,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB12}",arrPage(64,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB13}",arrPage(65,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB14}",arrPage(66,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB15}",arrPage(67,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB16}",arrPage(68,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB17}",arrPage(69,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB18}",arrPage(70,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB19}",arrPage(71,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB20}",arrPage(72,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB11T}",arrPage(73,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB12T}",arrPage(74,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB13T}",arrPage(75,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB14T}",arrPage(3,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB15T}",arrPage(4,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB16T}",arrPage(5,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB17T}",arrPage(6,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB18T}",arrPage(7,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB19T}",arrPage(22,i)) CycTemp = WRMPS.GetReplace(CycTemp,"{$DB20T}",arrPage(23,i)) GetList = GetList & CycTemp Next End If End Function %> 我爱玩山西麻将app 三分彩开奖结果查询 江西快三网页版 内蒙古快三基本 上海时时乐万能两码 福彩北京pk赛车官网 河南体彩11选5规则 山西省十一选五遗漏10 快乐8平台是真的吗 广西风采快乐双彩走势 东方通信股票股吧