急:ASP 获取用户的ip端口

急:ASP 获取用户的ip端口,第1张

<%

response.write Request.ServerVariables("REMOTE_ADDR")'获取IP 地址

response.write "<br>"

response.write Request.ServerVariables("REMOTE_PORT")'获取端口

%>

晕,我想楼主是不是没弄清楚HTTP协议?HTTP协议是一种无状态协议,也就是说这次浏览时IE打开的是这个端口,但网页一旦下载,链接即被关闭,即下次再打开时端口也就变了,要区分局域网里的每台机子可以使用Session,因为SessionID因是保存在COOKIE里的,IIS为每个浏览者生成的SessionID都不一样,所以它是唯一的,可以用于区分每个不同的用户。

Session.SessionID返回当前浏览者的SessionID,可以设置COOKIE,把COOKIE的有效期设置一年,只要客户端用户不清除COOKIE,那么COOKIE就一直有效,对于IP,目前绝大多数都是动态IP,所以要长期用它来验证客户端身份不现实,也很难实现,而大多数都是用COOKIE来完成,自己生成一个唯一的编号,然后保存到客户Cookie中

操作系统:

<%=Request.ServerVariables("OS")%>

服务器名称:

<%=Request.ServerVariables("SERVER_NAME")%>

服务器IP:

<%=Request.ServerVariables("LOCAL_ADDR")%>

CPU数量:

<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>个

服务端口:

<%=Request.ServerVariables("SERVER_PORT")%>

Webserver及版本:

<%=Request.ServerVariables("SERVER_SOFTWARE")%>

脚本解释引擎:

<%=ScriptEngine &"/"&ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."&ScriptEngineBuildVersion %>

服务协议及版本:

<%=Request.ServerVariables("SERVER_PROTOCOL")%>

脚本超时时间:

<%=Server.ScriptTimeout%>秒

网站物理路径:

<%=request.ServerVariables("APPL_PHYSICAL_PATH")%>

<%

Dim BrowseMsg,BrowseVersion,SystemVersion

BrowseMsg=Request.ServerVariables("HTTP_USER_AGENT")

'+++++++++++一个基本判别操作系统的函数+++++++++++

Function SystemCheck()

if inStr(BrowseMsg,"Windows 98") then

SystemCheck="Windows 98"

else if inStr(BrowseMsg,"Windows NT 4.0") then

SystemCheck="Windows NT 4.0"

else if inStr(BrowseMsg,"Windows NT 5.0") then

SystemCheck="Windows NT 2000"

else

SystemCheck="未知类型"

end if

end if

end if

end Function

'由于时间的原因我没有写判定win95和windows xp的语句,感兴趣的网友可以

'自行添加:)

'+++++++++++结束+++++++++++

if inStr(BrowseMsg,"MSIE") then

SystemVersion=CInt(Mid(BrowseMsg,inStr(BrowseMsg,"MSIE")+5,1))

response.write "您的浏览器的版本是 IE"&BrowseVersion&"<BR>"

response.write "您的操作系统是 "&SystemCheck()

end if

%>


欢迎分享,转载请注明来源:夏雨云

原文地址:https://www.xiayuyun.com/zonghe/330127.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-05-03
下一篇2023-05-03

发表评论

登录后才能评论

评论列表(0条)

    保存