📄 company.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
字号:
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../Inc/Cls.Common.asp"-->
<!--#include file="../Inc/Cls.Templates.asp"-->
<!--#include file="Channel_Config.asp"-->
<%
   Dim ID,i
   Dim ThinkGo,IsGo,Tags,tThinkGo,tIsGo,tTags,ThinkGoNum,IsGoNum,MapSign
   Dim CProduct,CProductSelect,ACProduct,ACProductSelect,Consume,LastPhoto,CouponList
   Dim ReSer,rePrice,All
   ID=WRMPS.CheckStr(Request("ID"),1)
   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 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 Not Rs.eof Then
       ClassID = Rs(5)
       Call WRMPS.FsoBegin()
       TempStr = WRTemp.SiteTemplates(1,0,68,ChannelID)
	   AreaID = Rs(3)
	   ClassName = Rs(1)
	   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
		   TempStr = WRMPS.GetReplace(TempStr,"{$FaxSign}","{$Fax}")
	       TempStr = WRMPS.GetReplace(TempStr,"{$PhoneSign}","{$Phone}")
	       TempStr = WRMPS.GetReplace(TempStr,"{$MobileSign}","{$Mobile}")
	       TempStr = WRMPS.GetReplace(TempStr,"{$AddressSign}","{$Address}")
	   Else
		   If WRMPS.FsoIsTrue("File",WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&WRMPS.SaveTimeDir()&MD5(0,ID&"Company1")&".gif") Then TempStr = WRMPS.GetReplace(TempStr,"{$FaxSign}","<img src="&WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&WRMPS.SaveTimeDir()&MD5(0,ID&"Company1")&".gif border=0 align=absmiddle>") Else TempStr = WRMPS.GetReplace(TempStr,"{$FaxSign}","{$Fax}")
           If WRMPS.FsoIsTrue("File",WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&WRMPS.SaveTimeDir()&MD5(0,ID&"Company2")&".gif") Then TempStr = WRMPS.GetReplace(TempStr,"{$PhoneSign}","<img src="&WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&WRMPS.SaveTimeDir()&MD5(0,ID&"Company2")&".gif border=0 align=absmiddle>") Else TempStr = WRMPS.GetReplace(TempStr,"{$PhoneSign}","{$Phone}")
           If WRMPS.FsoIsTrue("File",WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&WRMPS.SaveTimeDir()&MD5(0,ID&"Company3")&".gif") Then TempStr = WRMPS.GetReplace(TempStr,"{$MobileSign}","<img src="&WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&WRMPS.SaveTimeDir()&MD5(0,ID&"Company3")&".gif border=0 align=absmiddle>") Else TempStr = WRMPS.GetReplace(TempStr,"{$MobileSign}","{$Mobile}")
           If WRMPS.FsoIsTrue("File",WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&WRMPS.SaveTimeDir()&MD5(0,ID&"Company4")&".gif") Then TempStr = WRMPS.GetReplace(TempStr,"{$AddressSign}","<img src="&WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&WRMPS.SaveTimeDir()&MD5(0,ID&"Company4")&".gif border=0 align=absmiddle>") Else TempStr = WRMPS.GetReplace(TempStr,"{$AddressSign}","{$Address}")
	   End If
	   Call WRMPS.FsoEnd()
	   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}","<a href="&WRMPS.GetSpaceUrl(0,Rs(22))&" target=_blank>"&Rs(22)&"</a>")
	   TempStr = WRMPS.GetReplace(TempStr,"{$ClaimUser}","")
	   TempStr = WRMPS.GetReplace(TempStr,"{$ClaimTime}",Rs(23))
	   If Rs(24) <> "" Then TempStr = WRMPS.GetReplace(TempStr,"{$FirstRE}","<br>第一点评人：<a href="&WRMPS.GetSpaceUrl(0,Rs(24))&" target=_blank>"&Rs(24)&"</a>")
	   TempStr = WRMPS.GetReplace(TempStr,"{$FirstRE}","")
	   If Rs(25) <> "" Then TempStr = WRMPS.GetReplace(TempStr,"{$LastRE}","<br>最后点评人：<a href="&WRMPS.GetSpaceUrl(0,Rs(25))&" target=_blank>"&Rs(25)&"</a>")
	   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,"{$Rl}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Company.asp?"&ID&",Rl'></script>")
	   TempStr = WRMPS.GetReplace(TempStr,"{$Coordinate}",Rs(49))
	   MapSign = Rs(49)
	   If MapSign <> "" and IsNull(MapSign) = False Then TempStr = WRMPS.GetReplace(TempStr,"{$MapSign}","<a href=# onClick=""openWithIframe('"&WRMPS.LeachHTML(Rs(0))&" 地图位置','"&WR_Setting(3)&"Plus/Map/"&WR_Other(12)&"/?Action=Show&xy="&MapSign&"&Text="&WRMPS.LeachHTML(Rs(0))&"',650,500);""><Img Src='"&WR_Setting(3)&"Skins/"&WR_Setting(5)&"/Map.gif' alt='已标注到地图，点击查看' align=absmiddle border=0></a>")
	   TempStr = WRMPS.GetReplace(TempStr,"{$MapSign}","")
	   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 = "<a href="&WRMPS.GetSpaceUrl(0,ThinkGo(i))&" target=_blank>"&ThinkGo(i)&"</a>" Else tThinkGo = tThinkGo & "," & "<a href="&WRMPS.GetSpaceUrl(0,ThinkGo(i))&" target=_blank>"&ThinkGo(i)&"</a>"
		   End If
		 Next
	     End If
	     TempStr = WRMPS.GetReplace(TempStr,"{$ThinkGoNum}",ThinkGoNum)
	     TempStr = WRMPS.GetReplace(TempStr,"{$ThinkGo}",tThinkGo)
	   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 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}","")
	 End If
	 Rs.Close
	 Set Rs = Nothing

     TempStr = WRTemp.SiteClass(TempStr)
     TempStr = WRTemp.SiteChannel(TempStr)
     TempStr = WRTemp.SiteLabel(TempStr)

	 Response.write WRMPS.ToJs(TempStr)
     Call ClassEnd()
	 Call DBConnEnd()


%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -