账号通
    

账号  

密码  

2190

查看

9

回复
主题:[求助]标题或导读的截取问题 [收藏主题] 转到:  
tepjew 当前离线

11

主题

0

广播

0

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

用户积分:349 分
登录次数:15 次
注册时间:2009/6/8
最后登录:2009/10/12
tepjew 发表于:2009/7/8 23:13:00   | 只看该作者 查看该作者主题 楼主 
科汛在线考试系统(NET)

请教,,最近我用一条SQL标签读取文章标题时发现,标题截取时有点混乱,不知是什么原因,请大师帮忙看看..

 

文章标题:2008-2009的市场动态与竞争2008-2009的市场动态与竞争

 

读取标题的函数:<a href="{$Field(ID,GetInfoUrl,1,1)}">{$Field(Title,Text,20,...,0,)}</a>

显示结果:2008-2009的...

 

读取标题的函数:<a href="{$Field(ID,GetInfoUrl,1,1)}">{$Field(Title,Text,40,...,0,)}</a>

显示结果:2008-2009的市场动态与竞争2008-2009的市场动态与竞争

 

我下载的是UTF-8的KESION系统

好像有点乱啊

请大师们解释一下,谢谢.

 

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

11

主题

0

广播

0

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

用户积分:349 分
登录次数:15 次
注册时间:2009/6/8
最后登录:2009/10/12
tepjew 发表于:2009/7/11 12:02:00   | 只看该作者 查看该作者主题 沙发 
科汛在线商城系统(NET)

呵呵,问题好你解决了

我在ks_cls/kesion.commoncls.asp文件中,把GotTopic(ByVal Str, ByVal lennum)里的

x = x + 1
改成

x = x + 2

然后我检查了一下,嘻嘻

正常

 

多得5,6楼的提示,谢谢大家帮忙!!

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

11

主题

0

广播

0

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

用户积分:349 分
登录次数:15 次
注册时间:2009/6/8
最后登录:2009/10/12
tepjew 发表于:2009/7/11 0:01:00   | 只看该作者 查看该作者主题 藤椅 
科汛智能建站系统

'*************************************************************************
 '函数名:gotTopic
 '作  用:截字符串,汉字一个算两个字符,英文算一个字符
 '参  数:str   ----原字符串
 '       strlen ----截取长度
 '返回值:截取后的字符串
 '*************************************************************************
    Public Function GotTopic(ByVal Str, ByVal lennum)
  If lennum=0 Then GotTopic=Str:Exit Function
  Dim oRegExp, p_num, i, x
  Set oRegExp = new RegExp
  oRegExp.IgnoreCase = True
  oRegExp.Global = True
  oRegExp.Pattern = "[\uff00-\uffff\u4e00-\u9fa5\ufe10-\ufe1f\ufe30-\ufe4f\u1100-\u11ff\u2600-\u26ff\u2700-\u27bf\u2800-\u28ff\u3300-\u33ff\u3200-\u32ff\ua490-\ua4cf\ua000-\ua48f\u3130-\u318f\uac00-\ud7af\u31f0-\u31ff\u30a0-\u30ff\u3040-\u309f\u31a0-\u31bf\u3100-\u312F\u2FF0-\u2FFF\u2F00-\u2FDF\u31c0-\u31ef\u3000-\u303f\u2e80-\u2eff\uff00-\uffef]"
  p_num = 0
  x = 0
  Do While Not p_num > lennum - 2
  x = x + 1
  p_num = int(p_num) + 1
  
  If oRegExp.Test(str) Then
  p_num = p_num + 1
  End If
  GotTopic = left(trim(str),x)
  Loop
  Set oRegExp=Nothing


 End Function


 


 


 


多谢大师过问,以上是我在ks_cls/kesion.commoncls.asp内看到的.怎么解决呢?

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

66

主题

0

广播

0

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

用户积分:1055 分
登录次数:10 次
注册时间:2009/7/10
最后登录:2009/7/19
bpk 发表于:2009/7/11 0:03:00   | 只看该作者 查看该作者主题 板凳 
做在线知识付费 选科汛云开店

看不懂,为什么不用gbk

 

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

334

主题

0

广播

0

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

用户积分:2745 分
登录次数:179 次
注册时间:2008/7/17
最后登录:2014/4/1
yuxiang1986 发表于:2009/7/10 9:05:00   | 只看该作者 查看该作者主题 报纸 
做在线知识付费 选科汛云开店

你看下ks_cls/kesion.commoncls.asp里的截取函数了

   叫什么名字的

 

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

1001

主题

3

广播

6

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

用户积分:4722 分
登录次数:206 次
注册时间:2008/12/22
最后登录:2017/7/26
wiki 发表于:2009/7/10 8:48:00   | 只看该作者 查看该作者主题 地板 
科汛在线网校系统

你看下ks_cls/kesion.commoncls.asp里的截取函数了

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

11

主题

0

广播

0

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

用户积分:349 分
登录次数:15 次
注册时间:2009/6/8
最后登录:2009/10/12
tepjew 发表于:2009/7/10 8:31:00   | 只看该作者 查看该作者主题 7楼 
科汛智能建站系统

都两天了,没有人会解决吗?

郁闷ING。。。。。。

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

11

主题

0

广播

0

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

用户积分:349 分
登录次数:15 次
注册时间:2009/6/8
最后登录:2009/10/12
tepjew 发表于:2009/7/9 15:40:00   | 只看该作者 查看该作者主题 8楼 
科汛在线考试系统(NET)

请大虾帮忙解惑。。

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

16

主题

0

广播

0

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

用户积分:279 分
登录次数:1 次
注册时间:2009/7/9
最后登录:2009/7/9
aeay 发表于:2009/7/9 0:08:00   | 只看该作者 查看该作者主题 9楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
mtv916 当前离线

11

主题

0

广播

0

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

用户积分:17 分
登录次数:11 次
注册时间:2010/12/6
最后登录:2012/3/2
mtv916 发表于:2011/10/20 21:55:32   | 只看该作者 查看该作者主题 10楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.18750秒 powered by KesionCMS 9.0