class.asp

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

<!--#include file="../inc/Conn.asp"-->
<!--#include file="../Inc/Cls.Common.asp"-->
<!--#include file="../Inc/Cls.Templates.asp"-->
<%
	Page = WRMPS.CheckStr(Request("Page"),1)
	If Page = "" Then Page = 1
	Dim Term,CycList,ShowNum,ContentNum,TempList,CycTemp,i
	Dim PageUrl,DBSitePath,PageUrl1,PageUrl2,PageUrl3,ClassUrl,URLStr
	Call DBConnBegin()
	Call WRMPS.FsoBegin()
	TempStr = WRTemp.SiteTemplates(1,0,40,0)
	Call WRMPS.FsoEnd()
	SitePath = ",<a href="&WR_Setting(3)&"Gift/>礼品中心</a>,<a href="&WRMPS.GetGiftListUrl()&">礼品列表</a>"
	SitePath = WRMPS.GetSitePath(-1,SitePath)

	Term = WRMPS.HCode(2,TempStr,"{\$CycBegin}【","】")
	CycList = WRMPS.HCode(2,TempStr,"{\$CycBegin}【"&Term&"】","{\$CycEnd}")
	ShowNum = Split(Term,",")(0)
	ContentNum = Split(Term,",")(1)
	Set ClsPageList = New Cls_PageView  
      ClsPageList.strTableName = "WM_Gift"  
      ClsPageList.strPageUrl = WRMPS.GetGiftListUrl()
      ClsPageList.strFieldsList = "WM_ID,WM_Title,WM_Number,WM_Content,WM_Pic,WM_Integral,WM_Num,WM_Time,WM_Hit,WM_RedeemNum"  
      ClsPageList.strCondiction = "WM_Key=1 and WM_Num >= 0"
      ClsPageList.strOrderList = "WM_ID Desc"
      ClsPageList.strPrimaryKey = "WM_ID"  
      ClsPageList.intPageSize = ShowNum
      ClsPageList.intPageNow = Page
      ClsPageList.strCookiesName = "RecordCount"  
      ClsPageList.strPageVar = "Page"  
      ClsPageList.intRefresh = 1 
      ClsPageList.objConn = Conn  
      ClsPageList.InitClass  
      arrPage = ClsPageList.arrPage  
      strPageList = ClsPageList.strPageList
    Set ClsPageList = nothing

    TempList = "":CycTemp=""
    If IsArray(arrPage) Then
      For i = 0 to UBound(arrPage, 2)
	    CycTemp = CycList
		CycTemp = WRMPS.GetReplace(CycTemp,"{$ID}",i+1)
		CycTemp = WRMPS.GetReplace(CycTemp,"{$Number}",arrPage(2,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$Title}",arrPage(1,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$Url}",WRMPS.GetGiftUrl(arrPage(2,i)))
		Content = arrPage(3,i)
		If ContentNum > 0 Then Content = WRMPS.GotTopic(Content,ContentNum,1)
		CycTemp = WRMPS.GetReplace(CycTemp,"{$Content}",Content)
		CycTemp = WRMPS.GetReplace(CycTemp,"{$Pic}",WRMPS.CheckStr(arrPage(4,i),5))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$Integral}",arrPage(5,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$Num}",arrPage(6,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$Time}",arrPage(7,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$Hit}",arrPage(8,i))
		CycTemp = WRMPS.GetReplace(CycTemp,"{$RedeemNum}",arrPage(9,i))
        TempList = TempList & CycTemp
      Next  
    End If  
    TempStr = WRMPS.HCode(1,TempStr,"{\$CycBegin}","{\$CycEnd}") & TempList & WRMPS.HCode(3,TempStr,"{\$CycBegin}","{\$CycEnd}")
    TempStr = WRMPS.GetReplace(TempStr,"{$NextPage}",strPageList) 

    TempStr = WRTemp.SiteClass(TempStr)
    TempStr = WRTemp.SiteChannel(TempStr)
    TempStr = WRTemp.SiteLabel(TempStr)
	Call ClassEnd()
    Call DBConnEnd()
	Response.write TempStr

%>