Question

ASP文件直接生成HTML

ASP文件直接生成HTML，能帮忙实现吗，大哥？

Answer 1

两种方法：1.用模板的方式：把要生成的页面做成模板，做一个程序，把要替换的内容换成相应的标签，如：比如用{NewsList}代表新闻列表。2.直接读取.asp页面运行后生成的html代码，然后用FSO生成一个新的文件，代码如下：常用函数1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码function getHTTPPage(url)dim Httpset Http=server.createobject("MSXML2.XMLHTTP")Http.open "GET",url,falseHttp.send()if Http.readystate<>4 then exit functionend ifgetHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")set http=nothingif err.number<>0 then err.Clear end function2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换Function BytesToBstr(body,Cset)dim objstreamset objstream = Server.CreateObject("adodb.stream")objstream.Type = 1objstream.Mode =3objstream.Openobjstream.Write bodyobjstream.Position = 0objstream.Type = 2objstream.Charset = CsetBytesToBstr = objstream.ReadText objstream.Closeset objstream = nothingEnd FunctiontxtURL="要获取的页面地址( http://www.xxx.com/index.asp )"sText = getHTTPPage(txtURL) Set FileObject=Server.CreateObject("Scripting.FileSystemObject") filename="生成的文件名(/index.html)"Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) openFile.writeline(sText)Set OpenFile=nothing

希望采纳