asp实用方法：动态网站全站生成html静态页面，asp生成静态网站

<%

dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp

Html_Temp="

"

For i=1 To 3

Html_Temp = Html_Temp&"

"

Item_Classid = i

FileName = "blog"&Item_Classid&".htm"

FilePath = Server.MapPath("/")&"\"&FileName

Html_Temp = Html_Temp&FilePath&"

"

Do_Url = "http://192.168.1.9:8003/"

Do_Url = Do_Url&"/blog.asp"

Do_Url = Do_Url&"?wenzhangid="&Item_Classid

strUrl = Do_Url

dim objXmlHttp

set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")

objXmlHttp.open "GET",strUrl,false

objXmlHttp.send()

Dim binFileData

binFileData = objXmlHttp.responseBody

Dim objAdoStream

set objAdoStream = Server.CreateObject("ADODB.Stream")

objAdoStream.Type = 1

objAdoStream.Open()

objAdoStream.Write(binFileData)

objAdoStream.SaveToFile FilePath,2

objAdoStream.Close()

Next

Html_Temp = Html_Temp&"

"

%>

<%

Response.Write ( "成功生成文件：" )

Response.Write ( "

" )

Response.Write Html_Temp

%>

♡ 点赞 0

☆ 收藏 0

留言区（共0条）