
30分!在ASP中怎么在主页上显示来访者ip 和主机名?
展开全部
获取IP:Request.ServerVariables("REMOTE_ADDR")
获取机器名:Request.ServerVariables("REMOTE_HOST")
获取服务器名:Request.ServerVariables("server_name")
获取机器名:Request.ServerVariables("REMOTE_HOST")
获取服务器名:Request.ServerVariables("server_name")

2023-07-25 广告
StormProxies是一家提供动态代理服务器服务的企业,旨在帮助用户更好地管理网络访问和安全。以下是一些关于StormProxies的IP动态代理服务的特点:1. 高匿名性:StormProxies的动态代理服务器具有高匿名性,可以有效...
点击进入详情页
本回答由Storm代理提供
展开全部
<%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)
%>
<script language=javascript>
var WshNetwork = new ActiveXObject("WScript.Network");
document.write("您的电脑名是:" + WshNetwork.ComputerName);
</script>
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)
%>
<script language=javascript>
var WshNetwork = new ActiveXObject("WScript.Network");
document.write("您的电脑名是:" + WshNetwork.ComputerName);
</script>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在代码中加,例如:
来访者IP:<%=request.ServerVariables("REMOTE_ADDR")%><br>
主机名:<%=Request.ServerVariables("server_name") %>
来访者IP:<%=request.ServerVariables("REMOTE_ADDR")%><br>
主机名:<%=Request.ServerVariables("server_name") %>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询