classboard.asp

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

<%
Class ClassBoard
   
   Public BoardID, ParentID, BoardName, PictrueURL, Intro, ParentPost, EnableCheckCode, Disabled
   Public SkinID, TemplateID, TopicSkinID, TopicTemplateID, ArrManager, TopicNum, TotalNum, ParentName, ParentDisabled
   Public ErrorCode
   
   Private Sub Class_Initialize
      BoardID = EL_Common.ELRequest("BoardID", 2)
	  ErrorCode = 0
	  If BoardID = 0 Then
	     ErrorCode = 1
	  Else
	     Call GetBoardInfo()
	  End If
   End Sub
   
   Private Sub Class_Terminate
   End Sub
   
   Private Sub GetBoardInfo()
      Dim BoardCmd, rsBoard
	  Call EL_Common.InitCommand(BoardCmd, "EL_SP_GetBoardInfo")
	  With BoardCmd
	     .Parameters.Append .CreateParameter("RETURN", 2, 4)
		 .Parameters.Append .CreateParameter("@BoardID", 3, 1, 4, BoardID)
		 .Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, ChannelID)
		 Set rsBoard = .Execute()
	  End With
	  rsBoard.Close()
	  If BoardCmd(0) <> 1 Then
	     ErrorCode = 1
		 Set rsBoard = Nothing
		 Set BoardCmd = Nothing
		 Exit Sub
	  End If
	  rsBoard.Open()
	  ParentID = rsBoard("ParentID")
	  BoardName = rsBoard("BoardName")
	  PictrueURL = rsBoard("PictrueURL")
	  Intro = rsBoard("Intro")
	  ParentPost = rsBoard("ParentPost")
	  EnableCheckCode = rsBoard("EnableCheckCode")
	  Disabled = rsBoard("Disabled")
	  SkinID = rsBoard("SkinID")
	  TemplateID = rsBoard("TemplateID")
	  TopicSkinID = rsBoard("TopicSkinID")
	  TopicTemplateID = rsBoard("TopicTemplateID")
	  ArrManager = rsBoard("ArrManager")
	  TopicNum = rsBoard("TopicNum")
	  TotalNum = rsBoard("TotalNum")
	  ParentName = rsBoard("ParentName")
	  ParentDisabled = rsBoard("ParentDisabled")
	  rsBoard.Close()
	  Set rsBoard = Nothing
	  Set BoardCmd = Nothing
	  If Disabled = True Or ParentDisabled = True Then
	      ErrorCode = 1
	  End If
   End Sub   
End Class
%>