最简单的用以下语句:ip=request.ServerVariables("REMOTE_ADDR") response.Write(ip)但这种方法对代理服务器上网的就不准了,故比较全面的是用下面的方法:[code]<%Private Function getIP()  Dim strIPAddr  If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerV...