大家说说这个方法XMLHTTP生成静态类别页面,及首页好不好,,说说看,好的生成方法有那些呢,急

手心的雷

应用XMLHTTP方法导入asp页面静态生成:
程序
'---------------
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
'---------------------
Sub makehtml()
Dim rsa
Dim Url,Html
dim filename,fso,fout
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set rsa=server.CreateObject("adodb.recordset")
rsa.open "select house_class_id from house_class",conn,3,2
do while Not rsa.eof

  Url="http://"&request.ServerVariables("Server_NAME")& "/house/house.asp?id="&rsa("house_class_id")"
  Html = getHTTPPage(Url)
  filename="list"&rsa("house_class_id")&-1&".htm"
  Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
  fout.Write html
rsa.movenext
loop
rsa.close
fout.close
set fout=nothing
set fso=nothing
if err then
err.Clear
response.Write("有错误产生!")
else
response.write("<br><font color='#ff0000'>成功生成页面<font>")
'response.write("<meta http-equiv='refresh' content='2;URL=/house/index.htm'>")
end if
End Sub
Call makehtml()
这种方法好不好呢,如果行的话那生成首页也可以这样了,,
大家说说这方法的好与不好,这方法生成速度不快,
我了解到应用一个:
<script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('ASP文件地址',onDownloadDone)</script> 这样单个生成每个页面了,但要怎么实现呢,

kevin1984

你说的那个应用，其实只能在ie里用，8好。。

xmlhttp的效率8好

只适合快速开发

如果需要效率的硬指标的话，替代方案8少

如果一定要做http这种，可以用socket 可以用inet

如果有.net可以用webclient，可以用直接在render输出。。。