<% response.write "您的IP为："&getUserIP() Function getUserIP() Dim userip userIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If userIP = "" Then userIP = Request.ServerVariables("REMOTE_ADDR") End if getUserIP = userIP End Function %>
1.将下面的代码复制到 <body> 内
<% response.write "您的IP为："&getUserIP() Function getUserIP() Dim userip userIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If userIP = "" Then userIP = Request.ServerVariables("REMOTE_ADDR") End if getUserIP = userIP End Function %>
2.放在需要显示的地方即可。
