📄 index.asp
字号:
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../Inc/Cls.Common.asp"-->
<!--#include file="../Inc/Cls.Templates.asp"-->
<!--#include file="../Company/Channel_Config.asp"-->
<%
Dim ID,ParentPath,i
Dim ThinkGo,IsGo,Tags,tThinkGo,tIsGo,tTags,ThinkGoNum,IsGoNum
Dim CProduct,CProductSelect,ACProduct,ACProductSelect,Consume,LastPhoto,CouponList
Dim ReSer,rePrice,All
ID=WRMPS.CheckStr(Request("ID"),1)
If ID = "" Then Call WRMPS.ErrView("·操作错误<meta http-equiv=refresh content='1;URL=../'>",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_CheckUser,A.WM_CheckTime,A.WM_ClaimUser,A.WM_ClaimTime,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 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)
ClassID = Rs(5)
Call WRMPS.FsoBegin()
TempStr = WRTemp.SiteTemplates(1,Rs(56),48,ChannelID)
AreaID = Rs(3)
ClassName = Rs(1)
ParentPath = Rs(2)
SitePath = ",<a href="&WR_Setting(3)&ChannelDir&"/>"&ChannelName&"</a>"
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 & ",<a href="&WRMPS.GetClassUrl(0,1,1,ChannelDir&Rso(2)&Rso(3),Rso(1))&">"&Rso(0)&"</a>"
End If
Rso.Close
End If
Next
End If
Set Rso = Nothing
SitePath = SitePath & ",<a href="&WRMPS.GetClassUrl(0,1,1,ChannelDir&Rs(4),Rs(5))&">"&ClassName&"</a>"
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(0,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}",WRMPS.GetCompanyUrl(ID))
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}","<img src="&WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&"/Co/"&ID&"/"&MD5(0,ID&"Co1")&".gif border=0 align=absmiddle>")
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}","<img src="&WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&"/Co/"&ID&"/"&MD5(0,ID&"Co2")&".gif border=0 align=absmiddle>")
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}","<img src="&WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&"/Co/"&ID&"/"&MD5(0,ID&"Co3")&".gif border=0 align=absmiddle>")
If WRMPS.FsoIsTrue("File",WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&"/Co/"&ID&"/"&MD5(0,ID&"Co4")&".gif") Then TempStr = WRMPS.GetReplace(TempStr,"{$AddressSign}","<img src="&WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&"/Co/"&ID&"/"&MD5(0,ID&"Co4")&".gif border=0 align=absmiddle>")
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,"{$AddressSign}","{$Address}")
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,"{$CheckUser}",WRUser.DispUser(0,Rs(20)))
TempStr = WRMPS.GetReplace(TempStr,"{$CheckTime}",Rs(21))
If Rs(22) <> "" Then TempStr = WRMPS.GetReplace(TempStr,"{$ClaimUser}",WRUser.DispUser(0,Rs(22)))
TempStr = WRMPS.GetReplace(TempStr,"{$ClaimUser}","")
TempStr = WRMPS.GetReplace(TempStr,"{$ClaimTime}",Rs(23))
If Rs(24) <> "" Then TempStr = WRMPS.GetReplace(TempStr,"{$FirstRE}","<br>第一点评人："&WRUser.DispUser(0,Rs(24)))
TempStr = WRMPS.GetReplace(TempStr,"{$FirstRE}","")
If Rs(25) <> "" Then TempStr = WRMPS.GetReplace(TempStr,"{$LastRE}","<br>最后点评人："&WRUser.DispUser(0,Rs(25)))
TempStr = WRMPS.GetReplace(TempStr,"{$LastRE}","")
TempStr = WRMPS.GetReplace(TempStr,"{$Hit}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Company.asp?"&ID&",Hit'></script>")
TempStr = WRMPS.GetReplace(TempStr,"{$Re}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Company.asp?"&ID&",reNum'></script>")
TempStr = WRMPS.GetReplace(TempStr,"{$GB}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Company.asp?"&ID&",GBNum'></script>")
TempStr = WRMPS.GetReplace(TempStr,"{$NewRe}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Company.asp?"&ID&",reShow'></script>")
TempStr = WRMPS.GetReplace(TempStr,"{$Collection}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Company.asp?"&ID&",Collection'></script>")
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,"{$Rl}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Company.asp?"&ID&",Rl'></script>")
TempStr = WRMPS.GetReplace(TempStr,"{$Coordinate}",Rs(49))
LastPhoto = Rs(6)
If LastPhoto = "" Or IsNull(LastPhoto) Then LastPhoto = WR_Setting(3)&"Skins/"&WR_Setting(5)&"/nopic.gif"
TempStr = WRMPS.GetReplace(TempStr,"{$LastPhoto}",LastPhoto)
TempStr = WRMPS.GetReplace(TempStr,"{$CoCouponNum}",Rs(7))
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
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
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 = "<a href="&WR_Setting(3)&"Search/Y?Key="&escape(Tags(i))&" target=_blank>"&Tags(i)&"</a>"
Else
tTags = tTags&",<a href="&WR_Setting(3)&"Search/Y?Key="&escape(Tags(i))&" target=_blank>"&Tags(i)&"</a>"
End If
End If
Next
End If
TempStr = WRMPS.GetReplace(TempStr,"{$Tags}",tTags)
End If
If Instr(TempStr,"{$CommendProduct}") > 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)&"<span class=Remark>("&Rso(1)&")</span>"
'CProduct = "<a href="&WR_Setting(3)&"Search/Y?Key="&escape(Rso(0))&" target=_blank>"&Rso(0)&"</a><span class=Remark>("&Rso(1)&")</span>"
CProductSelect = "<a href=""javascript:AddProduct('"&Rso(0)&"')"">"&Rso(0)&"</a><span class=Remark>("&Rso(1)&")</span>"
End If
Else
If i <= 10 Then
CProduct = CProduct&","&Rso(0)&"<span class=Remark>("&Rso(1)&")</span>"
'CProduct = CProduct&",<a href="&WR_Setting(3)&"Search/Y?Key="&escape(Rso(0))&" target=_blank>"&Rso(0)&"</a><span class=Remark>("&Rso(1)&")</span>"
CProductSelect = CProductSelect&",<a href=""javascript:AddProduct('"&Rso(0)&"')"">"&Rso(0)&"</a><span class=Remark>("&Rso(1)&")</span>"
Else
If ACProduct = "" Then
ACProduct = CProduct
ACProductSelect = CProductSelect
Else
ACProduct = ACProduct&","&Rso(0)&"<span class=Remark>("&Rso(1)&")</span>"
'ACProduct = ACProduct&",<a href="&WR_Setting(3)&"Search/Y?Key="&escape(Rso(0))&" target=_blank>"&Rso(0)&"</a><span class=Remark>("&Rso(1)&")</span>"
ACProductSelect = ACProductSelect&",<a href=""javascript:AddProduct('"&Rso(0)&"')"">"&Rso(0)&"</a><span class=Remark>("&Rso(1)&")</span>"
End If
End If
End If
Rso.MoveNext
Loop
Rso.Close
If i > 10 Then
CProduct = "<div class=Product id=Product>"&CProduct&"<div class=ProductShowDiv><span class=ProductShow onclick='Product.style.display=""none"";AllProduct.style.display=""""'>显示全部</span></div></div><div class=Product id=AllProduct style='display:none'>"&ACProduct&"</div>"
CProductSelect = "<div id=ProductS>"&CProductSelect&"<div class=ProductShowDiv><span class=ProductShow onclick='ProductS.style.display=""none"";AllProductS.style.display=""""'>显示全部</span></div></div><div id=AllProductS style='display:none'>"&ACProductSelect&"</div>"
Else
CProduct = "<div class=Product id=Product>"&CProduct&"</div>"
CProductSelect = "<div id=ProductS>"&CProductSelect&"</div>"
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)&"<br>")
If Rs(40) <> "" and IsNull(Rs(40)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB2}",Rs(40)&Rs(30)&"<br>")
If Rs(41) <> "" and IsNull(Rs(41)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB3}",Rs(41)&Rs(31)&"<br>")
If Rs(42) <> "" and IsNull(Rs(42)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB4}",Rs(42)&Rs(32)&"<br>")
If Rs(43) <> "" and IsNull(Rs(43)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB5}",Rs(43)&Rs(33)&"<br>")
If Rs(44) <> "" and IsNull(Rs(44)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB6}",Rs(44)&Rs(34)&"<br>")
If Rs(45) <> "" and IsNull(Rs(45)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB7}",Rs(45)&Rs(35)&"<br>")
If Rs(46) <> "" and IsNull(Rs(46)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB8}",Rs(46)&Rs(36)&"<br>")
If Rs(47) <> "" and IsNull(Rs(47)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB9}",Rs(47)&Rs(37)&"<br>")
If Rs(48) <> "" and IsNull(Rs(48)) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$DB10}",Rs(48)&Rs(38)&"<br>")
TempStr = WRMPS.GetReplace(TempStr,"{$DB1}","")
TempStr = WRMPS.GetReplace(TempStr,"{$DB2}","")
TempStr = WRMPS.GetReplace(TempStr,"{$DB3}","")
TempStr = WRMPS.GetReplace(TempStr,"{$DB4}","")
TempStr = WRMPS.GetReplace(TempStr,"{$DB5}","")
TempStr = WRMPS.GetReplace(TempStr,"{$DB6}","")
TempStr = WRMPS.GetReplace(TempStr,"{$DB7}","")
TempStr = WRMPS.GetReplace(TempStr,"{$DB8}","")
TempStr = WRMPS.GetReplace(TempStr,"{$DB9}","")
TempStr = WRMPS.GetReplace(TempStr,"{$DB10}","")
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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -