asp 网站静态化函数代码html
2018-09-06 11:21
复制代码 代码如下:
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=
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
上一篇：如何把ASP编写成DLL(1)
下一篇：计算两个时间之差的函数