html如何向asp写入,asp输出到html

其实就是用了一个组件msxml2.serverXMLHTTP

适合于少量页面的静态化，因为这个需要消耗一些时间，页面数量过多的话，会超时的。基本上一次生成30个页面左右就差不多了。废话不说了，直接上代码。

function getURL(url)

dim xml

set xml=server.CreateObject("msxml2.serverXMLHTTP")

with xml

.Open "GET",url,false

.Send

if .readyState = 4 then

getURL=.ResponseBody

else

getURL="Fail"

end if

end with

set xml=nothing

end function

function getCharset(byval s)

s=StringFromBytes(s,"utf-8")

set reg=new RegExp

with reg

.pattern="charset=.+?"""

.ignorecase=true

.global=false

set c=.execute(s)

d=c(0).Value

getCharset=mid(d,9,len(d)-9)

end with

set reg=nothing

end function

Function StringFromBytes(bytes , cSet)

With CreateObject("ADODB.Stream")

.Type = 1

.Open

.Write bytes

.Position = 0

.Type = 2

.Charset = cSet

StringFromBytes = .ReadText()

.Close

End With

End Function

function saveToFile(byval s,byval filename)

filename=server.MapPath("./"&filename)

cset=getCharset(s)

set http=server.CreateObject("adodb.stream")

with http

.mode=3

.type=1

.open

.write s

.position=0

.type=2

.charset=cset

.savetofile filename,2

.close

end with

set http=nothing

end function

function getHtml(xURL,filename)

dim html

html=getURL(xURL)

savetofile html,filename

end function

%>

最后一句是生成id为498的页面。是用来测试的。大家只需要调用gethtml这个函数即可。