当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP实例教程:用户信息和服务器

ASP
asp分页(自己整理的2个分页程序)
ASP常用的系统配置函数
雨哲防采集策略之列表篇
雨哲浅谈关于防采集而不影响收录内容篇
asp数据库连接函数
ajax XMLHTTP Post Form时的表单乱码综合解决
ASP注入详细命令40条
用ASP实现MSSQL用户密码破解
ASP创建对象的两种方法比较
ASP字符串转换为整形、双精度型、布尔
ASP计算str2在str1中出现的次数
asp采集抓取网上房产信息的代码
ASP注册登陆实例代码
ASP中使用FileSystemObject时提高性能的方法
分享一个好东东,动态Include文件 (Dynamic File Includes)
解决 JScript 中使用日期类型数据时出现类型错误的问题
在ASP里面创建GUID
在JScript中使用缓存技术的实际代码
ASP javascript Application对象的Contents和StaticObjects做Cache的一些经验
海阳2006+功能中的潜水王

ASP实例教程:用户信息和服务器


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-28   浏览: 82 ::
收藏到网摘: n/a

用户信息和服务器相关的实例

取得用户信息

如何查明访问者的浏览器类型、IP地址等信息

本示例代码如下:

<html>
<body>
<p>
<b>您正在通过这款浏览器访问我们的站点:</b>
<%Response.Write(Request.ServerVariables("http_user_agent"))%>
</p>
<p>
<b>您的 IP 地址是:</b>
<%Response.Write(Request.ServerVariables("remote_addr"))%>
</p>
<p>
<b>IP 地址的 DNS 查询是:</b>
<%Response.Write(Request.ServerVariables("remote_host"))%>
</p>
<p>
<b>调用该页面所用的方法是:</b>
<%Response.Write(Request.ServerVariables("request_method"))%>
</p>
<p>
<b>服务器的域名:</b>
<%Response.Write(Request.ServerVariables("server_name"))%>
</p>
<p>
<b>服务器的端口:</b>
<%Response.Write(Request.ServerVariables("server_port"))%>
</p>
<p>
<b>服务器的软件:</b>
<%Response.Write(Request.ServerVariables("server_software"))%>
</p>
</body>
</html>

看到本信息说明该文是通过网页教学(www.ruanchen.com)整理发布的,请不要删掉!

本实例运行结果如下:

您正在通过这款浏览器访问我们的站点: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; GTB5; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1))
您的 IP 地址是: 121.106.102.120
IP 地址的 DNS 查询是: 123.106.112.210
调用该页面所用的方法是: GET
服务器的域名: www.ruanchen.com
服务器的端口: 80
服务器的软件: Microsoft-IIS/5.0

取得服务器变量

本例演示如何使用ServerVariables集合取得访问者的浏览器类型、IP地址等信息。

本示例代码如下:

<html>
<body>
<p>
所有可能的服务器变量:
</p>
<%
For Each Item in Request.ServerVariables
      Response.Write(Item & "<br />")
Next
%>
</body>
</html>

本实例运行结果如下:

所有可能的服务器变量:
ALL_HTTP
ALL_RAW
APPL_MD_PATH
APPL_PHYSICAL_PATH
AUTH_PASSWORD
AUTH_TYPE
AUTH_USER
CERT_COOKIE
CERT_FLAGS
CERT_ISSUER
CERT_KEYSIZE
CERT_SECRETKEYSIZE
CERT_SERIALNUMBER
CERT_SERVER_ISSUER
CERT_SERVER_SUBJECT
CERT_SUBJECT
CONTENT_LENGTH
CONTENT_TYPE
GATEWAY_INTERFACE
HTTPS
HTTPS_KEYSIZE
HTTPS_SECRETKEYSIZE
HTTPS_SERVER_ISSUER
HTTPS_SERVER_SUBJECT
INSTANCE_ID
INSTANCE_META_PATH
LOCAL_ADDR
LOGON_USER
PATH_INFO
PATH_TRANSLATED
QUERY_STRING
REMOTE_ADDR
REMOTE_HOST
REMOTE_USER
REQUEST_METHOD
SCRIPT_NAME
SERVER_NAME
SERVER_PORT
SERVER_PORT_SECURE
SERVER_PROTOCOL
SERVER_SOFTWARE
URL
HTTP_ACCEPT
HTTP_ACCEPT_LANGUAGE
HTTP_CONNECTION
HTTP_HOST
HTTP_REFERER
HTTP_USER_AGENT
HTTP_COOKIE
HTTP_UA_CPU
HTTP_ACCEPT_ENCODING

创建welcome cookie

本例演示如何使用Cookies集合创建一个欢迎cookie。

加此信息软晨学习网(www.ruanchen.com)发布目的是为了防止你变懒!ruanchen.com不主张采集!

本示例代码如下:

<%
dim numvisits
response.cookies("NumVisits").Expires=date+365
numvisits=request.cookies("NumVisits")
if numvisits="" then
   response.cookies("NumVisits")=1
   response.write("欢迎!这是您第一次访问本页面。")
else
   response.cookies("NumVisits")=numvisits+1
   response.write("之前,您已经访问过本页面 ")
   response.write(numvisits & " 次。")
end if
%>
<html>
<body>
</body>
</html>

本实例运行结果如下:

之前,您已经访问过本页面 1 次。

探测用户发送的字节总数

本例演示如何使用TotalBytes属性来取得用户在Request对象中发送的字节总数。

本示例代码如下:

<html>
<body>
<form action="/example/aspe/demo_aspe_totalbytes.asp" method="post">
请键入一些字符:
<input type="text" name="txt"><br><br>
<input type="submit" value="提交">
</form>
<%
If Request.Form("txt")<>"" Then
   Response.Write("您提交了:")
   Response.Write(Request.Form)
   Response.Write("<br><br>")
   Response.Write("字节总计:")
   Response.Write(Request.Totalbytes)
End If
%>
</body>
</html>

本实例运行结果出现一个表单,然后自己测试下吧!