30分！在ASP中怎么在主页上显示来访者ip 和主机名？

2025-03-02 11:40:08

推荐回答（3个）

回答1：

获取IP:Request.ServerVariables("REMOTE_ADDR")
获取机器名：Request.ServerVariables("REMOTE_HOST")
获取服务器名：Request.ServerVariables("server_name")

回答2：

<%Private Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
getIP = Trim(Mid(strIPAddr, 1, 30))
End Function
ip=getIP()
response.write("欢迎访问本站，您的IP是：" & ip)
%>

回答3：

在代码中加，例如：

来访者IP：<%=request.ServerVariables("REMOTE_ADDR")%>

主机名：<%=Request.ServerVariables("server_name") %>