Question

怎样让ASP文件在客户断自动转换成html格式的文件显示

ASP文件在浏览时影响速度，我想把像新闻详细内容之类的asp文件在客户断浏览时自动转换成HTML格式的文件，不知道怎样做，是asp文件做好了才设置呢，还是在做这个asp文件的时候就要设置呢？我用的是dreamweaver做的网页，如果能在这里面解决的话最好了。请高手说详细些，我是菜鸟。
我原来也是看到的类似这样的代码,这段代码怎样用呢,是插到要生成html格式的asp文件里,还是单独存一个文件哦,没办法,笨的很,

Answer 1

你的意思是将 ASP 代码 生成静态，让客户端访问？
例子
<%
'使用方法：
' dim UTH,HtmlDate
' set UTH=new URLtoHtml 创建对象
' UTH.URL="http://……" 获取要处理的URL
' HtmlDate=UTH.HttpDate 取得处理后的网页数据
' ....... 中间处理代码
' set UTH=nothing 删除实例对象
'**************************
class URLtoHtml
private c_url

public property let URL(x_url)
c_url = x_url
end property

private function GetURL(url)
set Retrieval = CreateObject("Microsoft.XMLHTTP")
with Retrieval
.Open "GET", url, false
.Send
GetURL = .responsebody
end with
set Retrieval = nothing
end function

private function Bytes2bStr2(url)
dim BytesStream,StringReturn,vin,adTypeText
adTypeText=2
vin=GetURL(url)
set BytesStream = Server.CreateObject("ADODB.Stream")
with BytesStream
.Type = adTypeText
.Open
.WriteText vin

.Position = 0

.Charset = "GB2312"
.Position = 2
StringReturn = .ReadText
.close
end with
Set BytesStream = nothing
Bytes2bStr2 = StringReturn
end function

public property get HttpDate
HttpDate=Bytes2bStr2(c_url)
end property
end class
%>

'////////////////////////////////////////////一下是代码的调用
<%
dim UTH,fso,fout,HttpDate
set UTH=new URLtoHtml
UTH.URL="http://"&Request.ServerVariables("SERVER_NAME")&":"&Request.ServerVariables("SERVER_PORT")&"/1.asp"
'/////////////////////////////////////////////////////1.asp是测试页面的名称

HttpDate=UTH.HttpDate

set fso = Server.CreateObject("Scripting.FileSystemObject")
set fout=fso.CreateTextFile(Server.MapPath("/Index.htm"))
fout.WriteLine HttpDate
set UTH=nothing
%>
<%
if err.number>0 then
response.Write "生成网站首页失败!"
else
response.Write "生成网站首页成功!"
end if
%>

工具：
飞鸟asp生成htm插件1.4

下载地址：
http://www.21tx.com/src/2007/10/26/10037.html