asp 网站静态化函数代码html

154 阅读 0 评论 102 点赞

我是靠谱客的博主土豪招牌，最近开发中收集的这篇文章主要介绍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