功能不适用于网络服务

Question

这个 sn-p 在我的业务逻辑层类文件中：

Public Shared Function getAccIDFromSocialAuthSession() As Object
        Dim db As SqlDatabase = Connection.connection
        Dim accID As Integer
        If SocialAuthUser.IsLoggedIn Then
            Using cmd As SqlCommand = db.GetSqlStringCommand("SELECT AccountID FROM UserAccounts WHERE FBID=@fbID")
                db.AddInParameter(cmd, "fbID", SqlDbType.VarChar, SocialAuthUser.GetCurrentUser.GetProfile.ID)
                accID = db.ExecuteScalar(cmd)
            End Using
        End If

        Return accID
    End Function

我正在使用SocialAuth.Net。 SocialAuth.NET 将所有内容存储在会话中。例如，要获取我们调用 SocialAuthUser.GetCurrentUser.GetProfile.ID 的 Facebook 用户 ID，因为它是基于会话的，所以当我尝试调用 @987654325 时，我收到此错误消息 "Object Reference Not Set to an instance of an object" @ 来自 web 服务 (asmx.vb) 文件。我这样称呼它(ClassName.FunctionName-->BLL.getAccIDFromSocialAuthSession)

当我从aspx.vb 页面调用相同的函数时，它可以正常工作，但当我从asmx.vb 页面调用它时就不行了。

由于我不知道会话变量名称，我不能使用System.Web.HttpContext.Current.Session("NameHere")

有什么办法吗？？

Answer 1

这是一些工作代码的开始：

Imports System.Web.Services
Imports System.ComponentModel

<System.Web.Script.Services.ScriptService()> _
<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _
<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class LightboxService
    Inherits WebService

    <WebMethod(EnableSession:=True)> _
    Public Function AddToLightbox(ByVal filename As String) As String
        Dim user As String = CStr(Session("username"))

'...etc.

Answer 2

听起来你需要在你的服务类上实现Implements IRequiresSessionState。

没有这个，再多的调用HttpContext.Current.Session("NameHere") 都行不通。

示例：（伪代码）

    <WebService(Namespace:="http://tempuri.org/")> _
    <WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> 
    <System.Web.Script.Services.ScriptService()>
    Public Class MyService
            Inherits System.Web.Services.WebService
            Implements IRequiresSessionState '' <-- This is the part you need

            '' Code in here
    End Class

更新

我无法澄清，尽管它可能不适用于您的网络服务。 Web 服务是无状态的。这意味着它独立于您的实际网站运行。因此，无论何时 SocialAuthUser 已被实例化，网络服务器都不会对此一无所知。它可以运行它自己的独立代码。

另一个更新

在这种情况下，不要使用网络服务，而是尝试在您的 .aspx 页面代码隐藏上使用网络方法。

所以是这样的：

     <ScriptMethod(ResponseFormat:=ResponseFormat.Json)> <Services.WebMethod(EnableSession:=True)> _
     Public Shared Function getAccIDFromSocialAuthSession() As Object
          Dim db As SqlDatabase = Connection.connection
          Dim accID As Integer
          If SocialAuthUser.IsLoggedIn Then
              Using cmd As SqlCommand = db.GetSqlStringCommand("SELECT AccountID FROM UserAccounts WHERE FBID=@fbID")
                  db.AddInParameter(cmd, "fbID", SqlDbType.VarChar, SocialAuthUser.GetCurrentUser.GetProfile.ID)
                  accID = db.ExecuteScalar(cmd)
              End Using
          End If

        Return accID
    End Function