存档

2007年2月 的存档

ASP如何获取客户端真实IP地址

2007年2月27日 没有评论

在ASP中使用 Request.ServerVariables("REMOTE_ADDR") 来取得客户端的IP地址,但如果客户端是使用代理服务器来访问,那取到的就是代理服务器的IP地址,而不是真正的客户端IP地址。要想透过代理服务器取得客户端的真实IP地址,就要使用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取。不过要注意的事,并不是每个代理服务器都能用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取客户端的真实 IP,有些用此方法读取到的仍然是代理服务器的IP。还有一点需要注意的是:如果客户端没有通过代理服务器来访问,那么用 Request.ServerVariables ("HTTP_X_FORWARDED_FOR") 取到的值将是空的。因此,如果要在程序中使用此方法,可以这样处理: 
…… 
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR") 
…… 

即:如果客户端通过代理服务器,则取 HTTP_X_FORWARDED_FOR 的值,如果没通过代理服务器,就取 REMOTE_ADDR 的值。 

'通用函数:如果不能取客户端真实IP,就会取客户端的代理IP 
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

分类: 大学 标签:

压力

2007年2月15日 没有评论

你那么匆匆忙忙,留下我一个人,唉,其实我的压力又何尝不大呢?
但我不敢说出来,因为我怕…怕得简直要死了…
我自己会好好解决掉的,我相信自己!而且在你面前我根本郁闷不起来,只要能够让你开心,什么都不算什么。
你是最重要的。

分类: 大学 标签:

失眠

2007年2月13日 没有评论

半夜十二点半
怎么会睡不着呢?
缺少了什么
好闷
好想回到学校
好想……
再也忍受不了无所事事的日子

分类: 大学 标签:

过小年快乐!

2007年2月9日 1 条评论

明天是农历十二月二十三,我们叫“小年”,不知道你会不会看到呢?小年快乐!!

分类: 大学 标签:

回家的路上

2007年2月1日 2 条评论

现在正坐在2174到襄樊的车上,整个下午,没有说过一句话,没有吃一点东西,电话快没有钱了,发不了几条信息了,不知道他们怎么样了,晕啊!

分类: 杂志 标签: