asp 网站静态化函数代码html

function htmll(mulu,htmlmulu,filename,filefrom,htmla,htmlb,htmlc,htmld)
if mulu="" then mulu="/"
if htmlmulu="" then htmlmulu="/"
mulu=replace(sysrootdir&mulu, "//", "/")
htmlmulu=replace(sysrootdir&htmlmulu, "//", "/")
filepath=server.mappath(mulu)&""&filename
do_url="http://"
do_url=do_url&request.servervariables("server_name")&htmlmulu&filefrom
do_url=do_url&"?"&htmla&htmlb&"&"&htmlc&htmld
strurl=do_url
set objxmlhttp=server.createobject("microsoft.xmlhttp")
objxmlhttp.open "get",strurl,false
objxmlhttp.send()
binfiledata=objxmlhttp.responsebody
set objxmlhttp=nothing
set objadostream=server.createobject("adodb." & "stream")
objadostream.type=1
objadostream.open()
objadostream.write(binfiledata)
objadostream.savetofile filepath,2
objadostream.close()
set objadostream=nothing
end function