Question

关于replace替换asp自定义函数的问题

cn=replace(cn,"替换内容",news())
news()是asp自定义函数，我在运行后，就是没替换，也就是说这个语句没执行，请问这个是什么缘故。
function news()
....
news = "返回值"
end function

这个我也写的

===========================
function new_info()
new_info="<div class='block'><h2>最新发布</h2><div class='bestnew'><ul>"
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 10 * from sub order by ptime desc"
rs.Open sql,conn,1,1
if not rs.bof and not rs.eof then
for i=1 to rs.recordcount
new_info=new_info&"<li><a href=news/"&rs("pdate")&".html title="&rs("title")&">"&cutstr(show_text(rs("title")),11)&"</a></li>"
rs.movenext
next
else
new_info=new_info&"暂无文章！"
end if
rs.close
set rs=nothing
new_info=new_info&"<li class='more'><a href='more.asp'>更多>></a></li></ul></div></div>"
end function

information=replace(information,"※最新发布※",new_info())

====================
上面这样写的有问题？
====================
只输出new_info="<div class='block'><h2>最新发布</h2><div class='bestnew'><ul>"是可以的,加上下面数据库查询的就不可以了

Answer 1

看程序有没有错误
有没有 on error resume next ,去掉看看

Answer 2

cn=replace(cn,"替换内容",call news())

sub news()
news="替换值"
end sub

Answer 3

你把你写的函数的代码具体的发上来.