怎样在网页里显示服务器ip?

<%= Request.ServerVariables("remote_addr") %>
http://expert.csdn.net/Expert/topic/1474/1474476.xml?temp=.9045679

解决方案 »

  1.   

    不好意思，忘了说了本机ip永远是192.168.1.2,通过adsl路由上网，能不能在网页显示adsl路由的ip,谢谢
      

  2.   

    <%@ LANGUAGE="VBSCRIPT"%>
       
        <%
         strIP = Request.ServerVariables("REMOTE_ADDR")
        
         strMac = GetMACAddress(strIP)
         strHost = Request.ServerVariables("REMOTE_HOST")
        Function GetMACAddress(strIP)
        Set net = Server.CreateObject("wscript.network")
        Set sh = Server.CreateObject("wscript.shell")
        sh.run "%comspec% /c nbtstat -A " & strIP & " > c:\" & strIP & ".txt",0,true
        Set sh = nothing
        Set fso = createobject("scripting.filesystemobject")
        Set ts = fso.opentextfile("c:\" & strIP & ".txt")
        macaddress = null
        Do While Not ts.AtEndOfStream
        data = ucase(trim(ts.readline))
        If instr(data,"MAC ADDRESS") Then
        macaddress = trim(split(data,"=")(1))
        Exit Do
        End If
        loop
        ts.close
        Set ts = nothing
        fso.deletefile "c:\" & strIP & ".txt"
        Set fso = nothing
        GetMACAddress = macaddress
        End Function 
        %>
        <HTML>
        <HEAD>
        <TITLE>Say Hello To the MAC MAN</TITLE>
        </HEAD>
        <BODY>
        <%Response.Write("Your IP is : " & strIP & "" & vbcrlf)%>
        <%Response.Write("Your MAC is : " & strMac & vbcrlf)%>
        </BODY>
        </HTML>
    忘记是收藏谁的帖子了...
      

  3.   

    Your IP is : 127.0.0.1 Your MAC is : 
    晕啊！我要看服务器ip(而且是要adsl路由上的ip)，不是客户端ip，题目看看清楚