留言系统在提交留言运行到“Save_Post.asp” 这个文件时总是出现“下脚标越界”错误 提示是下面这行的问题 "" Memo=Replace(Memo,Split(SplitStrArr(I),"=")(1),Split(SplitStrArr(I),"=")(1))""  请各位大侠帮忙是不是哪里设置出了问题！

  "Dim LastLoginIP:LastLoginIP = KS.GetIP
   Name = KS.S("Name")
   Email = KS.S("Email")
   HomePage = KS.S("HomePage")
   Oicq = KS.ChkClng(KS.S("Oicq"))
   Verifycode = KS.S("Code")
   IP = LastLoginIP
   Pic = KS.S("Pic")
   TxtHead = KS.S("txthead")
   Subject = KS.S("Subject")
   Memo = KS.CheckScript(Request.Form("Memo"))
   BoardID=KS.ChkClng(KS.S("BoardID"))
   SplitStrArr=split(KS.Setting(55),vbCrlf)
   For I=0 To Ubound(SplitStrArr)
     Memo=Replace(Memo,Split(SplitStrArr(I),"=")(0),Split(SplitStrArr(I),"=")(1))
   Next
  a = CheckEnter()
  If Len(replace(Memo,"&nbsp;",""))<=10 Then
   a=false
   ErrorMsg="留言内容不能少于10个字符！"
  End If
  If a = True Then
   SaveData()
   Response.Write("<script>alert('谢谢您的留言！');location.href='Index.asp?boardid=" & BoardID & "';</script>")
  Else
   Call KS.AlertHistory(ErrorMsg,-1)
  End If  "

 

刚刚将 上面的   For I=0 To Ubound(SplitStrArr)
     Memo=Replace(Memo,Split(SplitStrArr(I),"=")(0),Split(SplitStrArr(I),"=")(1))
   Next

这段代码删除了 可以用了。 但想知道他的用处是什么?