生成静态页面的问题。

[glasses1999]

　　有一个页面A.asp，想生成HTML静态页面。准备用FSO简单的处理一下。
　
　set fso = Server.CreateObject("Scripting.FileSystemObject")
set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.write "A.asp的文件内容”　

请问有什么办法，在后台，比如用一个B.asp，用FSO的方法，把A.asp的全部内容生成HTML文件呢？
　谢谢！

[ycproc]

给HTML模版页 标签替换变量

[glasses1999]

有没有更简单的办法。比如用一个b.asp,用FSO的方法，把A.asp的全部内容生成HTML文件.
谢谢！

[十一文]

这个的话 只能是这样 用xmlhttp
请求A。asp

然后 把请求到的内容
所生成文件

[灬上海爽爷]

你确定你.asp的内容可以直接改写成.html的？
可以这样。复制B.ASP文件，然后重命名。


复制文件 File.Copy 或 FileSystemObject.CopyFile

[glasses1999]

直接用file.copy 行吗？　A.asp里面有很多计算的。

[灬上海爽爷]

那就不行了。那就照3楼说的吧。。

[glasses1999]

[Quote=引用 3 楼 xming4321 的回复:]
这个的话 只能是这样 用xmlhttp
请求A。asp

然后 把请求到的内容
所生成文件
[/Quote]

　XMLHTTP，给个简单的例子，谢谢！

[灬上海爽爷]

<%
function bytes2bstr(vin)
strreturn = ""
for i = 1 to lenb(vin)
thischarcode = ascb(midb(vin,i,1))
if thischarcode < &h80 then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
bytes2bstr = strreturn
end function

function getpagecode(url)
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
	With Retrieval
		.Open "GET", url, False, "", ""
		.Send
		GetURL = .responsebody
		GetURL= bytes2bstr(GetURL)
		getpagecode=trim(GetURL)
	End With
Set Retrieval = Nothing
end function


pagecode=getpagecode("http://www.iaechina.net.cn/default.asp")
Response.Write(pagecode)

%>

TRY

[灬上海爽爷]

这是获取a.asp的方法。然后你再生成B.html，把pagecode写进去就OK

[glasses1999]

　 谢谢，我研究一下。
　

[glasses1999]

用XMLHTTP，可以了，谢谢！

[chinaynlmq]

asp 生成的静态页面为什么放到外网即服务器上就出错呢？在本地运行是没有为题啊