关于迷城浪子的那个缓存类!求解答
<%
(这里是迷城浪子的缓存类我就不写了)

function default()
Set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from ympb where yc=0 and ymid='"&y&"' order by pid asc",conn,1,1
If rs.EOF Then
response.write ("网站建设中..<br/>")
Else
rs.Move (0)
Dim i
i=1
Do While Not rs.EOF
If rs("p")=1 Then
response.write "<a href='Default.asp?y="&rs("id")&"'>"&rs("qtname")&"</a>"
ElseIf rs("p")=2 Then
response.write ""&suiji(rs("qtname"))&""
elseIf rs("p")=3 Then
If rs("lx")=11 Then
Call newpic(rs("dysl"),rs("tplmid"),Rs("zdqz"))
ElseIf rs("lx")=12 Then
Call hotpic(rs("dysl"),rs("tplmid"),Rs("zdqz"))
ElseIf rs("lx")=13 Then
Call tjpic(rs("dysl"),rs("tplmid"),Rs("zdqz"))
ElseIf rs("lx")=14 Then
Call sjpic(rs("dysl"),rs("tplmid"),Rs("zdqz"))
ElseIf rs("lx")=21 Then
Call newspic(rs("dysl"),rs("tplmid"))
ElseIf rs("lx")=22 Then
Call hotspic(rs("dysl"),rs("tplmid"))
ElseIf rs("lx")=23 Then
Call tjspic(rs("dysl"),rs("tplmid"))
ElseIf rs("lx")=24 Then
Call sjspic(rs("dysl"),rs("tplmid"))
elseIf rs("lx")=31 Then
Call newvideo(rs("dysl"),rs("tplmid"),Rs("zdqz"))
ElseIf rs("lx")=32 Then
Call hotvideo(rs("dysl"),rs("tplmid"),Rs("zdqz"))
ElseIf rs("lx")=33 Then
Call tjvideo(rs("dysl"),rs("tplmid"),Rs("zdqz"))
ElseIf rs("lx")=34 Then
Call sjvideo(rs("dysl"),rs("tplmid"),Rs("zdqz"))
ElseIf rs("lx")=41 Then
Call newsvideo(rs("dysl"),rs("tplmid"))
ElseIf rs("lx")=42 Then
Call hotsvideo(rs("dysl"),rs("tplmid"))
ElseIf rs("lx")=43 Then
Call tjsvideo(rs("dysl"),rs("tplmid"))
ElseIf rs("lx")=44 Then
Call sjsvideo(rs("dysl"),rs("tplmid"))
ElseIf rs("lx")=81 Then
Call linkto(rs("dysl"),rs("tplmid"),Rs("zdqz"))
ElseIf rs("lx")=82 Then
Call linktos(rs("dysl"),rs("tplmid"),Rs("zdqz"))
end if
End If
If rs("br") = "0" Then response.write "<br/>"
rs.MoveNext
i=i+1
Loop
End If
response.write ubbcode(bottom)
rs.Close
Set rs=Nothing
end function
%>

迷城浪子的缓存类是这样赋值的
Dim myCache,content
Set myCache=New Cls_Cache 
myCache.Reloadtime=1 '设置过期时间,单位为1分钟 
myCache.CacheName="myCache" '缓存主名字. 
myCache.Name="myCache" '缓存副名字 
If myCache.ObjIsEmpty() Then '但该缓存为空时设置缓存. 
myCache.DelCahe("default")
myCache.value="测试"
Else
content=myCache.value
End If 

我要缓存上面建的那个函数default()是否可以？

我是菜鸟求高手解答

------解决方案--------------------
换成的是内容，如字符串，对象等，而不能是函数本身