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

在ASP中怎么在主页上显示来访者ip和主机名?非常着急,最好在代码旁又注释!谢谢啦…... 在ASP中怎么在主页上显示来访者ip 和主机名?非常着急,最好在代码旁又注释!谢谢啦… 展开
 我来答
gl342813764
2009-04-24 · TA获得超过211个赞
知道小有建树答主
回答量:203
采纳率:0%
帮助的人:268万
展开全部
获取IP:Request.ServerVariables("REMOTE_ADDR")
获取机器名:Request.ServerVariables("REMOTE_HOST")
获取服务器名:Request.ServerVariables("server_name")
Storm代理
2023-07-25 广告
StormProxies是一家提供动态代理服务器服务的企业,旨在帮助用户更好地管理网络访问和安全。以下是一些关于StormProxies的IP动态代理服务的特点:1. 高匿名性:StormProxies的动态代理服务器具有高匿名性,可以有效... 点击进入详情页
本回答由Storm代理提供
小李无刀
2009-04-24 · TA获得超过6360个赞
知道大有可为答主
回答量:8829
采纳率:78%
帮助的人:5509万
展开全部
<%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>
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
wangzhenwu
2009-04-24 · 超过37用户采纳过TA的回答
知道小有建树答主
回答量:93
采纳率:50%
帮助的人:75.9万
展开全部
在代码中加,例如:

来访者IP:<%=request.ServerVariables("REMOTE_ADDR")%><br>
主机名:<%=Request.ServerVariables("server_name") %>
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式