ASP编程：ASP怎样猎取客户端实在IP地点

对用户来说可预见费用、节约费用，可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用，用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的，对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。ip地点|客户端在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")
Ifuserip=""Thenuserip=Request.ServerVariables("REMOTE_ADDR")
......

即：假如客户端经由过程代办署理服务器，则取HTTP_X_FORWARDED_FOR的值，假如没经由过程代办署理服务器，就取REMOTE_ADDR的值。

通用函数：假如不克不及取客户端实在IP，就会取客户真个代办署理IP
PrivateFunctiongetIP()
DimstrIPAddr
IfRequest.ServerVariables("HTTP_X_FORWARDED_FOR")=""ORInStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),"unknown")>0Then
strIPAddr=Request.ServerVariables("REMOTE_ADDR")
ElseIfInStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),",")>0Then
strIPAddr=Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),1,InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),",")-1)
ElseIfInStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),";")>0Then
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")
EndIf
getIP=Trim(Mid(strIPAddr,1,30))
EndFunction

</p>缺点：正版成本价格贵（盗版就不说了）、不够安全，大多数服务器用windows系统，没有linux安全

下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

掌握asp的特性而且一定要知道为什么。

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。