悬赏100分求高手！关于ASP生成静态页面问题

现在面临一ASP生静态页面的问题，研究几天有点进展但未解决，如果谁有现成的可调用生成静态页的代码（并给出具体调用方法），那更是感激不尽！分数肯定全是你的，另加悬赏！目前我的代码问题：

<%
createmodefile "temp","txtfile","ryzp.asp" '这是调用函数
function createmodefile(filename,txtfilename,htmfile)
set filefso =Server.CreateObject("Scripting.FileSystemObject")
if filefso.FolderExists(server.MapPath(filename)) then
createfile filename,txtfilename,htmfile
else
set filefsofile=filefso.CreateFolder(server.MapPath (filename))’创建文件夹
createfile filename,txtfilename,htmfile
response.Write("全部创建成功")
end if
end function
function createfile(filename,txtfilename,htmfile)‘创建htm文件函数
set fso =Server.CreateObject("Scripting.FileSystemObject")
set fout =fso.CreateTextFile(server.mappath(filename&"/"&txtfilename&".htm"),true)

你一开始的思路就错了。
FSO只能读取本地文件，你这样只能读取到ryzp.asp这个程序的内容，而不能获取它执行后的结果。
要实现这样的功能，可以使用MSXML，和小偷程序、采集程序类似，读取ryzp.asp运行的结果。以下是我改写的程序，已测试通过：
<%
createmodefile "tt","txtfile","a.asp" '这是调用函数

function createmodefile(filename,txtfilename,htmfile)
set filefso =Server.CreateObject("Scripting.FileSystemObject")
if not filefso.FolderExists(server.MapPath(filename)) then
set filefsofile=filefso.CreateFolder(server.MapPath (filename))'创建文件夹
end if
createfile filename,txtfilename,htmfile
response.Write("全部创建成功")
end function

function createfile(filename,txtfilename,htmfile)'创建htm文件函数
url="http://"&Request.ServerVariables("SERVER_NAME")& left(Request.ServerVariables("URL"),InstrRev(Request.ServerVariables("URL"),"/"))&htmfile
set fso =Server.CreateObject("Scripting.FileSystemObject")