photoshow.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="../inc/Conn.asp"-->
<!--#include file="../Inc/Cls.Common.asp"-->
<!--#include file="../Inc/Cls.Templates.asp"-->
<!--#include file="Channel_Config.asp"-->
<%
   Dim ID,ParentPath,i
   Dim ThinkGo,IsGo,Tags,tThinkGo,tIsGo,tTags,ThinkGoNum,IsGoNum
   Dim CProduct,CProductSelect,ACProduct,ACProductSelect,Consume
   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_ID,A.WM_User,A.WM_ComID,A.WM_Path,A.WM_Time,B.WM_ClassID,B.WM_Company,B.WM_Address,B.WM_Phone,B.WM_PhotoNum,B.WM_ClassDir,A.WM_PhotoName,B.WM_AreaID From WM_CompanyPhoto A Inner Join WM_Company B on A.WM_ComID = B.WM_ID where A.WM_Key=1 and A.WM_ComID="&ID&"",Conn,1,1
     If Rs.eof then
       Call WRMPS.ErrView("·该店铺还没有展示图片",0)
	 End If
       ClassID = Rs(5)
	   AreaID = Rs(12)
       Call WRMPS.FsoBegin()
       TempStr = WRTemp.SiteTemplates(1,0,59,ChannelID)
       Call WRMPS.FsoEnd()
	   Set Rso = Conn.Execute("Select WM_Name,WM_ParentPath From WM_CompanySort Where WM_ID="&Rs(5))
       If Not Rso.Eof Then
	     ClassName = Rso(0)
	     ParentPath = Rso(1)
	   End If
	   Rso.Close
	   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(10),Rs(5))&">"&ClassName&"</a>"
	   TempStr = WRMPS.GetReplace(TempStr,"{$ID}",ID)
	   TempStr = WRMPS.GetReplace(TempStr,"{$Path}",Rs(3))
	   TempStr = WRMPS.GetReplace(TempStr,"{$PhotoNum}",Rs(9))
	   TempStr = WRMPS.GetReplace(TempStr,"{$PhotoName}",Rs(11))
	   TempStr = WRMPS.GetReplace(TempStr,"{$User}",Rs(1))
	   TempStr = WRMPS.GetReplace(TempStr,"{$Time}",Rs(4))
	   TempStr = WRMPS.GetReplace(TempStr,"{$ComID}",Rs(2))
	   TempStr = WRMPS.GetReplace(TempStr,"{$Url}",WRMPS.GetCompanyUrl(Rs(2)))
	   TempStr = WRMPS.GetReplace(TempStr,"{$Company}",Rs(6))
	   TempStr = WRMPS.GetReplace(TempStr,"{$Address}",Rs(7))
	   TempStr = WRMPS.GetReplace(TempStr,"{$Phone}",Rs(8))
	 Rs.Close
	 Dim PhotoList,MovieList,SPicPath
	 Call WRMPS.FsoBegin()
     Rs.Open"Select WM_User,WM_Path,WM_Time,WM_PhotoName,WM_Type From WM_CompanyPhoto where WM_Key=1 and WM_ComID="&ID,Conn,1,1
     Do While Not Rs.Eof
	   Select Case Rs(4)
	     Case 0
		   SPicPath = WRMPS.CheckStr(Replace(Rs(1),split(Rs(1),"/")(UBound(split(Rs(1),"/"))),"S/"&split(Rs(1),"/")(UBound(split(Rs(1),"/")))),5)
		   If WRMPS.FsoIsTrue("File",SPicPath) = False Then SPicPath = Rs(1)
	       If PhotoList = "" Then
		     PhotoList = "<script>setTimeout(""ShowPic('"&Rs(0)&"|"&Rs(1)&"|"&Rs(2)&"|"&Rs(3)&"')"", 1000);</script><div class=ComShowPic><img alt='"&Rs(3)&"' src='"&SPicPath&"' width=90px height=70px onclick=""ShowPic('"&Rs(0)&"|"&Rs(1)&"|"&Rs(2)&"|"&Rs(3)&"')"" style='cursor:pointer'></div>"
		   Else
		     PhotoList = "<div class=ComShowPic><img alt='"&Rs(3)&"' src='"&SPicPath&"' width=90px height=70px onclick=""ShowPic('"&Rs(0)&"|"&Rs(1)&"|"&Rs(2)&"|"&Rs(3)&"')"" style='cursor:pointer'></div>" & PhotoList
	       End If
		 Case 1
	       If MovieList = "" Then
		     MovieList = "<div class=ComShowPic><img alt='"&Rs(3)&"' src='"&WR_Setting(3)&"Skins/"&WR_Setting(5)&"/Com_Movie.gif' width=90px height=70px onclick=""ShowMovie('"&Rs(0)&"|"&Rs(2)&"|"&Rs(3)&"');javascript:window.open('"&WR_Setting(3)&"Company/Player.asp?Path="&Rs(1)&"','player')"" style='cursor:pointer'></div>"
		   Else
		     MovieList = MovieList & "<div class=ComShowPic><img alt='"&Rs(3)&"' src='"&WR_Setting(3)&"Skins/"&WR_Setting(5)&"/Com_Movie.gif' width=90px height=70px onclick=""ShowMovie('"&Rs(0)&"|"&Rs(2)&"|"&Rs(3)&"');javascript:window.open('"&WR_Setting(3)&"Company/Player.asp?Path="&Rs(1)&"','player')"" style='cursor:pointer'></div>"
	       End If
	   End Select
	 Rs.Movenext
	 Loop
	 Rs.Close
	 Call WRMPS.FsoEnd()
	 TempStr = WRMPS.GetReplace(TempStr,"{$PhotoList}",PhotoList)
	 TempStr = WRMPS.GetReplace(TempStr,"{$MovieList}",MovieList)
	 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

%>