| 以下是代碼片段：
<%
’=================================================
’過程名：ShowCorrelative
’作 用：顯示相關文章
’參 數：ArticleNum ----最多顯示多少篇文章
’ TitleLen ----標題最多字符數，一個漢字=兩個英文字符
’=================================================
sub ShowCorrelative(ArticleNum,TitleLen)
dim rs,sql
dim strKey,arrKey,i
if ArticleNum>0 and ArticleNum<=100 then
sql="select top " & ArticleNum
else
sql="Select Top 5 "
end if
’利用"|"符號進行關鍵字的分割
strKey=mid(rs("Key"),2,len(rs("Key"))-2)
if instr(strkey,"|")>1 then
arrKey=split(strKey,"|")
strKey="((Key like ’%|" & arrKey(0) & "|%’)"
for i=1 to ubound(arrKey)
strKey=strKey & " or (Key like ’%|" & arrKey(i) & "|%’)"
next
strKey=strKey & ")"
else
strKey="(Key like ’%|" & strKey & "|%’)"
end if
sql= & " ID,Title,Author,date,Hits,L.LayoutFileName From Article A inner join Layout L on L.LayoutID=LayoutID Where Deleted=False and Passed=True and " & strKey & " and ID<>" & ID & " Order by ID desc"
Set rs= conn.execute(sql)
if TitleLen<0 or TitleLen>255 then TitleLen=50
if rs.bof and rs.Eof then
response.write "沒有相關文章"
else
do while not rs.eof
response.write "<a href=’" & rs("LayoutFileName") & "?ID=" & rs("ID") & "’ title=’文章標題：" & rs("Title") & vbcrlf & "文章作者：" & rs("Author") & vbcrlf & "更新時間：" & rs("date") & vbcrlf & "點擊次數：" & rs("Hits") & "’>" & gotTopic(rs("Title"),TitleLen) & "</a>"
rs.movenext
loop
end if
rs.close
set rs=nothing
end sub
%> |
