帮帮忙啊～～看看我的代码哪儿错啦
<table width="100%" border="0" cellpadding="0" cellspacing="0"><tr>
<td bgcolor="#fa8c35" class="lrlb">
<div class="wz2">
<!--{$ShowArticle1(10)}-->
</div>
</td>
</tr>
</table>
我在一个页面中调用ShowArticle1（）函数，该函数写在另一个文件里，这个函数如下：
<%
Function ShowArticle1(Byval TopNum )
TopNum = Cl.ChkCLng(TopNum)
dim SQL, Rs, i, sTemp
if TopNum>0 then
SQL="Select Top " & TopNum & " "
else
SQL="Select Top 15 "
end if
SQL=SQL & " B.ChannelName,A.ChannelID,B.ChannelDir,sum(A.Hits)as total from Cl_Article A,Cl_Channel B where A.channelID=B.ChannelID group by B.ChannelID,order by total Desc"
Set Rs = Cl.Execute(SQL)
SQL = Rs.GetRows(-1)
Rs.Close : Set Rs=Nothing
sTemp = "<ul >" & VbCrlf
TopNum = Ubound(SQL,2)
for i=0 to 10
sTemp = sTemp & "<li><a href=""" & Cl.WebDir & SQL(2,i) & "/Index.asp"" "" target=""_blank"">" & SQL(0,i) &"</a>" &"("& SQL(3,i)&"次)</li><br />"
next
Showtotal = sTemp & "</ul>"
SQL=Empty
end Function
%>
可是显示不出效果来，运行后的效果如附件：
