<% Dim ID,ParentPath,i Dim ThinkGo,IsGo,Tags,tThinkGo,tIsGo,tTags,ThinkGoNum,IsGoNum,Logo,SiteTemp,TempDir Dim CProduct,CProductSelect,ACProduct,ACProductSelect,Consume,LastPhoto,CouponList Dim ReSer,rePrice,All Dim Com_Eng,Com_Domain,Com_Url ID=WRMPS.CheckStr(Request("ID"),1) If ID = "" Then Call WRMPS.ErrView("返回"&ChannelName&"首頁","index.asp","
  • 操作錯誤",0) Call DBConnBegin() Set Rs=server.createobject("adodb.recordset") Rs.Open"Select A.WM_Company,B.WM_Name,B.WM_ParentPath,A.WM_AreaID,A.WM_ClassDir,A.WM_ClassID,A.WM_LastPhoto,A.WM_CouponNum,A.WM_PhotoNum,A.WM_IsCard,A.WM_BusinessTime,A.WM_Address,A.WM_Depot,A.WM_BusRoute,A.WM_Marker,A.WM_Web,A.WM_Intro,A.WM_Phone,A.WM_Fax,A.WM_Mobile,A.WM_User,A.WM_Time,A.WM_DB19T,A.WM_DB20T,A.WM_FiRstRE,A.WM_LastRE,A.WM_Hit,A.WM_Re,A.WM_Consume,A.WM_DB1,A.WM_DB2,A.WM_DB3,A.WM_DB4,A.WM_DB5,A.WM_DB6,A.WM_DB7,A.WM_DB8,A.WM_DB9,A.WM_DB10,A.WM_DB1T,A.WM_DB2T,A.WM_DB3T,A.WM_DB4T,A.WM_DB5T,A.WM_DB6T,A.WM_DB7T,A.WM_DB8T,A.WM_DB9T,A.WM_DB10T,A.WM_Coordinate,A.WM_ThinkGo,A.WM_IsGo,A.WM_Tags,A.WM_ReSer,A.WM_RePrice,A.WM_All,A.WM_TempID,A.WM_RZBL,A.WM_Eng,A.WM_Domain,A.WM_EndTime,A.WM_Logo,A.WM_SiteTemp,B.WM_ConTempID,A.WM_DB11,A.WM_DB12,A.WM_DB13,A.WM_DB14,A.WM_DB15,A.WM_DB16,A.WM_DB17,A.WM_DB18,A.WM_DB19,A.WM_DB20,A.WM_DB11T,A.WM_DB12T,A.WM_DB13T,A.WM_DB14T,A.WM_DB15T,A.WM_DB16T,A.WM_DB17T,A.WM_DB18T,A.WM_ProductNum From WM_Company A Inner Join WM_CompanySort B on A.WM_ClassID = B.WM_ID where A.WM_ID="&ID&"",Conn,1,1 If Rs.eof Then Call WRMPS.ErrView("","","
  • 內容不存在",0) '自助建站 ' SiteTemp = "" LastPhoto = Rs(6) Call WRMPS.FsoBegin() If WR_Prop(0) > 0 And Rs(58) <> "" And IsNull(Rs(58))=False and Rs(60) > Now() Then Com_Eng = Rs(58) Com_Domain = Rs(59) '店鋪地址 Com_Url = "" If Int(WR_Company(6)) > 0 And Com_Domain <> "" And IsNUll(Com_Domain) = False Then Com_Url = lcase("http://"&Com_Domain) If Com_Url = "" Then Select Case Int(WR_Company(4)) Case 1 Com_Url = lcase("http://"&Com_Eng&"."&WR_Company(5)&"."&WR_Setting(1)) Case 2 Com_Url = lcase("http://www."&Com_Eng&"."&WR_Setting(1) ) Case 3 Com_Url = lcase("http://"&Com_Eng&"."&WR_Setting(1) ) End Select End If If Com_Url <> "" and (Int(WR_Company(4)) > 0 Or Int(WR_Company(6)) > 0) Then If lcase(Com_Url&"/") <> lcase(WR_Setting(4)) Then Response.Redirect Com_Url:Response.End Response.redirect WR_Setting(4)&"co/"&ID End If If LastPhoto = "" Or IsNull(LastPhoto) Then LastPhoto = WR_Setting(3)&"Skins/"&WR_Setting(5)&"/nopic.gif" LastPhoto = WRMPS.CheckStr(LastPhoto,5) LastPhoto = WRMPS.GetReplace(UCase(LastPhoto),"/S/","/") ClassID = Rs(5) If Rs(56) > 0 Then TempStr = WRTemp.SiteTemplates(1,Rs(56),48,ChannelID) Else TempStr = WRTemp.SiteTemplates(1,Rs(63),48,ChannelID) Com_Url = WRMPS.GetCompanyUrl(ID) AreaID = Rs(3) ClassName = Rs(1) ParentPath = Rs(2) SitePath = ","&ChannelName&"" If Instr(ParentPath,",") Then ParentPath = Right(ParentPath,Len(ParentPath)-2) For i = 0 To UBound(Split(ParentPath,",")) If Split(ParentPath,",")(i) <> "" Then Set Rso = Conn.Execute("Select WM_Name,WM_ID,WM_ParentDir,WM_Dir From WM_CompanySort where WM_ID="&Int(Split(ParentPath,",")(i))) If Not Rso.Eof Then SitePath = SitePath & ","&Rso(0)&"" End If Rso.Close End If Next End If Set Rso = Nothing SitePath = SitePath & ","&ClassName&"" Select Case Rs(57) Case 0 TempStr = WRMPS.GetReplace(TempStr,"{$Rz}","未認證") TempStr = WRMPS.GetReplace(TempStr,"{$RzSign}","") Case 1 TempStr = WRMPS.GetReplace(TempStr,"{$Rz}","已認證") TempStr = WRMPS.GetReplace(TempStr,"{$RzSign}","已認證") End Select TempStr = WRMPS.GetReplace(TempStr,"{$TempDir}",TempDir) TempStr = WRMPS.GetReplace(TempStr,"{$LastPhoto}",LastPhoto) TempStr = WRMPS.GetReplace(TempStr,"{$AreaID}",AreaID) TempStr = WRMPS.GetReplace(TempStr,"{$ClassID}",ClassID) TempStr = WRMPS.GetReplace(TempStr,"{$ClassName}",ClassName) TempStr = WRMPS.GetReplace(TempStr,"{$ClassUrl}",WRMPS.GetClassUrl(1,1,ChannelDir&Rs(4),Rs(5))) TempStr = WRMPS.GetReplace(TempStr,"{$AreaName}",WRMPS.GetAreaUrl(AreaID,"Name")) TempStr = WRMPS.GetReplace(TempStr,"{$AreaUrl}",WRMPS.GetAreaUrl(AreaID,"Url")) TempStr = WRMPS.GetReplace(TempStr,"{$Url}",Com_Url) TempStr = WRMPS.GetReplace(TempStr,"{$ID}",ID) TempStr = WRMPS.GetReplace(TempStr,"{$Company}",Rs(0)) TempStr = WRMPS.GetReplace(TempStr,"{$PhotoNum}",Rs(8)) TempStr = WRMPS.GetReplace(TempStr,"{$IsCard}",Rs(9)) TempStr = WRMPS.GetReplace(TempStr,"{$BusinessTime}",Rs(10)) TempStr = WRMPS.GetReplace(TempStr,"{$Depot}",Rs(12)) TempStr = WRMPS.GetReplace(TempStr,"{$BusRoute}",Rs(13)) TempStr = WRMPS.GetReplace(TempStr,"{$Marker}",Rs(14)) TempStr = WRMPS.GetReplace(TempStr,"{$Web}",Rs(15)) TempStr = WRMPS.GetReplace(TempStr,"{$Intro}",Rs(16)) If Int(WR_UpLoad(41)) > 0 Then If WRMPS.FsoIsTrue("File",WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&"/Co/"&ID&"/"&MD5(0,ID&"Co1")&".gif") Then TempStr = WRMPS.GetReplace(TempStr,"{$FaxSign}","") If WRMPS.FsoIsTrue("File",WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&"/Co/"&ID&"/"&MD5(0,ID&"Co2")&".gif") Then TempStr = WRMPS.GetReplace(TempStr,"{$PhoneSign}","") If WRMPS.FsoIsTrue("File",WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&"/Co/"&ID&"/"&MD5(0,ID&"Co3")&".gif") Then TempStr = WRMPS.GetReplace(TempStr,"{$MobileSign}","") End If Call WRMPS.FsoEnd() TempStr = WRMPS.GetReplace(TempStr,"{$FaxSign}","{$Fax}") TempStr = WRMPS.GetReplace(TempStr,"{$PhoneSign}","{$Phone}") TempStr = WRMPS.GetReplace(TempStr,"{$MobileSign}","{$Mobile}") TempStr = WRMPS.GetReplace(TempStr,"{$Address}",Rs(11)) TempStr = WRMPS.GetReplace(TempStr,"{$Phone}",Rs(17)) TempStr = WRMPS.GetReplace(TempStr,"{$Fax}",Rs(18)) TempStr = WRMPS.GetReplace(TempStr,"{$Mobile}",Rs(19)) TempStr = WRMPS.GetReplace(TempStr,"{$User}",WRUser.DispUser(0,Rs(20))) TempStr = WRMPS.GetReplace(TempStr,"{$Time}",Rs(21)) If Rs(24) <> "" Then TempStr = WRMPS.GetReplace(TempStr,"{$FirstRE}","
    第一點評人:"&WRUser.DispUser(0,Rs(24))) TempStr = WRMPS.GetReplace(TempStr,"{$FirstRE}","") If Rs(25) <> "" Then TempStr = WRMPS.GetReplace(TempStr,"{$LastRE}","
    最后點評人:"&WRUser.DispUser(0,Rs(25))) TempStr = WRMPS.GetReplace(TempStr,"{$LastRE}","") TempStr = WRMPS.GetReplace(TempStr,"{$Hit}","") TempStr = WRMPS.GetReplace(TempStr,"{$Re}","") TempStr = WRMPS.GetReplace(TempStr,"{$GB}","") TempStr = WRMPS.GetReplace(TempStr,"{$NewRe}","") TempStr = WRMPS.GetReplace(TempStr,"{$Collection}","") If Instr(TempStr,"{$IDCode}") > 0 Then TempStr = WRMPS.GetReplace(TempStr,"{$IsIDCode}",WRMPS.CheckCode("Re",1)) If WRMPS.CheckCode("Re",1) Then TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}","") Else TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}"," style=""display:none""") End If End If TempStr = WRMPS.GetReplace(TempStr,"{$Coordinate}",Rs(49)) TempStr = WRMPS.GetReplace(TempStr,"{$CoCouponNum}",Rs(7)) TempStr = WRMPS.GetReplace(TempStr,"{$CoProductNum}",Rs(82)) If Rs(27) > 0 Then ReSer = WRMPS.GetFormatNumber(Rs(53)/Rs(27),2) RePrice = WRMPS.GetFormatNumber(Rs(54)/Rs(27),2) All = WRMPS.GetFormatNumber(Rs(55)/Rs(27),2) Consume = WRMPS.GetFormatNumber(Rs(28)/Rs(27),2) Else ReSer = 0 RePrice = 0 All = 0 Consume = 0 End If TempStr = WRMPS.GetReplace(TempStr,"{$Consume}",Consume) TempStr = WRMPS.GetReplace(TempStr,"{$ReSer}",WRMPS.GetRePic(ReSer)) TempStr = WRMPS.GetReplace(TempStr,"{$RePrice}",WRMPS.GetRePic(RePrice)) TempStr = WRMPS.GetReplace(TempStr,"{$All}",WRMPS.GetRePic(All)) If Instr(TempStr,"{$ThinkGoNum}") > 0 Or Instr(TempStr,"{$ThinkGo}") > 0 Then ThinkGo = Rs(50):tThinkGo = "":ThinkGoNum = 0 If ThinkGo <> "" Then ThinkGo = Split(ThinkGo,",") For i = 0 To Ubound(ThinkGo) If ThinkGo(i) <> "" Or IsNull(ThinkGo(i)) Then ThinkGoNum = ThinkGoNum + 1 If tThinkGo = "" Then tThinkGo = WRUser.DispUser(0,ThinkGo(i)) Else tThinkGo = tThinkGo & ", " & WRUser.DispUser(0,ThinkGo(i)) End If If i>=20 Then tThinkGo = tThinkGo & " ..." :Exit For Next End If TempStr = WRMPS.GetReplace(TempStr,"{$ThinkGoNum}",ThinkGoNum) TempStr = WRMPS.GetReplace(TempStr,"{$ThinkGo}",tThinkGo) End If If Instr(TempStr,"{$IsGoNum}") > 0 Or Instr(TempStr,"{$IsGo}") > 0 Then IsGo = Rs(51):tIsGo = "":IsGoNum = 0 If IsGo <> "" Then IsGo = Split(IsGo,",") For i = 0 To Ubound(IsGo) If IsGo(i) <> "" Or IsNull(IsGo(i)) Then IsGoNum = IsGoNum + 1 If tIsGo = "" Then tIsGo = WRUser.DispUser(0,IsGo(i)) Else tIsGo = tIsGo & ", " & WRUser.DispUser(0,IsGo(i)) End If If i>=20 Then tIsGo = tIsGo & " ..." :Exit For Next End If TempStr = WRMPS.GetReplace(TempStr,"{$IsGoNum}",IsGoNum) TempStr = WRMPS.GetReplace(TempStr,"{$IsGo}",tIsGo) End If If Instr(TempStr,"{$Tags}") > 0 Then Tags = Rs(52):tTags = "" If Tags <> "" Then Tags = WRMPS.GetReplace(Tags,",",",") Tags = Split(Tags,",") For i=0 To UBound(Tags) If Tags(i) <> "" Then If tTags = "" Then tTags = ""&Tags(i)&"" Else tTags = tTags&","&Tags(i)&"" End If End If Next End If TempStr = WRMPS.GetReplace(TempStr,"{$Tags}",tTags) End If If Instr(TempStr,"{$CommendProduct}") > 0 Or Instr(TempStr,"{$CommendProductSelect}") > 0 Then Set Rso = Conn.Execute("Select WM_ProductName,WM_CommendNum From WM_CompanyProduct Where WM_CommendNum > 0 and WM_ComID="&ID&" Order By WM_CommendNum Desc,WM_ID Desc") i = 0 Do While Not Rso.Eof i = i+1 If CProduct = "" Then If i <= 10 Then CProduct = Rso(0)&"("&Rso(1)&")" 'CProduct = ""&Rso(0)&"("&Rso(1)&")" CProductSelect = ""&Rso(0)&"("&Rso(1)&")" End If Else If i <= 10 Then CProduct = CProduct&","&Rso(0)&"("&Rso(1)&")" 'CProduct = CProduct&","&Rso(0)&"("&Rso(1)&")" CProductSelect = CProductSelect&","&Rso(0)&"("&Rso(1)&")" Else If ACProduct = "" Then ACProduct = CProduct ACProductSelect = CProductSelect Else ACProduct = ACProduct&","&Rso(0)&"("&Rso(1)&")" 'ACProduct = ACProduct&","&Rso(0)&"("&Rso(1)&")" ACProductSelect = ACProductSelect&","&Rso(0)&"("&Rso(1)&")" End If End If End If Rso.MoveNext Loop Rso.Close If i > 10 Then CProduct = "
    "&CProduct&"
    顯示全部
    " CProductSelect = "
    "&CProductSelect&"
    顯示全部
    " Else CProduct = "
    "&CProduct&"
    " CProductSelect = "
    "&CProductSelect&"
    " End If TempStr = WRMPS.GetReplace(TempStr,"{$CommendProduct}",CProduct) TempStr = WRMPS.GetReplace(TempStr,"{$CommendProductSelect}",CProductSelect) End If If Rs(39) <> "" and IsNull(Rs(39)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB1}",Rs(39)&Rs(29)&"
    ") If Rs(40) <> "" and IsNull(Rs(40)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB2}",Rs(40)&Rs(30)&"
    ") If Rs(41) <> "" and IsNull(Rs(41)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB3}",Rs(41)&Rs(31)&"
    ") If Rs(42) <> "" and IsNull(Rs(42)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB4}",Rs(42)&Rs(32)&"
    ") If Rs(43) <> "" and IsNull(Rs(43)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB5}",Rs(43)&Rs(33)&"
    ") If Rs(44) <> "" and IsNull(Rs(44)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB6}",Rs(44)&Rs(34)&"
    ") If Rs(45) <> "" and IsNull(Rs(45)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB7}",Rs(45)&Rs(35)&"
    ") If Rs(46) <> "" and IsNull(Rs(46)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB8}",Rs(46)&Rs(36)&"
    ") If Rs(47) <> "" and IsNull(Rs(47)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB9}",Rs(47)&Rs(37)&"
    ") If Rs(48) <> "" and IsNull(Rs(48)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB10}",Rs(48)&Rs(38)&"
    ") If Rs(74) <> "" and IsNull(Rs(74)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB11}",Rs(74)&Rs(64)&"
    ") If Rs(75) <> "" and IsNull(Rs(75)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB12}",Rs(75)&Rs(65)&"
    ") If Rs(76) <> "" and IsNull(Rs(76)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB13}",Rs(76)&Rs(66)&"
    ") If Rs(77) <> "" and IsNull(Rs(77)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB14}",Rs(77)&Rs(67)&"
    ") If Rs(78) <> "" and IsNull(Rs(78)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB15}",Rs(78)&Rs(68)&"
    ") If Rs(79) <> "" and IsNull(Rs(79)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB16}",Rs(79)&Rs(69)&"
    ") If Rs(80) <> "" and IsNull(Rs(80)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB17}",Rs(80)&Rs(70)&"
    ") If Rs(81) <> "" and IsNull(Rs(81)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB18}",Rs(81)&Rs(71)&"
    ") If Rs(22) <> "" and IsNull(Rs(22)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB19}",Rs(22)&Rs(72)&"
    ") If Rs(23) <> "" and IsNull(Rs(23)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB20}",Rs(23)&Rs(73)&"
    ") TempStr = WRMPS.Temp_Del_Label(TempStr) TempStr = WRMPS.GetReplace(TempStr,"{$ReviewUrl}",WRMPS.GetCritiqueUrl(ID)) Rs.Close Set Rs = Nothing SitePath = WRMPS.GetSitePath(AreaID,SitePath) TempStr = WRTemp.SiteClass(TempStr) TempStr = WRTemp.SiteChannel(TempStr) TempStr = WRTemp.SiteLabel(TempStr) Call ClassEnd() Call DBConnEnd() Response.Write TempStr %> 我爱玩山西麻将app 天津十一选五开奖结果 极速赛车计划 北京快三免费计划预测 浙江体彩大乐透11选5预测 深圳风采2013065 辽宁十一选五走势图360 安全可靠的理财平台排名 好运快3正规的吗 腾讯分分彩app软件下载 手机股票开户流程