print.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 Intro,Title,Tag,Tags,eEnd,AgioTypePic
   Dim Pic,PicList,PicLists
   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_Title,A.WM_Intro,A.WM_Path,A.WM_ClassID,A.WM_AreaID,A.WM_Time,A.WM_Hit,A.WM_Re,A.WM_User,A.WM_Commend,A.WM_ClassDir,A.WM_ChannelID,A.WM_ChannelDir,B.WM_Name,A.WM_Tel,A.WM_AddRess,A.WM_Tags,A.WM_ComID,A.WM_Collection,A.WM_Begin,A.WM_End,A.WM_Agio,A.WM_AgioType,A.WM_Item,A.WM_Circumscribe,A.WM_TempID,B.WM_ParentPath,A.WM_PathList From WM_Coupon A Inner Join WM_CouponSort 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(4)
       Call WRMPS.FsoBegin()
       TempStr = WRTemp.SiteTemplates(1,0,63,ChannelID)
	   AreaID = Rs(5)
	   ClassName = Rs(14)
	   ParentPath = Rs(27)
	   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_CouponSort 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(11),ClassID)&">"&ClassName&"</a>"
	   TempStr = WRMPS.GetReplace(TempStr,"{$AreaID}",AreaID)
       TempStr = WRMPS.GetReplace(TempStr,"{$ID}",Rs(0))
       TempStr = WRMPS.GetReplace(TempStr,"{$Url}",WRMPS.GetShowUrl(1,1,0,Rs(0),Rs(6),Rs(13)&"/"&Rs(11)&"/",Rs(12)))
	   TempStr = WRMPS.GetReplace(TempStr,"{$ClassName}",Rs(14))
	   TempStr = WRMPS.GetReplace(TempStr,"{$ClassUrl}",WRMPS.GetClassUrl(0,1,1,Rs(13)&"/"&Rs(11)&"/",Rs(4)))
	   TempStr = WRMPS.GetReplace(TempStr,"{$AreaName}",WRMPS.GetAreaUrl(Rs(5),"Name"))
	   TempStr = WRMPS.GetReplace(TempStr,"{$AreaUrl}",WRMPS.GetAreaUrl(Rs(5),"Url"))
	   Title = Rs(1)
	   Intro = Rs(2)
	   TempStr = WRMPS.GetReplace(TempStr,"{$Title}",Title)
	   TempStr = WRMPS.GetReplace(TempStr,"{$Content}",Intro)
	   TempStr = WRMPS.GetReplace(TempStr,"{$Time}",Rs(6))
	   TempStr = WRMPS.GetReplace(TempStr,"{$Hit}",Rs(7))
	   TempStr = WRMPS.GetReplace(TempStr,"{$Re}",Rs(8))
	   TempStr = WRMPS.GetReplace(TempStr,"{$Collection}",Rs(19))
	   TempStr = WRMPS.GetReplace(TempStr,"{$Begin}",Rs(20))
	   TempStr = WRMPS.GetReplace(TempStr,"{$End}",Rs(21))
	   TempStr = WRMPS.GetReplace(TempStr,"{$Tel}",Rs(15))
	   TempStr = WRMPS.GetReplace(TempStr,"{$AddRess}",Rs(16))
	   Pic = WRMPS.CheckStr(Rs(3),5)
	   If Pic = "" Then Pic = UrlPath&"Skins/"&WR_Setting(5)&"/nopic.gif"
	   TempStr = WRMPS.GetReplace(TempStr,"{$Pic}",Pic)
	   PicList = Rs(28)
	   PicList = Split(PicList,"|")
	   For i=0 To UBound(PicList)
	     If PicLists <> "" Then
	       PicLists = PicLists & "<br><br><img src="&PicList(i)&" onclick=""javascript:window.open(this.src)"">"
	     Else
	       PicLists = "<img src="&PicList(i)&" onclick=""javascript:window.open(this.src)"">"
	     End If
	   Next
	   TempStr = WRMPS.GetReplace(TempStr,"{$PicList}",PicLists)
	   TempStr = WRMPS.GetReplace(TempStr,"{$PostName}",WRUser.DispUser(0,Rs(9)))
	   If Instr(TempStr,"{$Tags}") > 0 Then
	     Tag = Rs(17)
	     If Tag <> "" and Isnull(Tag) = false Then
	       Tag = Split(Tag,",")
	       For i=0 To UBound(Tag)
	         If Tag(i) <> "" Then 
	           If Tags = "" Then
	             Tags = "<a href="&UrlPath&"Search/S?Key="&escape(Tag(i))&" target=_blank>"&Tag(i)&"</a>"
	           Else
	             Tags = Tags&",<a href="&UrlPath&"Search/S?Key="&escape(Tag(i))&" target=_blank>"&Tag(i)&"</a>"
	           End If
	         End If
	       Next
	     Else
	       Tags = ""
	     End If
	     TempStr = WRMPS.GetReplace(TempStr,"{$Tags}",Tags)
	   End If
	   If Rs(18) > 0 Then TempStr = WRMPS.GetReplace(TempStr,"{$CompanyData}","<script language=javascript src='"&WR_Setting(3)&"Company/Company.asp?ID="&Rs(18)&"'></script>")
	   TempStr = WRMPS.GetReplace(TempStr,"{$CompanyData}","")
	   TempStr = WRMPS.GetReplace(TempStr,"{$AgioType}",WRMPS.GetReplace(WRMPS.GetReplace(WRMPS.GetReplace(Rs(23),0,"折扣券"),1,"抵价券"),2,"礼品券"))
	   TempStr = WRMPS.GetReplace(TempStr,"{$Agio}",Rs(22)&WRMPS.GetReplace(WRMPS.GetReplace(WRMPS.GetReplace(Rs(23),0,"折"),1,"元"),2,"礼品券"))
	   eEnd = Rs(21)
	   AgioTypePic = Rs(23)
	   Select Case AgioTypePic
	     Case 0
	       AgioTypePic = UrlPath&"Skins/"&WR_Setting(5)&"/Agio_Pic_0.png"
	     Case 1
	       AgioTypePic = UrlPath&"Skins/"&WR_Setting(5)&"/Agio_Pic_1.png"
	     Case 2
	       AgioTypePic = UrlPath&"Skins/"&WR_Setting(5)&"/Agio_Pic_2.png"
	   End Select
	   If eEnd <> "" Then If eEnd < Date() Then AgioTypePic = UrlPath&"Skins/"&WR_Setting(5)&"/Agio_Pic_5.png"
	   TempStr = WRMPS.GetReplace(TempStr,"{$AgioTypePic}",AgioTypePic)
	   TempStr = WRMPS.GetReplace(TempStr,"{$Item}",Rs(24))
	   TempStr = WRMPS.GetReplace(TempStr,"{$Circumscribe}",Rs(25))
	 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

%>