2017郓城撤县改市吗?:ASP调用CALL的问题

看了很多ASP优秀的程序，例利用{$****}、$***$制作页面模板，但对ASP不精通，所以不明白原理
利用我的思路是建立一个函数，如下调用数据库里面10条信息
==============================================================
<!--#include file="foo.asp"-->
<% call Show(10,10) %>
=============================================================
其中foo.asp内容
<!--#include file="conn.asp"-->
<%
sub Show(Num,NumL)
dim sql,rs
if Num>0 and Num<=100 then
sql="select top " & Num
else
sql="select top 10 "
end if
sql=sql & " * from News order by Newsid desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if NumL<0 or NumL>255 then NumL=50
if rs.bof and rs.eof then
response.write "<li>暂无新闻</li>"
else
do while not rs.eof
response.Write "<a href='news.asp?NewsID=" & rs("Newsid") &"'>" & rs("title") & "</a>"
rs.movenext
loop
end if
rs.close
set rs=nothing
end sub
%>
这个已经调试成功！
=========================================================
但这个也不是我想要的目的 我是想建立一个模板，在数据库中
简单如下利用 {$Show(10,10)} 来调用以上信息
从数据库中调用模板 然后将{$Show(10,10)}替换成<% call Show(10,10) %>
采取以下替换
==========================================
<!--#include file="foo.asp"-->
<%
sql1="select m_id,m_html from mb where m_id=1"
set rs1=Server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1,1
mb_code=rs1("m_html")
mb_code=replace(mb_code,"{$","<% call ")
mb_code=replace(mb_code,"<","<")
mb_code=replace(mb_code,"}","%>")
mb_code=replace(mb_code,">",">")
%>
<%=mb_code%>
其中m_html里面的主要内容
{$Show(10,10)}
但是最终输出结果是<% call Show(10,10) %>里面CALL没有调用函数

这只是我自己的思路，但是没有成功！
请问问题出在那里
QQ6929090 mail lxyong@gmail.com 等待