復(fù)制代碼 代碼如下:
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
您可能感興趣的文章:- 比較詳細(xì)的Asp偽靜態(tài)化方法及Asp靜態(tài)化探討
- 不用mod_rewrite直接用php實(shí)現(xiàn)偽靜態(tài)化頁(yè)面代碼
- 網(wǎng)頁(yè)的HTML靜態(tài)化_網(wǎng)站優(yōu)化之談
- 通用大型網(wǎng)站頁(yè)面靜態(tài)化解決方案
- php 靜態(tài)化實(shí)現(xiàn)代碼
- nginx 偽靜態(tài)化rewrite規(guī)則
- ASP頁(yè)面靜態(tài)化批量生成代碼分享(多種方法)
- php靜態(tài)化頁(yè)面 htaccess寫(xiě)法詳解(htaccess怎么寫(xiě)？)
- smarty 緩存控制前的頁(yè)面靜態(tài)化原理
- aspx文件格式使用URLRewriter實(shí)現(xiàn)靜態(tài)化變成html
- php頁(yè)碼形式分頁(yè)函數(shù)支持靜態(tài)化地址及ajax分頁(yè)
- 使用ob系列函數(shù)實(shí)現(xiàn)PHP網(wǎng)站頁(yè)面靜態(tài)化
- 分享常見(jiàn)的幾種頁(yè)面靜態(tài)化的方法
- 如何對(duì)ASP.NET網(wǎng)站實(shí)現(xiàn)靜態(tài)化
