dwt转为html,如何把dwt页面转换成html页面

修改一下这个就能用:

function getHTTPPage(url)

dim Http

set Http=server.createobject("MSXML2.XMLHTTP")

Http.open "GET",url,false

Http.send()

if Http.readystate<>4 then

exit function

end if

getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")

set http=nothing

if err.number<>0 then err.Clear

end function

Function BytesToBstr(body,Cset)

dim objstream

set objstream = Server.CreateObject("adodb.stream")

objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.Write body

objstream.Position = 0

objstream.Type = 2

objstream.Charset = Cset

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = nothing

End Function

Dim Url,Html

Url="http://www.xxxxx.com"'这里改成你需要转换的文件,可以用循环语句或查询数据库实现多页生成

Html = getHTTPPage(Url)

dim filename,MDBpath,fso,fout

filename="../index.htm"'这里改成你需要生成的文件名

MDBpath="./"

Set fso = Server.CreateObject("Scripting.FileSystemObject")

Set fout = fso.CreateTextFile(server.mappath(""&filename&""))

fout.Write Html

fout.close

set fout=nothing

set fso=nothing

if err then

response.Write("生成首页失败")

else

response.Write("生成首页成功../index.htm")'这里请改名

end if

%>

◆◆

评论读取中....

请登录后再发表评论!

◆◆

修改失败，请稍后尝试