账号通
    

账号  

密码  

4418

查看

4

回复
主题:Microsoft VBScript 编译器错误 错误 '800a0401' 语句未结束 [收藏主题] 转到:  
gyxin123 当前离线

1204

主题

0

广播

0

粉丝
添加关注
级别:九年级

用户积分:9198 分
登录次数:441 次
注册时间:2007/12/23
最后登录:2012/10/16
gyxin123 发表于:2009/7/26 23:28:00   | 显示全部帖子 查看该作者主题 楼主 
做在线知识付费 选科汛云开店
 

D:\PROGRAM FILES (X86)\WWWROOT\ITEM\../KS_Cls/Kesion.Label.FunctionCls.asp

 

错误位置在:

Function GetLabel(Content)
   Dim LabelStyle
   LabelStyle     = KS.GetTagLoop(Content)
   LabelFunName   = Split(Content," ")(0)
      LabelParamStr  = Replace(Replace(Content, LabelFunName, ""),"}" & LabelStyle&"{/Tag}", "")
         LabelFunName   = Replace(LabelFunName,"{Tag:","")
   Execute("GetLabel= " & LabelFunName & "(LabelStyle)")
  End Function

 

网页中总共5个系统函数标签,如果页面中去掉{LB_最新新闻}页面将会顺利读取,如果加上它就出错,如果只放这一个标签页面也将顺利读取。都把我搞晕了,这是怎么回事啊

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

1204

主题

0

广播

0

粉丝
添加关注
级别:九年级

用户积分:9198 分
登录次数:441 次
注册时间:2007/12/23
最后登录:2012/10/16
gyxin123 发表于:2009/7/27 16:05:00   | 显示全部帖子 查看该作者主题 沙发 
科汛智能建站系统
错误提示就是:Microsoft VBScript 编译器错误 错误 '800a0401' 语句未结束 错误位置就是 End Function这一句 但我看了这个地方是没有错误的
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行4.64844秒 powered by KesionCMS 9.0