Client Side Session Variables.

Using jQuery, Ajax, and WebServices to provide interop between ASP Session and Client Side

from JoeUser Forums

So been a bit isnce i posted, have been working on a lot of legacy system stuff, so nothing interesting. However I am finally back to learning new technologies and thought i would make that the subject of this blog.

 

 

Code: asp.net
  3. Imports System.Web.Services
  4. Imports System.Web.Services.Protocols
  5. Imports System.ComponentModel
  6. Imports Oracle.DataAccess.Client
  8. ' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
  10. <System.Web.Script.Services.ScriptService()> _
  11. <System.Web.Services.WebService(Namespace:="http://canfor.ca/")>_
  12. <System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
  13. <ToolboxItem(False)> _
  14. Public Class session    
  16. Inherits System.Web.Services.WebService    
  18. ''' <summary>    
  19. ''' This sets the session variable for the application and user listed below.    
  20. ''' </summary>    
  21. ''' <param name="varValue">This is the value for the session variable</param>    
  22. ''' <param name="UserID">The Users UserID</param>    
  23. ''' <param name="appid">The application ID as listed in the APPLICATION Table</param>    
  24. ''' <param name="varName">What is the session variable name</param>    
  25. ''' <remarks></remarks>    
  27. <WebMethod()> _
  28.     Public Sub SetSessionVar(ByVal varValue As String, ByVal UserID As String, ByVal appid As Integer, ByVal varName As String)        
  30. Dim conn As New OracleConnection(ConfigurationManager.ConnectionStrings("WEB_APPS_DEV").ConnectionString)       Dim comm As New OracleCommand        
  31. Dim strSQL As String        
  32. strSQL = "PKG_SESSION_UTIL.SET_SESSION_VAR"
  34.         comm.CommandText = strSQL
  35.         comm.Connection = conn
  36.         comm.CommandType = CommandType.StoredProcedure
  37.         comm.Parameters.Add(New OracleParameter("p_userid", UserID))
  38.         comm.Parameters.Add(New OracleParameter("p_applid", appid))
  39.         comm.Parameters.Add(New OracleParameter("p_sessionvar", varName))
  40.         comm.Parameters.Add(New OracleParameter("p_varvalue", varValue))
  41.         conn.Open()
  42.         comm.ExecuteNonQuery()
  43.         conn.Close()
  44.     End Sub
  45. End Class

 

Code: sql
  3. CREATE OR REPLACE PACKAGE PKG_SESSION_UTIL AS
  4.    PROCEDURE SET_SESSION_VAR (p_userid       IN VARCHAR2
  5.                              ,p_applid       IN NUMBER
  6.                              ,p_sessionvar      VARCHAR2
  7.                              ,p_varvalue        VARCHAR2);
  8. END PKG_SESSION_UTIL;
  10. CREATE OR REPLACE PACKAGE BODY PKG_SESSION_UTIL
  11. AS
  12.    PROCEDURE SET_SESSION_VAR (p_userid       IN VARCHAR2
  13.                              ,p_applid       IN NUMBER
  14.                              ,p_sessionvar      VARCHAR2
  15.                              ,p_varvalue        VARCHAR2)   AS
  16.       TYPE aarr_session IS TABLE OF WEB_SESSION%ROWTYPE;
  17.       v_session   aarr_session;
  18.    BEGIN
  19.       SELECT *
  20.         BULK COLLECT INTO v_session
  21.         FROM WEB_SESSION
  22.        WHERE USERID = p_userid AND applid = p_applid AND sessionvar = p_sessionvar;
  23.       IF v_session.COUNT > 0
  24.       THEN
  25.          UPDATE WEB_SESSION
  26.             SET varvalue = p_varvalue
  27.           WHERE USERID = p_userid AND applid = p_applid AND sessionvar = p_sessionvar;
  28.       ELSE
  29.          INSERT INTO WEB_SESSION (userid
  30.                                  ,applid
  31.                                  ,sessionvar
  32.                                  ,varvalue)
  33.               VALUES (p_userid
  34.                      ,p_applid
  35.                      ,p_sessionvar
  36.                      ,p_varvalue);
  37.       END IF;
  38.    END;
  39. END;

 

