cls.label.gift.asp

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

<%
Class Cls_Label_Gift
'gl
  Private glRs,glSQL,glN,glTemp,e_Sql,glOrderBy
  Private glExport,glTDCSS,glNum,glLen,glColsNum,glOrderType,glCommend,glContent,gTitle
  
  Private Sub Class_Initialize()
	 Set glRs = Server.CreateObject("ADODB.Recordset")
  End Sub
  Private Sub Class_Terminate()
     Set glRs = Nothing
  End Sub
  
  Function GetGift(Str)
     Str = Split(Str,",")
     glExport = Int(Str(0))
	 glTDCSS = Str(1)
	 glNum = Int(Str(2))
	 glLen = Int(Str(3))
	 glColsNum = Int(Str(4))
	 glOrderType = Int(Str(5))
	 glCommend = Int(Str(6))
	 glContent = WRMPS.GetReplace(Str(7),"§№§",",")
	 
	 glSQL = "":glOrderBy = ""
     If glCommend > 0 Then glSQL = " and WM_Commend = 1"
     Select Case glOrderType
       Case 1
	     glOrderBy = " Order By WM_ID Desc"
       Case 2
	     glOrderBy = " Order By WM_Commend Desc,A.WM_ID Desc"
       Case 3
	     glOrderBy = " Order By WM_RedeemNum Desc,A.WM_ID Desc"
     End Select

     Select Case glExport
	   Case 2
	     GetGift = "<table border=0 cellspacing=0 cellpadding=0><tr>" & vbCrLf
	   Case 3
	     GetGift = "<div"&WRMPS.LabelCss(glTDCSS)&"><ul>" & vbCrLf
	 End Select
	 Set glRs = Conn.Execute("Select Top "&glNum&" WM_ID,WM_Title,WM_Number,WM_Pic,WM_Integral,WM_Num,WM_Time,WM_Hit,WM_RedeemNum from WM_Gift Where WM_Key = 1 and WM_Num >= 0"&glSQL&glOrderBy)
	 glN = 0
	 If glRs.Eof Then GetGift = "":glRs.Close:Exit Function
	 Do While Not glRs.Eof 
	    glN = glN + 1
		glTemp = glContent
		glTemp = WRMPS.GetReplace(glTemp,"{$ID}",glN)
        glTemp = WRMPS.GetReplace(glTemp,"{$No}",glN)
		glTemp = WRMPS.GetReplace(glTemp,"{$Url}",WRMPS.GetGiftUrl(glRs(2)))
		glTemp = WRMPS.GetReplace(glTemp,"{$Number}",glRs(2))
		gTitle = glRs(1)
		If glLen > 0 Then gTitle = WRMPS.GotTopic(gTitle,glLen,1)
		glTemp = WRMPS.GetReplace(glTemp,"{$Title}",gTitle)
		glTemp = WRMPS.GetReplace(glTemp,"{$Pic}",WRMPS.CheckStr(glRs(3),5))
		glTemp = WRMPS.GetReplace(glTemp,"{$Integral}",glRs(4))
		glTemp = WRMPS.GetReplace(glTemp,"{$Num}",glRs(5))
		glTemp = WRMPS.GetReplace(glTemp,"{$Time}",glRs(6))
		glTemp = WRMPS.GetReplace(glTemp,"{$Hit}",glRs(7))
		glTemp = WRMPS.GetReplace(glTemp,"{$RedeemNum}",glRs(8))
	    Select Case glExport
	      Case 1
	        GetGift = GetGift & glTemp
	      Case 2
	        GetGift = GetGift & "<td"&WRMPS.LabelCss(glTDCSS)&">"&glTemp&"</td>" & vbCrLf
	      Case 3
	        GetGift = GetGift & "<li>"&glTemp&"</li>" & vbCrLf
	    End Select
	    If glColsNum > 0 Then
	      If Int(glN) mod glColsNum = 0 And glN <> glRs.RecordCount Then
		    Select Case glExport
		      Case 1
		        GetGift = GetGift & "<br>" & vbCrLf
		      Case 2
		        GetGift = GetGift & "</tr>" & vbCrLf & "<tr>" & vbCrLf
		      Case 3
		        GetGift = GetGift & "</ul>" & vbCrLf & "<ul>" & vbCrLf
		    End Select
	      End If
	    End If
	 glRs.MoveNext
	 Loop
	 glRs.Close
	 Select Case glExport
	   Case 2
         GetGift = GetGift & "</tr></table>" & vbCrLf
	   Case 3
         GetGift = GetGift & "</ul></div>" & vbCrLf
	 End Select
	 glTemp = ""
  End Function
End Class
Set ClsGift = New Cls_Label_Gift
%>