'添加到数据库，新建一条数据
    Public Function Insert()
        Dim sql : sql = "insert into xdb_news(CateID,NewsTitle,NewsContent,NewsColor,NewsStyle,NewsAuthor,NewsFrom,NewsPicture,IsTop,IsRecommend,HasPicture) values(@CateID,@NewsTitle,@NewsContent,@NewsColor,@NewsStyle,@NewsAuthor,@NewsFrom,@NewsPicture,@IsTop,@IsRecommend,@HasPicture)" 
        
        Dim param
        Set param = New DbParam    
        param.AddIntParam "@CateID",m_CateID
        param.AddTextParam "@NewsTitle",m_NewsTitle,50
        param.AddMemoParam "@NewsContent",m_NewsContent
        param.AddTextParam "@NewsColor",m_NewsColor,7
        param.AddTextParam "@NewsStyle",m_NewsStyle,10
        param.AddTextParam "@NewsAuthor",m_NewsAuthor,20
        param.AddTextParam "@NewsFrom",m_NewsFrom,50
        param.AddTextParam "@NewsPicture",m_NewsPicture,255
        param.AddIntParam "@IsTop",m_IsTop
        param.AddIntParam "@IsRecommend",m_IsRecommend
        param.AddIntParam "@HasPicture",m_HasPicture
        Dim db
        Set db = New DbHelper
        db.ExecuteNonQuery sql,param
        
        Set db = Nothing
        Set param = Nothing
    End Function