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,reName,nm,reContent,title,PostTime,ADPostName,Dir,BigUrl,SmallUrl,eTags,ei,eTag
Dim QQ,EndTime,Pic,AreaName,ParentPath,i,ClassUrl
   ID=WRMPS.CheckStr(Request.QueryString("ID"),1)
   If ID = "" Then Call WRMPS.ErrView("·操作错误<meta http-equiv=refresh content='1;URL=../'>",0)
   Call DBConnBegin()
   Call WRMPS.FsoBegin()
   TempStr = WRTemp.SiteTemplates(1,0,43,ChannelID)
   Call WRMPS.FsoEnd()

     Set Rs=server.createobject("adodb.recordset")
     Rs.Open"select A.WM_Title,A.WM_PostTime,A.WM_Content,B.WM_Name,A.WM_mAgency,A.WM_AreaID,A.WM_Post,A.WM_Contact,A.WM_Tel,A.WM_QQ,A.WM_AddRess,A.WM_IP,A.WM_EndTime,A.WM_PostType,A.WM_Pic,A.WM_ClassDir,A.WM_Tag,A.WM_mCommend,A.WM_mSortErr,A.WM_mTrash,B.WM_ParentPath from WM_ClassAD A Inner Join WM_ClassSort B on A.WM_ClassID = B.WM_ID where A.WM_Key=1 and A.WM_id="&ID,Conn,1,1
     If Rs.eof then
       Call WRMPS.ErrView("·该信息不存在或还没有通过管理员审核<meta http-equiv=refresh content='1;URL=../Index.asp'>",0)
	 End If
	   TempStr = WRMPS.GetReplace(TempStr,"{$ID}",ID)
	   TempStr = WRMPS.GetReplace(TempStr,"{$Title}",Rs(0))
	   TempStr = WRMPS.GetReplace(TempStr,"{$Time}",Rs(1))
	   TempStr = WRMPS.GetReplace(TempStr,"{$Content}",Rs(2))
	   TempStr = WRMPS.GetReplace(TempStr,"{$Post}",WRUser.DispUser(0,Rs(6)))
	   TempStr = WRMPS.GetReplace(TempStr,"{$LinkMan}",Rs(7))
	   TempStr = WRMPS.GetReplace(TempStr,"{$Tel}",Rs(8))
	   TempStr = WRMPS.GetReplace(TempStr,"{$QQ}",Rs(9))
	   TempStr = WRMPS.GetReplace(TempStr,"{$Address}",Rs(10))
	   TempStr = WRMPS.GetReplace(TempStr,"{$IP}",Rs(11))
       EndTime = Cdate(Rs(12))
	   If EndTime <> "" Then EndTime = "<font id=isover><script>GetIsOver("""&Replace(EndTime,"-","/")&""")</script></font>"
	   TempStr = WRMPS.GetReplace(TempStr,"{$IsOver}",EndTime)
	   Pic = Rs(14)
	   If Pic <> "" Then Pic = "<table class=classPic><tr><td><a target=_blank href='"&WR_Setting(3)&Pic&"'><img src='"&WR_Setting(3)&Pic&"' border=0 onload=""javascript:DrawImage(this,160,160);""></a></td></tr></table>"
	   TempStr = WRMPS.GetReplace(TempStr,"{$Pic}",Pic)
	   TempStr = WRMPS.GetReplace(TempStr,"{$Url}",WRMPS.GetShowUrl(1,1,0,ID,Rs(1),ChannelDir&Rs(15),ChannelID))
	   TempStr = WRMPS.GetReplace(TempStr,"{$Hit}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Class.asp?"&ID&",Hit'></script>")
	   TempStr = WRMPS.GetReplace(TempStr,"{$Re}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Class.asp?"&ID&",reNum'></script>")
	   TempStr = WRMPS.GetReplace(TempStr,"{$UserData}",WRUser.UserData(Rs(6)))
	   TempStr = WRMPS.GetReplace(TempStr,"{$NewRe}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Class.asp?"&ID&",reShow'></script>")
	   If Instr(TempStr,"{$Tags}") > 0 Then
	        eTags = ""
	    	eTag = Rs(16)
			If eTag <> "" and IsNUll(eTag) Then
		        eTag = Split(eTag,",")
		        For pi=0 To UBound(eTag)
		         If eTag(pi) <> "" Then 
		          If eTags = "" Then
			        eTags = "<a href="&WR_Setting(3)&"Search/C?Key="&escape(eTag(pi))&" target=_blank>"&eTag(pi)&"</a>"
		          Else
			        eTags = eTags&",<a href="&WR_Setting(3)&"Search/C?Key="&escape(eTag(pi))&" target=_blank>"&eTag(pi)&"</a>"
			      End If
		    	 End If
		        Next
			Else
			  eTags = ""
			End If
            TempStr = WRMPS.GetReplace(TempStr,"{$Tags}",eTags)
	   End If
       TempStr = WRMPS.GetReplace(TempStr,"{$Commend}",Rs(17))
       TempStr = WRMPS.GetReplace(TempStr,"{$SortErr}",Rs(18))
       TempStr = WRMPS.GetReplace(TempStr,"{$Trash}",Rs(19))
       TempStr = WRMPS.GetReplace(TempStr,"{$Agency}",Rs(4))
	   Dir = Rs(15)
	   AreaID = Rs(5)
	   ClassName = Rs(3)
	   ParentPath = Rs(20)
	 Rs.Close
     AreaName=WRDB.GetClassName("WM_Area",AreaID)
	 TempStr = WRMPS.GetReplace(TempStr,"{$ClassName}",ClassName)
	 TempStr = WRMPS.GetReplace(TempStr,"{$ClassID}",ClassID)
	 TempStr = WRMPS.GetReplace(TempStr,"{$AreaName}",AreaName)
     TempStr = WRMPS.GetReplace(TempStr,"{$AreaID}",AreaID)
	   
	 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_ClassSort 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
	 ClassUrl = WRMPS.GetClassUrl(0,1,1,ChannelDir&Dir,ClassID)
	 SitePath = SitePath & ",<a href="&ClassUrl&">"&ClassName&"</a>"

	 TempStr = WRMPS.GetReplace(TempStr,"{$ClassUrl}",ClassUrl)
	 
	 SitePath = WRMPS.GetSitePath(AreaID,SitePath)
	 TempStr = WRTemp.SiteChannel(TempStr)
	 TempStr = WRTemp.SiteLabel(TempStr)
   
     Call ClassEnd()
	 Call DBConnEnd()
	 Response.Write TempStr
%>