Support forums » Products » Cute Chat and Cute Web Messeng... » Re: Global.asax

Re: Global.asax

  •  06-25-2009, 5:29 AM

    Re: Global.asax

    Reply Quote
    Finally,
    I think I got it
     
    1. <%@ Application Codebehind="Global.asax.vb" Inherits="SiennEngine.Global_asax" Language="vb" %>   
    2. <%@ Import Namespace="System" %>   
    3. <%@ Import Namespace="System.Collections" %>   
    4. <%@ Import Namespace="System.ComponentModel" %>   
    5. <%@ Import Namespace="System.Web" %>   
    6. <%@ Import Namespace="System.Web.SessionState" %>   
    7. <%@ Import Namespace="System.Security.Principal" %>   
    8. <%@ Import Namespace="System.Data" %>   
    9. <%@ Import Namespace="System.Data.SqlClient" %>   
    10.   
    11. <%@ Import Namespace="CuteChat" %>   
    12.   
    13. <script runat="server" Language="vb">   
    14.        
    15.     Public Overloads Overrides Sub Init()   
    16.         MyBase.Init()   
    17.        
    18.         'SyncLock GetType(CuteChat.ChatSystem)   
    19.         If Not CuteChat.ChatSystem.HasStarted Then  
    20.             CuteChat.ChatProvider.Instance = New SiennChatProvider()   
    21.             CuteChat.ChatSystem.Start(New CuteChat.AppSystem())   
    22.         End If  
    23.         'End SyncLock   
    24.     End Sub  
    25.        
    26.     Public Class SiennChatProvider   
    27.         Inherits CuteChat.ChatProvider   
    28.         Dim pbw As New SiennEngine.PBW   
    29.         Dim Constring As String = pbw.get_constring()   
    30.         Dim Cid As String = pbw.get_cid_currentdomain()   
    31.      
    32.         Dim prefix As String = Cid & "U_"  
    33.         Dim userId As String = ""  
    34.            
    35.         Public Overloads Overrides Function GetConnectionString() As String  
    36.             Dim Retstring As String = Constring   
    37.             Return Retstring   
    38.         End Function  
    39.         'Public Overloads Overrides Function FindUserLoginName(ByVal nickName As String) As String   
    40.         '    Try   
    41.         '        userId = HttpContext.Current.Request.Cookies("UserId").Value   
    42.         '    Catch   
    43.         '    End Try   
    44.         'Dim Retstring As String = ""   
    45.         'Dim Query As String = "Select UserName from " & prefix & "users where Id = " & userId   
    46.         'Dim Con As New SqlConnection(Constring)   
    47.         '    
    48.         '       Dim Com As New SqlCommand(Query, Con)   
    49.         '          Try   
    50.         '             Con.Open()   
    51.         '    Dim Reader As SqlDataReader = Com.ExecuteReader()   
    52.         '         While Reader.Read()   
    53.         '              Retstring = Reader(0)   
    54.         '         End While   
    55.         '      Catch   
    56.         '     End Try   
    57.         '    Con.Close()   
    58.         '   Return Retstring   
    59.         'End Function   
    60.         Public Overloads Overrides Function GetLogonIdentity() As AppChatIdentity   
    61.             Dim user As System.Web.Security.MembershipUser = System.Web.Security.Membership.GetUser()   
    62.        
    63.             If user IsNot Nothing AndAlso user.IsApproved Then  
    64.                 Return New AppChatIdentity(user.UserName, False, ToUserId(user.UserName), HttpContext.Current.Request.UserHostAddress)   
    65.             End If  
    66.        
    67.             Return Nothing  
    68.         End Function  
    69.         'Public Overloads Overrides Function GetLogonIdentity() As AppChatIdentity   
    70.         'need to find the information of current user. Return null if user is anonymous.   
    71.         '           Try   
    72.         '               userId = HttpContext.Current.Request.Cookies("UserId").Value   
    73.         '           Catch   
    74.         '           End Try   
    75.         '      
    76.         '           Dim loginname As String = userId.ToString   
    77.         '           Dim Username As String = ""   
    78.         '           Dim nickname As String = ""   
    79.         '           Dim Query As String = "Select UserName, NickName from " & prefix & "users where Id = " & userId   
    80.         '           Dim Con As New SqlConnection(Constring)   
    81.         '    
    82.         '  Dim Com As New SqlCommand(Query, Con)   
    83.         '  Try   
    84.         '      Con.Open()   
    85.         '      Dim Reader As SqlDataReader = Com.ExecuteReader()   
    86.         '      While Reader.Read()   
    87.         '          Username = Reader(0)   
    88.         '          nickname = Reader(1)   
    89.         '          If nickname Is Nothing Or nickname = "" Then nickname = Username   
    90.         '      End While   
    91.         '  Catch   
    92.         '      nickname = Username   
    93.         '   End Try   
    94.         '    Con.Close()   
    95.         '    Return New AppChatIdentity(nickname, False, ToUserId(loginname), HttpContext.Current.Request.UserHostAddress)   
    96.         'End Function   
    97.         Public Overloads Overrides Function FindUserLoginName(ByVal nickName As String) As String  
    98.             Dim user As System.Web.Security.MembershipUser = System.Web.Security.Membership.GetUser(nickName, False)   
    99.             If user IsNot Nothing AndAlso user.IsApproved Then  
    100.                 Return user.UserName   
    101.             End If  
    102.             Return Nothing  
    103.         End Function  
    104.         Public Overloads Overrides Function GetUserInfo(ByVal loginName As String, ByRef nickName As String, ByRef isAdmin As Boolean) As Boolean  
    105.             Dim user As System.Web.Security.MembershipUser = System.Web.Security.Membership.GetUser(loginName, False)   
    106.             If user IsNot Nothing AndAlso user.IsApproved Then  
    107.                 nickName = user.UserName   
    108.                 isAdmin = False  
    109.                 Return True  
    110.             End If  
    111.             Return False  
    112.         End Function  
    113.         'Public Overloads Overrides Function GetUserInfo(ByVal loginName As String, ByRef nickName As String, ByRef isAdmin As Boolean) As Boolean   
    114.         ' , if the loginName is invalid.   
    115.         'otherwise set the nickName and isAdmin , and return ture   
    116.         'Dim userType As Integer = 0   
    117.         'Dim UserName As String = ""   
    118.   
    119.         'Dim Query As String = "Select NickName,UserType,UserName from " & prefix & "users where Id='" & LoginName & "'"   
    120.         'Dim Con As New SqlConnection(Constring)   
    121.         '   
    122.         '      Dim Com As New SqlCommand(Query, Con)   
    123.         '         Try   
    124.         '            Con.Open()   
    125.         '   Dim Reader As SqlDataReader = Com.ExecuteReader()   
    126.         '          While Reader.Read()   
    127.         '             userType = Reader(1)   
    128.         '            nickName = Reader(0)   
    129.         '           UserName = Reader(2)   
    130.         '   
    131.         '             If nickName Is Nothing Or nickName = "" Then nickName = UserName   
    132.         '        End While   
    133.         '   Catch   
    134.         '      nickName = UserName   
    135.         ' End Try   
    136.         'Con.Close()   
    137.         '   If userType = 1 Then   
    138.         '       isAdmin = True   
    139.         '   Else   
    140.         '       isAdmin = False   
    141.         '   End If   
    142.         '  Return True   
    143.         'End Function   
    144.         Public Overloads Overrides Function ValidateUser(ByVal loginName As String, ByVal password As String) As Boolean  
    145.             'check the username/password .    
    146.             'if valid , set the cookie.   
    147.             System.Web.Security.FormsAuthentication.SetAuthCookie(loginName, False, HttpRuntime.AppDomainAppVirtualPath)   
    148.       
    149.             Return (True)   
    150.         End Function  
    151.     End Class  
    152.        
    153. </script>  
    now I have to figure out how to add contact automaticly
View Complete Thread