账号通
    

账号  

密码  

2274

查看

4

回复
主题:[已答复]科讯官方,你能进来回答我短信给你的问题吗?我等你2天了.. [收藏主题] 转到:  
雨像眼泪 当前离线

291

主题

0

广播

0

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

用户积分:525 分
登录次数:34 次
注册时间:2010/4/4
最后登录:2011/5/6
雨像眼泪 发表于:2010/10/11 23:27:00   | 只看该作者 查看该作者主题 楼主 
科汛在线网校系统
就是内容那个问题..请问你们能重视下吗?能不能在7正式版里修复它..改为统一的。。我等的只是你的答复..
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
lijia_00 当前离线

1392

主题

0

广播

0

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

用户积分:1041 分
登录次数:27 次
注册时间:2009/6/10
最后登录:2013/9/5
lijia_00 发表于:2010/10/12 8:35:00   | 只看该作者 查看该作者主题 沙发 
 
<a href= http://www.biyenet.com.cn target=_blank >计算机毕业设计</a>www.biyenet.com.cn<a href= http://www.luotuo.net.cn target=_blank >计算机毕业论文</a>www.luotuo.net.cn<a href= http://www.biyenet.com target=_blank >工程硕士论文</a>www.biyenet.com<a href= http://www.lw58.com target=_blank >计算机硕士论文</a>www.lw58.com<a href= http://www.slgz.cn target=_blank >硕士毕业设计</a>www.slgz.cn<a href= http://www.chinaqiya.com.cn target=_blank >计算机毕业设计</a>www.chinaqiya.com.cn<a href= http://www.luotuo.net.cn target=_blank >计算机毕业设计</a>
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
lengxue 当前离线

3043

主题

18

广播

4

粉丝
添加关注
级别:大二

用户积分:10431 分
登录次数:1606 次
注册时间:2009/1/13
最后登录:2024/7/7
lengxue 发表于:2010/10/12 9:51:00   | 只看该作者 查看该作者主题 藤椅 
 
想旅游就来就爱旅游网
[url]http://bbs.shangrila66.com[/url]
大香格里拉旅游王国
[url]http://www.shangrila66.com[/url]
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
雨像眼泪 当前离线

291

主题

0

广播

0

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

用户积分:525 分
登录次数:34 次
注册时间:2010/4/4
最后登录:2011/5/6
雨像眼泪 发表于:2010/10/12 10:41:00   | 只看该作者 查看该作者主题 板凳 

看来科讯官方是没打算修复了。。。看来只有升级商业版才能有这个功能了

 
做事讲求效率与耿直.!
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
科汛官方 当前离线

47268

主题

145

广播

405

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

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
科汛官方 发表于:2010/10/12 11:01:00   | 只看该作者 查看该作者主题 报纸 
做在线知识付费 选科汛云开店

他指的是关键词编码。我有跟你说过修改方法啊


ks_cls/kesion.label.commoncls.asp


Function ReplaceKeyTags(KeyStr)
    On error resume next
    Dim I,K_Arr:K_Arr=Split(KeyStr,",")
    For I=0 To Ubound(K_Arr)
      ReplaceKeyTags=ReplaceKeyTags & "<a href=""" & DomainStr & "plus/tags.asp?n=" & K_Arr(i) & """ target=""_blank"">" & K_Arr(i) & "</a> "
    Next
    If Err Then ReplaceKeyTags="":Err.Clear
  End Function



改成


Function ReplaceKeyTags(KeyStr)
    On error resume next
    Dim I,K_Arr:K_Arr=Split(KeyStr,",")
    For I=0 To Ubound(K_Arr)
      ReplaceKeyTags=ReplaceKeyTags & "<a href=""" & DomainStr & "plus/tags.asp?n=" & Server.URLEncode(K_Arr(i)) & """ target=""_blank"">" & K_Arr(i) & "</a> "
    Next
    If Err Then ReplaceKeyTags="":Err.Clear
  End Function

 
KesionCMS,,
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.23438秒 powered by KesionCMS 9.0