想把会员中心里的“文章投稿”这一栏去掉。找到了UserFunction.asp但是却不知道如何去掉。尝试了删除几个都还是显示出来，请指点，谢谢！

'模型的投稿

if KSUser.CheckPower("s18")<>false Then

    Dim Node,Ico,ItemUrl,PubUrl

    If not IsObject(Application(KS.SiteSN&"_ChannelConfig")) Then KS.LoadChannelConfig()

   

    For Each Node In Application(KS.SiteSN&"_ChannelConfig").DocumentElement.SelectNodes("channel[@ks21=1 and @ks36!=0 and @ks0!=5 and @ks0!=6]")

    Ico=Node.SelectSingleNode("@ks51").text

    If KS.IsNul(Ico) Then Ico="images/icon7.png"

    Select Case KS.ChkClng(Node.SelectSingleNode("@ks6").text)

      Case 1 ItemUrl="User_ItemInfo.asp":PubUrl="User_MyArticle.asp"

      Case 2 ItemUrl="User_ItemInfo.asp":PubUrl="User_MyPhoto.asp"

      Case 3 ItemUrl="User_ItemInfo.asp":PubUrl="User_MySoftWare.asp"

      Case 4 ItemUrl="User_ItemInfo.asp":PubUrl="User_Myflash.asp"

      Case 5 ItemUrl="User_ItemInfo.asp":PubUrl="User_MyShop.asp"

      Case 7 ItemUrl="User_ItemInfo.asp":PubUrl="User_MyMovie.asp"

      Case 8 ItemUrl="User_ItemInfo.asp":PubUrl="User_MySupply.asp"

      Case 9 ItemUrl="User_MyExam.asp":ItemUrl="User_MyExam.asp"

      End Select

        Response.Write "<lithis.className='hvr'""this.className=''"">"

     Response.Write "<img src=""" & Ico & """ align=""absmiddle"" /> <a href=""" & ItemUrl &"?channelid="& Node.SelectSingleNode("@ks0").text & """>" & Node.SelectSingleNode("@ks52").text & "</a>"

     If KS.ChkClng(Node.SelectSingleNode("@ks6").text) =9 Then

     Response.Write "<span><a href=""User_MyExam.asp?action=record"">+记录</a></span></li>"

     Else

     Response.Write "<span><a href=""" & PubUrl &"?channelid="& Node.SelectSingleNode("@ks0").text & "&Action=Add"">+发布</a></span></li>"

     End If

    Next

    End If