账号通
    

账号  

密码  

4421

查看

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) 回到顶部顶端 回到底部底部
ghostsun 当前离线

170

主题

9

广播

2

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

用户积分:1559 分
登录次数:145 次
注册时间:2008/6/11
最后登录:2018/11/15
ghostsun 发表于:2009/8/2 14:45:00   | 只看该作者 查看该作者主题 沙发 
做在线知识付费 选科汛云开店
我也遇到这个问题。TMD,本来还想升级6.0这下把我吓到了,不升级了
 
  支持(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) 回到顶部顶端 回到底部底部
nick4188 当前离线

13

主题

0

广播

0

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

用户积分:284 分
登录次数:9 次
注册时间:2009/7/8
最后登录:2011/9/14
nick4188 发表于:2009/7/27 14:44:00   | 只看该作者 查看该作者主题 板凳 
科汛在线商城系统(NET)
一般都有错误提示吧?按照提示做修改呗
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
科汛官方 当前离线

47268

主题

145

广播

405

粉丝
添加关注
级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
科汛官方 发表于:2009/7/27 9:04:00   | 只看该作者 查看该作者主题 报纸 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.15625秒 powered by KesionCMS 9.0