ASP开发中网站静态功能的实例展现
来源：爱站网时间：2020-10-30编辑：网友分享
网站的开发就是为了访问量的增加和网站的加速，而我们需要经常优化我们的网站才能满足大众的需求，下文是爱站技术频道小编为大家带来的ASP开发中网站静态功能的实例展现，希望能帮到你学习这方面知识。
网站的开发就是为了访问量的增加和网站的加速，而我们需要经常优化我们的网站才能满足大众的需求，下文是爱站技术频道小编为大家带来的ASP开发中网站静态功能的实例展现，希望能帮到你学习这方面知识。
复制代码 代码如下:
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
本文是爱站技术频道小编介绍的ASP开发中网站静态功能的实例展现，其实网站的开发比我们想象的要复杂的多，但是如果我们能运用的很好，那也将会为我们带来很大的财富。
