ASP.NET网页编程之asp.net(vb.net)猎取实在IP的函数
有个问题想请教你一下，呵呵：）你觉得将来学什么方向比较好，我真是想不出来，知道的太少了，麻烦了。aspxvb.net猎取实在IP的函数以下：复制代码代码以下:
<scriptrunat="server">
PublicFunctionCheckIp(ByValipAsString)AsBoolean
DimpatAsString="^{1,3}.{1,3}.{1,3}.{1,3}$"
DimregAsRegex=NewRegex(pat)
ifip=""Then
CheckIp=False
exitFunction
endif
CheckIp=reg.IsMatch(ip)
EndFunction
PublicFunctionget_cli_ip()AsString
If(Not(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP")IsNothing)AndCheckIp(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP"))=True)Then
get_cli_ip=System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP")
ExitFunction
ElseIfNot(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_X_FORWARDED_FOR")IsNothing)Then
Dimips()AsString=Split(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_X_FORWARDED_FOR"),",")
ForiAsInteger=0Toips.Length-1
IfCheckIp(Trim(ips(i)))=TrueThen
get_cli_ip=Trim(ips(i))
ExitFunction
EndIf
Next
EndIf
get_cli_ip=System.Web.HttpContext.Current.Request.ServerVariables("REMOTE_ADDR")
EndFunction
</script>
完全的测试页面：
复制代码代码以下:
<%@PageLanguage="VB"AutoEventWireup="false"CodeFile="Default.aspx.vb"Inherits="_Default"%>
<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<scriptrunat="server">
PublicFunctionCheckIp(ByValipAsString)AsBoolean
DimpatAsString="^{1,3}.{1,3}.{1,3}.{1,3}$"
DimregAsRegex=NewRegex(pat)
ifip=""Then
CheckIp=False
exitFunction
endif
CheckIp=reg.IsMatch(ip)
EndFunction
PublicFunctionget_cli_ip()AsString
If(Not(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP")IsNothing)AndCheckIp(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP"))=True)Then
get_cli_ip=System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP")
ExitFunction
ElseIfNot(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_X_FORWARDED_FOR")IsNothing)Then
Dimips()AsString=Split(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_X_FORWARDED_FOR"),",")
ForiAsInteger=0Toips.Length-1
IfCheckIp(Trim(ips(i)))=TrueThen
get_cli_ip=Trim(ips(i))
ExitFunction
EndIf
Next
EndIf
get_cli_ip=System.Web.HttpContext.Current.Request.ServerVariables("REMOTE_ADDR")
EndFunction
</script>
<htmlxmlns="http://www.w3.org/1999/xhtml">
<headrunat="server">
<title>UntitledPage</title>
</head>
<body>
<%
Dimclient_ipAsString=get_cli_ip()
System.Web.HttpContext.Current.Response.Write(client_ip)
%>
</body>
</html>
也不知道，我同学昨天说数据挖掘很好。 关于ASP.NET功能上，ASP.NET比微软以前的ASP(96年出现)有更强大的library,更好的稳定性。ASP.NET可以使用.NETFramework中所有组件(也就是说.NET能实现的，ASP.NET一样能实现)。 是指转换后的Servlet程序代码的行数。这给调试代码带来一定困难。所以，在排除错误时，可以采取分段排除的方法（在可能出错的代码前后输出一些字符串，用字符串是否被输出来确定代码段从哪里开始出错）。 在一个项目中谁敢保证每天几千万甚至几亿条的数据不丢失?谁敢保证应用的高可靠性？有可以借签的项目吗？ 业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高，你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 主流网站开发语言之CGI:CGI就是公共网关接口(CommonGatewayInterface)的缩写。它是最早被用来建立动态网站的后台技术。这种技术可以使用各种语言来编写后台程序，例如C，C++，Java，Pascal等。 能产生和执行动态、交互式、高效率的站占服务器的应用程序。运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写。 PHP的源代码完全公开，在OpenSource意识抬头的今天，它更是这方面的中流砥柱。不断地有新的函数库加入，以及不停地更新，使得PHP无论在UNIX或是Win32的平台上都可以有更多新的功能。它提供丰富的函数，使得在程式设计方面有着更好的资源。目前PHP的最新版本为4.1.1，它可以在Win32以及UNIX/Linux等几乎所有的平台上良好工作。PHP在4.0版后使用了全新的Zend引擎，其在最佳化之后的效率，比较传统CGI或者ASP等技术有了更好的表现。 提供基于组件、事件驱动的可编程网络表单，大大简化了编程。还可以用ASP.NET建立网络服务。
页:
[1]