详解科讯CMS(KesionCMS) 的相关文章

使用科讯CMS 至少在现在的使用中感觉还是个不错的CMS 可是 不知道为什么 系统自带的相关信息 感觉用着很不舒服,于是自己动手写了一个“相关文章”的;虽然已经可以使用了,但是现在还有些问题未能完全明白,只好这样先用着了,至少已经出来效果了!

下面是我写的一个 Function 函数 大家可以看看 只是抛砖引玉而已 至今还有个问题没能领悟(url地址这个) 希望可以有高人指点一下 谢谢了!

------------------------------------华丽的分割线--------------------------------------------

'显示相关文章
'ChannelID
'Y_ArticleID:数值型,当前文章ID
'Y_Key:字符型,当前文章关健字
'Num:数值型,要显示相关文章的条数
'Y_Time:数值型,显示时间,0为不显示,否则为时间格式

Function ShowMutualityArticle(ChannelID,Y_ID,Y_Key,Num,Y_Time)
    dim pSql,Y_DTime
 dim i,TempKeyWord
 ShowMutualityArticle = ""
 if Num > 0 then
  pSql = "Select TOP "& Num
 else
  pSql = "Select "
 end if
 pSql = pSql & " ID,Tid,Title,Fname,AddDate From [KS_Article] Where ID <> "& Y_ID &" And " 
 if Instr(Y_Key,"|") > 0 then
  Y_Key = Split(Y_Key,"|")
  TempKeyWord = TempKeyWord &"("
  For i = 0 to Ubound(Y_Key)
   TempKeyWord = TempKeyWord &" KeyWords like '%"& Y_Key(i) &"%' or KeyWords like '%,"& Y_Key(i) &",%' or KeyWords like '%"& Y_Key(i) &",%' or KeyWords like '%,"& Y_Key(i) &"%' "
   if i = Ubound(Y_Key) then
    TempKeyWord = TempKeyWord &") And "
   else
    TempKeyWord = TempKeyWord &" Or "
   end if
  Next
 else
  TempKeyWord = TempKeyWord &" KeyWord like '%"& Y_Key &"%' And "
 end if
 pSql = pSql & TempKeyWord &" Verific = 1 And DelTF = 0 Order By ID Desc"
    dim rs:set rs=conn.execute(pSql)
 If rs.eof and rs.bof then
  ShowMutualityArticle = "<li>没有相关文章</li>"
 Else
  do while not (rs.eof or rs.bof)
'   LinkUrl = KS.GetItemURL(ChannelID,rs(1),rs(0),rs(3))       就是这个得到文章地址的老是出错!看了上一篇下一篇的就是这么写的,不知道为什么到我这里就出错!
   If Y_Time>0 then
    Y_DTime = "<span>"&rs(4)&"</span>"
   End If
   ShowMutualityArticle = ShowMutualityArticle &"<li>"& Y_DTime &"<a href=""/?"& GCls.StaticPreContent &"-"& rs(0) &"-1.html"">"&rs(2)&"</a></li>"
   rs.movenext
  loop
 End If
 rs.close:set rs = nothing
End Function

----------------------------------------------------------------华丽的分割线结束----------------------------------------------------------------

再详细页面可以用:{=ShowMutualityArticle({$channelid},{$InfoID},{$yGetArticleKeyWord},10,0)} 调用
效果已经实现 具体的 有空了再做详细说明 不能再写了 要不就有事了!呵呵!

参与评论