账号通
    

账号  

密码  

2276

查看

4

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

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.10938秒 powered by KesionCMS 9.0