请问一下从一个子框架得到另一个子框架的HTML代码?

Question

第一个问题可以通过XMLHTTP解决。

Answer 1

用XMLHTTP来实现吧
<%
function getHTTPPage(url)
  dim Http
  set Http=server.createobject("Microsoft.XMLHTTP")
  Http.open "GET",url,false
  Http.send(Url)
  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
a=getHTTPPage("")
response.write a
%>