asp 网站静态化函数代码html
2024-05-04 11:00:19
供稿：网友
复制代码 代码如下:
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伪静态化方法及Asp静态化探讨不用mod_rewrite直接用php实现伪静态化页面代码网页的HTML静态化_网站优化之谈通用大型网站页面静态化解决方案php 静态化实现代码nginx 伪静态化rewrite规则ASP页面静态化批量生成代码分享(多种方法)php静态化页面 htaccess写法详解(htaccess怎么写？)smarty 缓存控制前的页面静态化原理aspx文件格式使用URLRewriter实现静态化变成htmlphp页码形式分页函数支持静态化地址及ajax分页使用ob系列函数实现PHP网站页面静态化分享常见的几种页面静态化的方法如何对ASP.NET网站实现静态化
