如何在浏览器地址栏显示某个站点的地址或域名

1. use frame.
2. use xmlhttp

解决方案 »

  1.   

    <body class="flat" leftMargin=0 rightMargin=0  topMargin=0 reload=true  valign="top" scroll=no> 
    <iframe style="scroll:no" src=http://www.csdn.net frameborder=0 width=100% height=100%></iframe> 
      

  2.   

    <%
    response.write getHTTPPage("http://www.csdn.net")function getHTTPPage(url) 
    on error resume next 
    dim http 
    set http=Server.createobject("Msxml2.XMLHTTP") 
    Http.open "GET",url,false 
    Http.send() 
    if Http.readystate<>4 then exit function 
    getHTTPPage=bytes2BSTR(Http.responseBody) 
    set http=nothing
    if err.number<>0 then err.Clear  
    end function Function bytes2BSTR(vIn) 
    dim strReturn 
    dim i,ThisCharCode,NextCharCode 
    strReturn = "" 
    For i = 1 To LenB(vIn) 
    ThisCharCode = AscB(MidB(vIn,i,1)) 
    If ThisCharCode < &H80 Then 
    strReturn = strReturn & Chr(ThisCharCode) 
    Else 
    NextCharCode = AscB(MidB(vIn,i+1,1)) 
    strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
    i = i + 1 
    End If 
    Next 
    bytes2BSTR = strReturn 
    End Function 
    %>