Code: html
  3. <%@ Page Language="vb" AutoEventWireup="false" CodeBehind="WoodlandsList.aspx.vb" Inherits="WIM.WoodlandsWebApps.WoodlandsList" %>
  5. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  7. <html xmlns="http://www.w3.org/1999/xhtml">
  8. <head runat="server">
  9.     <title></title>
  10.     <script src="http://ajax.aspnetcdn.com/ajax/jQuery/jquery-1.5.js" type="text/javascript"></script>
  11.     <%If False Then%>
  12.         <script src="http://ajax.aspnetcdn.com/ajax/jQuery/jquery-1.5-vsdoc.js" type="text/javascript"></script>
  13.     <%End If%>
  14.     <script type="text/javascript">
  15.         function doStuff() {
  16.             $('#OpName').slideUp(1000, function () {
  17.                 $('#drpOperations').fadeIn(1000);
  18.             });
  19.         }
  20.         $(document).ready(function () {
  21.             $('#OpName').text($('#drpOperations option:selected').text());
  22.             $('#drpOperations').hide();
  23.             $('#drpOperations').change(function () {
  24.                 var newVal = $('#drpOperations option:selected').text();
  25.                 var ajaxData = "{ 'varValue' : '" + newVal + "' , ";
  26.                 ajaxData += "'UserID' : '" + $('#hdnUser').val() + "' ,";
  27.                 ajaxData += "'appid' : '" + $('#hdnAppId').val() + "' ,";
  28.                 ajaxData += "'varName' : 'WebOperId' }";
  29.                 $.ajax({ 
  30.                    type: "POST",
  31.                     url: "/Services/session.asmx/SetSessionVar",
  32.                     data: ajaxData ,
  33.                     contentType: "application/json; charset=utf-8",
  34.                     dataType: "json"
  35.                 });
  36.                 $('#drpOperations').slideUp(1000, function () {
  37.                     $('#OpName').text(newVal);
  38.                     $('#OpName').fadeIn(1000);
  39.                 });
  40.             });
  41.         });
  42.     </script>
  43.     <style type="text/css">
  44.         #OpName
  45.         {
  46.             font-weight:bold;
  47.             color:Maroon;
  48.         }
  49.         .OpBreadCrumb
  50.         {
  51.             float:right;
  52.             font-family:Arial;
  53.             font-size:11pt;
  54.             border:1px solid red;
  55.             vertical-align:middle;
  56.             padding-top:10px;
  57.             margin:0px;
  58.         }
  59.     </style>
  60.     </head>
  61. <body>
  62.     <form id="form1" runat="server">
  63.     <div class="OpBreadCrumb">
  64.     <asp:HiddenField ID="hdnUser" runat="server" />
  65.     <asp:HiddenField ID="hdnAppId" runat="server" />
  66.         Current Operation <span id="OpName" onclick="javascript:doStuff()">Prince George</span>
  67.     <asp:DropDownList runat="server" ID="drpOperations">    </asp:DropDownList>
  68.     </div>
  69.     <asp:Button ID="poster" runat="server" Text="PostBack" />
  70.     <asp:Label ID="lblMessage" runat="server"></asp:Label>
  71.     </form>
  72. </body>
  73. </html>

 

Code: asp.net
  3. Imports Oracle.DataAccess.ClientPublic
  4. Class WoodlandsList
  5.     Inherits System.Web.UI.Page
  6.     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  7.         If Not IsPostBack Then
  8.             Dim dsOps As DataSet = CType(Cache.Get("HIPRDS_OPS"), DataSet)
  9.             Dim strSql As String
  10.             If dsOps Is Nothing Then
  11.                 strSql = " SELECT OPER_NAME, opap.APP_OPER_CODE "
  12.                 strSql &= "  FROM OPERATION op INNER JOIN OPERATION_APPL opap ON OP.OPER_ID = OPAP.OPER_ID "
  13.                 strSql &= " WHERE OPAP.APP_ID = 141 "
  14.                 Dim conn As New OracleConnection( _ ConfigurationManager.ConnectionStrings("WEB_APPS_DEV").ConnectionString)
  15.                 Dim adap As New OracleDataAdapter(strSql, conn)
  16.                 dsOps = New DataSet()                adap.Fill(dsOps)
  17.                 drpOperations.DataSource = dsOps
  18.                 drpOperations.DataTextField = "OPER_NAME"
  19.                 drpOperations.DataValueField = "APP_OPER_CODE"
  20.                 drpOperations.DataBind()
  21.                 Cache.Insert("HIPRDS_OPS", dsOps)
  22.             Else
  23.                 drpOperations.DataSource = dsOps
  24.                 drpOperations.DataTextField = "OPER_NAME"
  25.                 drpOperations.DataValueField = "APP_OPER_CODE"
  26.                 drpOperations.DataBind()
  27.             End If
  28.         End If
  29.         hdnUser.Value = Context.User.Identity.Name.Split("\")(1)        hdnAppId.Value = 141    End Sub
  30. End Class

internet
12,802 views 0 replies