账号通
    

账号  

密码  

1581

查看

1

回复
主题:[求助]关于新闻评论出现下标越界的错误提示如何解决 [收藏主题]  
wxmayi 当前离线

5

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:5 分
登录次数:3 次
注册时间:2010/9/26
最后登录:2011/12/27
wxmayi 发表于:2010/9/27 1:10:00   | 显示全部帖子 查看该作者主题 楼主 
做在线知识付费 选科汛云开店

求助各位科讯程序的前辈下面问题是代码问题,还是后台设置问题啊?我该如何解决?百度了一晚上也没找到个所以然(我是代码小白的:dizzy: ),小弟在这里先谢谢了



今天发现评论问题如图

点击查看原图



Public Function FilterIllegalChar(ByVal Content)

   If IsNul(Content) Then Exit Function

   Dim SplitStrArr,K:SplitStrArr=split(Setting(55),vbCrlf)

   For K=0 To Ubound(SplitStrArr)

  If Not IsNul(SplitStrArr(K)) Then

   Content=Replace(Content,Split(SplitStrArr(K),"=")(0),Split(SplitStrArr(K),"=")(1))

  End If

Next

        FilterIllegalChar=Content

End Function





红色的就是提示错误的3746行





而且所有评论显示为空如下图

点击查看原图





 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
wxmayi 当前离线

5

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:5 分
登录次数:3 次
注册时间:2010/9/26
最后登录:2011/12/27
wxmayi 发表于:2010/9/27 1:13:00   | 显示全部帖子 查看该作者主题 沙发 
科汛在线网校系统
第一次发言,自己鼓励下开心
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.62500秒 powered by KesionCMS 9.0