home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / sharpdevelop / 087cSetup.exe / data / templates / file / VBNETSessionStateWebService.xml < prev    next >
Encoding:
Extensible Markup Language  |  2002-03-20  |  1.3 KB  |  46 lines
  1. <?xml version="1.0"?>
  2. <Template Originator="Christoph Wille" Language="VBNET" Created="6/13/2001" LastModified="6/13/2001">
  3.     
  4.     <TemplateConfiguration>
  5.         <Name>Secure VB.NET Web Service (Session State)</Name>
  6.         <Icon>VB.Project.VBWebProjectIcon</Icon>
  7.         <Category>Web Services</Category>
  8.         <LanguageName>VBNET</LanguageName>
  9.         <Description>Secured Web Service using Session State</Description>
  10.     </TemplateConfiguration>
  11.     
  12.     <TemplateFiles>
  13.         <File DefaultExtension=".asmx" DefaultName="Empty">
  14.  
  15. <![CDATA[<%@ WebService Language="VB" Class="YourClassname" %>
  16. ' created on ${DATE} at ${TIME}
  17. Imports System
  18. Imports System.Web.Services
  19.  
  20. Public Class YourClassname : Inherits WebService
  21.     <WebMethod(EnableSession:=true)> Public Function Login(Username As String, Password As String) As Boolean
  22.         ' replace with database code to your liking
  23.         If ("user" = Username And "pwd" = Password) Then
  24.             Session("LoggedIn") = True
  25.             Login = True
  26.         Else
  27.             Session("LoggedIn") = False
  28.         End If
  29.     End Function
  30.  
  31.     <WebMethod(EnableSession:=true)> Public Function IsUserLoggedIn() As Boolean
  32.         If Session("LoggedIn") Is Nothing Then
  33.             IsUserLoggedIn = False
  34.         Else
  35.             IsUserLoggedIn = CBool(Session("LoggedIn"))
  36.         End If
  37.     End Function
  38. End Class
  39. ]]>
  40.         </File>
  41.     </TemplateFiles>
  42.     
  43.     <FileOptions/>
  44.     
  45. </Template>
  46.