asp 网站静态化函数代码html

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