復制代碼 代碼如下:
Function htmll(mulu,htmlmulu,FileName,filefrom,htmla,htmlb,htmlc,htmld)
if mulu="" then mulu="/"
if htmlmulu="" then htmlmulu="/"
mulu=replace(SysRootDirmulu, "http://", "/")
htmlmulu=replace(SysRootDirhtmlmulu, "http://", "/")
FilePath=Server.MapPath(mulu)"\"FileName
Do_Url="http://"
Do_Url=Do_UrlRequest.ServerVariables("server_name")htmlmulufilefrom
Do_Url=Do_Url"?"htmlahtmlb""htmlchtmld
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實現靜態化變成html
- php頁碼形式分頁函數支持靜態化地址及ajax分頁
- 使用ob系列函數實現PHP網站頁面靜態化
- 分享常見的幾種頁面靜態化的方法
- 如何對ASP.NET網站實現靜態化
