show.asp

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

<!--#include file="../inc/Conn.asp"-->
<!--#include file="../Inc/Cls.Common.asp"-->
<!--#include file="../Inc/Cls.Templates.asp"-->
<%
   Dim ID
   ID = WRMPS.CheckStr(Request("ID"),0)
   If ID = "" Then Call WRMPS.ErrView("·操作错误<meta http-equiv=refresh content='1;URL=../'>",0)

   Call DBConnBegin()
   Conn.Execute("Update WM_Gift Set WM_Hit = WM_Hit+1 Where WM_Number = '"&ID&"'")
   Call WRMPS.FsoBegin()
   TempStr = WRTemp.SiteTemplates(1,0,41,0)
   Call WRMPS.FsoEnd()
   SitePath = ",<a href="&WR_Setting(3)&"Gift/>礼品中心</a>,<a href="&WRMPS.GetGiftListUrl()&">礼品列表</a>,<a href="&WRMPS.GetGiftUrl(ID)&">竞奖</a>"
   SitePath = WRMPS.GetSitePath(-1,SitePath)
   Set Rs = Conn.Execute("Select WM_ID,WM_Title,WM_Number,WM_Content,WM_Pic,WM_Integral,WM_Num,WM_Time,WM_Hit,WM_RedeemNum from WM_Gift Where WM_Key = 1 and WM_Number='"&ID&"'")
   If Rs.eof Then Call WRMPS.ErrView("·内容不存在",0)
     TempStr = WRMPS.GetReplace(TempStr,"{$Title}",Rs(1))
     TempStr = WRMPS.GetReplace(TempStr,"{$Number}",ID)
     TempStr = WRMPS.GetReplace(TempStr,"{$Url}",WRMPS.GetGiftUrl(ID))
	 Content = Rs(3)
     TempStr = WRMPS.GetReplace(TempStr,"{$Content}",Content)
     TempStr = WRMPS.GetReplace(TempStr,"{$Pic}",WRMPS.CheckStr(Rs(4),5))
     TempStr = WRMPS.GetReplace(TempStr,"{$BPic}",WRMPS.GetReplace(WRMPS.CheckStr(Rs(4),5),"/S/","/"))
     TempStr = WRMPS.GetReplace(TempStr,"{$Integral}",Rs(5))
     TempStr = WRMPS.GetReplace(TempStr,"{$Num}",Rs(6))
     TempStr = WRMPS.GetReplace(TempStr,"{$Time}",Rs(7))
     TempStr = WRMPS.GetReplace(TempStr,"{$Hit}",Rs(8))
     TempStr = WRMPS.GetReplace(TempStr,"{$RedeemNum}",Rs(9))
     TempStr = WRMPS.GetReplace(TempStr,"{$GiftListUrl}",WRMPS.GetGiftListUrl())
   Rs.Close
   Set Rs = Nothing
   TempStr = WRTemp.SiteChannel(TempStr)
   TempStr = WRTemp.SiteLabel(TempStr)

   Call ClassEnd()
   Call DBConnEnd()
   Response.Write TempStr
%>