function调用出错---function结果不能再赋值？
<!--#include file="Conn.asp"--><html>
<head>
<title>无标题文档</title>
</head>
<body>
<%
function HotNews(num)
sql="select top "&num&" id, Title,filepath,filename from OfficeNews order by hits,id ASC"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
Response.Write("<ul>")
If rs.eof and rs.bof then
Response.Write("当前没有文章，请添加！")
else do while not rs.eof
filepath=rs("filepath")&rs("filename")
Response.Write("<li><a href='show.asp?id="&rs("id")&"' target='_blank' title='"&rs("title")&"'>")
Response.Write(left(rs("Title"),16))
If Len(rs("title"))>16 then
Response.Write("...")
End if
Response.Write("</a></li>")
rs.movenext
loop
End If
rs.close
Set rs=nothing
Response.Write("</ul>")
end function
'热点文章
hotnews=HotNews(13)
Response.Write(hotnews)
%>
</body>
</html>
我知道其实直接写“HotNews(13)”就可以调用了。
主要是想在需要的地方直接加入hotnews，
所以才给HotNews(13)又赋了个值。
但是一直出错是：
Microsoft VBScript 运行时错误 错误 '800a01f5'
非法赋值: 'HotNews'
/officeadmin/untitled.asp，行 34
代码中的红色hotnews=HotNews(13)就是传说中的第34行。
新手学习，不知道应该怎么改。
谢谢！
[ 本帖最后由 towering 于 2010-4-26 16:43 编辑 ]
