Request = HttpContext.Current.Request 未将对象引用设置对象的实例

SungCen 2009-03-28 09:48:53

Public Shared Function GetRealIP() As String

Dim Request As HttpRequest = HttpContext.Current.Request

If (String.IsNullOrEmpty(Request.ServerVariables("HTTP_VIA")) = False) Then
GetRealIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR").ToString()
Else
GetRealIP = Request.ServerVariables("REMOTE_ADDR").ToString()
End If

GetRealIP = ""
Return GetRealIP

End Function


请各位帮忙看下,我已经引用过了Imports System.Web

可就是一运行会报“未将对象引用设置对象的实例”这个错误,是什么原因啊??

求救~~我快疯掉了。~~~
...全文
446 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
knightwayne 2009-03-31
  • 打赏
  • 举报
回复
Dim Request As New HttpContext.Current.Request
最好不要用关键字.

xue1234567890 2009-03-31
  • 打赏
  • 举报
回复
[Quote=引用楼主 SungCen 的帖子:]
VB.NET code
Public Shared Function GetRealIP() As String

Dim Request As new HttpRequest = HttpContext.Current.Request

If (String.IsNullOrEmpty(Request.ServerVariables("HTTP_VIA")) = False) Then
GetRealIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR").ToString()
Else
GetRealIP = Request.ServerVariables("REMOTE_ADDR").ToString()
End…
[/Quote]
迈克揉索芙特 2009-03-30
  • 打赏
  • 举报
回复
[Quote=引用 3 楼 net_lover 的回复:]
你是用在B/S结构的程序中的吗
[/Quote]

楼主用在winform了吧?
lqw521326 2009-03-30
  • 打赏
  • 举报
回复
没有实例化。加个new 在定义时
vwxyzh 2009-03-28
  • 打赏
  • 举报
回复
1、用了多线程了吧,HttpContext.Current在新开的线程(或者线程池的线程)里面是无法访问到的
2、或者根本不是Asp.net程序。。。
孟子E章 2009-03-28
  • 打赏
  • 举报
回复
你是用在B/S结构的程序中的吗
wuyq11 2009-03-28
  • 打赏
  • 举报
回复
Dim Request As New HttpContext.Current.Request
coodd 2009-03-28
  • 打赏
  • 举报
回复
把Shared去掉
using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using System.Web.UI.HtmlControls; using System.Text.RegularExpressions; namespace IpToEarean { public class IpGetter { #region /// /// 取得客户端真实IP。如果有代理则取第一个非内网地址 ,适用多层代理 /// public string IPAddress { get { string result = String.Empty; result = HttpContext.Current.Request.ServerVariables["HTTP_X_FORWARDED_FOR"]; if (result != null && result != String.Empty) { //可能有代理 if (result.IndexOf(".") == -1) //没有“.”肯定是非IPv4格式 result = null; else { if (result.IndexOf(",") != -1) { //有“,”,估计多个代理。取第一个不是内网的IP。 result = result.Replace(" ", "").Replace("'", ""); string[] temparyip = result.Split(",;".ToCharArray()); for (int i = 0; i < temparyip.Length; i++) { if (this.IsIPAddress(temparyip[i]) && temparyip[i].Substring(0, 3) != "10." && temparyip[i].Substring(0, 7) != "192.168" && temparyip[i].Substring(0, 7) != "172.16.") { return temparyip[i]; //找到不是内网的地址 } } } else if (this.IsIPAddress(result)) //代理即是IP格式 return result; else result = null; //代理中的内容 非IP,取IP } } string IpAddress = (HttpContext.Current.Request.ServerVariables["HTTP_X_FORWARDED_FOR"] != null && HttpContext.Current.Request.ServerVariables["HTTP_X_FORWARDED_FOR"] != String.Empty) ? HttpContext.Current.Request.ServerVariables["HTTP_X_FORWARDED_FOR"] : HttpContext.Current.Request.ServerVariables["REMOTE_ADDR"]; if (null == result || result == String.Empty) result = HttpContext.Current.Request.ServerVariables["REMOTE_ADDR"]; if (result == null || result == String.Empty) result = HttpContext.Current.Request.UserHostAddress; return result; } } #endregion /// /// 取得客户端真实IP。如果有代理则取第一个非内网地址 ,适用多层代理 /// /// public string GetClientIp() { string result = String.Empty; result = HttpContext.Current.Request.ServerVariables["HTTP_X_FORWARDED_FOR"]; if (result != null && result != String.Empty) { //可能有代理 if (result.IndexOf(".") == -1) //没有“.”肯定是非IPv4格式 result = null; else { if (result.IndexOf(",") != -1) { //有“,”,估计多个代理。取第一个不是内网的IP。 result = result.Replace(" ", "").Replace("'", ""); string[] temparyip = result.Split(",;".ToCharArray()); for (int i = 0; i < temparyip.Length; i++) { if (this.IsIPAddress(temparyip[i]) && temparyip[i].Substring(0, 3) != "10." && temparyip[i].Substring(0, 7) != "192.168" && temparyip[i].Substring(0, 7) != "172.16.") { return temparyip[i]; //找到不是内网的地址 } } } else if (this.IsIPAddress(result)) //代理即是IP格式 return result; else result = null; //代理中的内容 非IP,取IP } } string IpAddress = (HttpContext.Current.Request.ServerVariables["HTTP_X_FORWARDED_FOR"] != null && HttpContext.Current.Request.ServerVariables["HTTP_X_FORWARDED_FOR"] != String.Empty) ? HttpContext.Current.Request.ServerVariables["HTTP_X_FORWARDED_FOR"] : HttpContext.Current.Request.ServerVariables["REMOTE_ADDR"]; if (null == result || result == String.Empty) result = HttpContext.Current.Request.ServerVariables["REMOTE_ADDR"]; if (result == null || result == String.Empty) result = HttpContext.Current.Request.UserHostAddress; return result; } /// /// 判断是否是IP地址格式 0.0.0.0 /// /// 待判断的IP地址 /// true or false public bool IsIPAddress(string ip) { if (ip == null || ip == string.Empty || ip.Length < 7 || ip.Length > 15) return false; string regformat = @"^\d{1,3}[\.]\d{1,3}[\.]\d{1,3}[\.]\d{1,3}$"; Regex regex = new Regex(regformat, RegexOptions.IgnoreCase); return regex.IsMatch(ip); } } }

16,554

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