“GlobalConst”的类型初始值设定项引发异常
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
''''如果是为响应客户端回发而加载该页,则为 true;否则为 false。
If Not Page.IsPostBack Then
If Not Session("UserInfo") Is Nothing Then
Me.Response.Redirect("Default.aspx", True)
Else
If Not isEnter(Me) Is Nothing Then
Me.Response.Redirect("Default.aspx", True)
End If
End If
End If
End Sub
当执行到这里的时候If Not isEnter(Me) Is Nothing Then 会报出错误“GlobalConst”的类型初始值设定项引发异常,其中isenter是GlobalConst(Module)的一个函数。
Function isEnter(ByVal pPage As System.Web.UI.Page, Optional ByVal Userid As String = "")
Dim oUserInfo As New UserInfo
Dim strip As String = pPage.Request.ServerVariables("REMOTE_ADDR")
Dim strjqm As String = ""
'Try
' strjqm = Net.Dns.GetHostEntry(strip).HostName
'Catch ex As Exception
' strjqm = strip
'End Try
'Try
' If strip = "127.0.0.1" Then
' strip = Net.Dns.GetHostAddresses(strjqm)(0).ToString
' End If
'Catch ex As Exception
' strip = strjqm
'End Try
Dim isDBm As New DBManager.PropOracleDbManager
isDBm.DatabaseType = DBManager.enumDatabaseType.propDatabaseOracle
isDBm.ConnectionArgs = getStrCnn()
Try
If isDBm.GetConn.State = ConnectionState.Closed Then
isDBm.GetConn()
End If
Dim isSql As String = ""
If Userid <> "" Then
isSql = "select A.YHZH,A.YHMC,A.SSDWBS,A.ISADMIN,A.DZYJ,A.LXDH,to_char(entertime,'YYYY-MM-DD HH24:MM:SS') AS entertime from a4_sys_userinfo a, a4_sys_enter b " _
& " Where a.YHZH=b.enteruserid and to_char(Sysdate,'yymmddhh24mi')-to_char(entertime,'yymmddhh24mi')<120 and isstate=1" _
& " and enterjqm='" & strip & "'and enteruserid='" & Userid & "'"
Else
isSql = "select A.YHZH,A.YHMC,A.SSDWBS,A.ISADMIN,A.DZYJ,A.LXDH ,to_char(entertime,'YYYY-MM-DD HH24:MM:SS') AS entertime from a4_sys_userinfo a, a4_sys_enter b " _
& " Where a.YHZH=b.enteruserid and to_char(Sysdate,'yymmddhh24mi')-to_char(entertime,'yymmddhh24mi')<120 and isstate=1 " _
& " and enterjqm='" & strip & "' and enterip='" & strip & "'"
End If
Dim oRd As Data.OracleClient.OracleDataReader
oRd = isDBm.ExecuteReader(isSql)
If oRd Is Nothing Then
Return Nothing
End If
If oRd.HasRows Then
While oRd.Read
If Not oRd.IsDBNull(0) Then
oUserInfo.userID = oRd.Item(0).ToString
Else
oUserInfo.userID = ""
End If
If Not oRd.IsDBNull(1) Then
oUserInfo.userName = oRd.Item(1).ToString
Else
oUserInfo.userName = ""
End If
If Not oRd.IsDBNull(2) Then
oUserInfo.userOrg = oRd.Item(2).ToString
Else
oUserInfo.userOrg = ""
End If
If Not oRd.IsDBNull(3) Then
oUserInfo.isAdmin = oRd.Item(3).ToString
Else
oUserInfo.isAdmin = 0
End If
If Not oRd.IsDBNull(4) Then
oUserInfo.userEmail = oRd.Item(4).ToString
Else
oUserInfo.userEmail = ""
End If
If Not oRd.IsDBNull(5) Then
oUserInfo.userTel = oRd.Item(5).ToString
Else
oUserInfo.userTel = ""
End If
If Not oRd.IsDBNull(6) Then
oUserInfo.EnterTime = oRd.Item(6).ToString
Else
oUserInfo.EnterTime = Now
End If
End While
pPage.Session("UserInfo") = oUserInfo
Return oUserInfo
Else
oUserInfo = Nothing
Return Nothing
End If
Catch ex As Exception
Return Nothing
Finally
isDBm.CloseConn()
isDBm = Nothing
End Try
End Function