classtopic.asp

依蓝旅游网站管理系统Elan2008.SP2

<%
Class ClassTopic
   
   Public TopicID, BoardID, ParentID, Title, TopicType, UserID, UserName, Color, Icon, Content
   Public Uploadfiles, OnTop, IsElite, IsHot, Replys, Hits, Deleted, PostDateTime, Locked
   Public ErrorCode
   
   Private Sub Class_Initialize
      TopicID = EL_Common.ELRequest("TopicID", 2)
	  ErrorCode = 0
	  Icon = 0
	  TopicType = 0
   End Sub
   
   Private Sub Class_Terminate
   End Sub
   
   Public Sub GetTopicInfo()
      Dim TopicCmd, rsTopic
	  Call EL_Common.InitCommand(TopicCmd, "EL_SP_GetTopicInfo")
	  With TopicCmd
	     .Parameters.Append .CreateParameter("RETURN", 2, 4)
		 .Parameters.Append .CreateParameter("@TopicID", 3, 1, 4, TopicID)
		 .Parameters.Append .CreateParameter("@BoardID", 3, 1, 4, BoardID)
		 .Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, ChannelID)
		 Set rsTopic = .Execute()
	  End With
	  rsTopic.Close()
	  If TopicCmd(0) <> 1 Then
	     ErrorCode = 1
		 Set rsTopic = Nothing
		 Set TopicCmd = Nothing
		 Exit Sub
	  End If
	  rsTopic.Open()
	  BoardID = rsTopic("BoardID")
	  ParentID = rsTopic("ParentID")
	  Title = rsTopic("Title")
	  TopicType = rsTopic("TopicType")
	  UserID = rsTopic("UserID")
	  UserName = rsTopic("UserName")
	  Color = rsTopic("Color")
	  Icon = rsTopic("Icon")
	  Content = rsTopic("Content")
	  Uploadfiles = rsTopic("Uploadfiles")
	  OnTop = rsTopic("OnTop")
	  IsElite = rsTopic("IsElite")
	  IsHot = rsTopic("IsHot")
	  Replys = rsTopic("Replys")
	  Hits = rsTopic("Hits")
	  Deleted = rsTopic("Deleted")
	  PostDateTime = rsTopic("PostDateTime")
	  Locked = rsTopic("Locked")
	  rsTopic.Close()
	  Set rsTopic = Nothing
	  Set TopicCmd = Nothing
   End Sub   
End Class
%>