5_13a.asp

来自「《asp网页设计》作者沈才梁源代码,共十章」· ASP 代码 · 共 12 行

<%
response.write "用户来访信息<hr>"
Dim userip
userip = Request.ServerVariables("REMOTE_ADDR") '获取客户机IP地址
if userip <> ""  then
	response.write "<B>您的真实ＩＰ是：192.168.0.254<B>" & "<br>"
end if
Response.write "<B>浏览器和操作系统版本信息：</B><br>"
response.write Request.ServerVariables("HTTP_USER_AGENT") 
'获取客户机操作系统和浏览器版本型号
%>