<% hm=Request.ServerVariables("HTTP_X_UP_CALLING_LINE_ID") if hm="" then hm=Request.ServerVariables("HTTP_X_UP_SUBNO") Function unwide(str) str=replace(str,"text","文件格式") str=replace(str,"q=0.9","") str=replace(str,"image","图像格式") str=replace(str,"q=0.1","") str=replace(str,"q=0.6","") unWide=str end function %> 本机号码:
<% =hm %>
--------
型号:浏览器:分辩率:
<% =unwide(Request.ServerVariables("HTTP_USER_AGENT")) %>
--------
能接受的文件类型:
<% =unwide(Request.ServerVariables("HTTP_ACCEPT")) %>
--------
能接受的语言:
<% =unwide(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")) %>
--------
能接受的字符集:
<% =unwide(Request.ServerVariables("HTTP_ACCEPT_CHARSET")) %>
--------
服务端口:
<% =Request.ServerVariables("SERVER_PORT")%>
--------
CGI版本号:
<% =Request.ServerVariables("GATEWAY_INTERFACE")%>
--------
手机IP地址:
<% =Request.ServerVariables("REMOTE_ADDR")%>
--------
代理服务器名及端口:
<% =Request.ServerVariables("HTTP_X_FORWARDED_FOR")%>
--------
WAP接入点:
<% =Request.ServerVariables("HTTP_X_SOURCE_ID")%>
--------
接入类型:
<% =Request.ServerVariables("HTTP_X_UP_BEARER_TYPE")%> <%response.write "
返回上级" response.write "
网站首页
" response.write""&Month(Now)&"月"&Day(Now)&"日"&FormatDateTime(Now,vbshortTime)&"" response.write "