Check Login ผ่าน Web Service ตัวอย่างเว็บเซอร์วิส ตรวจสอบ Username และ Password (.NET)

USE [mydatabase]
GO
/****** Object:  Table [dbo].[customer]    Script Date: 05/01/2012 16:44:29 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[member](
	[CustomerID] [varchar](4) NOT NULL,
	[Username] [varchar](50) NULL,
	[Password] [varchar](50) NULL,
	[Name] [varchar](50) NULL,
	[Email] [varchar](50) NULL,
	[CountryCode] [varchar](2) NULL,
	[Budget] [float] NULL,
	[Used] [float] NULL,
 CONSTRAINT [PK_member] PRIMARY KEY CLUSTERED 
(
	[CustomerID] ASC
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
) ON [PRIMARY]

GO
SET ANSI_PADDING OFF

INSERT INTO [member] VALUES ('C001','win', 'win001', 'Win Weerachai', '[email protected]', 'TH', 1000000, 600000);
INSERT INTO [member] VALUES ('C002','john', 'jhon002', 'John  Smith', '[email protected]', 'EN', 2000000, 800000);
INSERT INTO [member] VALUES ('C003','jame', 'jame003',  'Jame Born', '[email protected]', 'US', 3000000, 600000);
INSERT INTO [member] VALUES ('C004','chalee', 'chalee004', 'Chalee Angel', '[email protected]', 'US', 4000000, 100000);

Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
Imports System.Data
Imports System.Data.SqlClient

' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
' <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 userLogin
    Inherits System.Web.Services.WebService

    <WebMethod()> _
       Public Function CheckUserLogin(ByVal strUser As String, _
        ByVal strPassword As String) As Boolean

        Dim objConn As New SqlConnection
        Dim objCmd As New SqlCommand
        Dim dtAdapter As SqlDataAdapter

        Dim dt As New DataTable
        Dim strConnString As String
        Dim strSQL As New StringBuilder
        strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"

        objConn.ConnectionString = strConnString

        strSQL.Append(" SELECT * FROM member ")
        strSQL.Append(" WHERE [Username] = @sUsername ")
        strSQL.Append(" AND [Password] = @sPassword ")

        dtAdapter = New SqlDataAdapter(strSQL.ToString(), objConn)

        objCmd = dtAdapter.SelectCommand
        With objCmd
            .Parameters.Add("@sUsername", SqlDbType.VarChar).Value = strUser
            .Parameters.Add("@sPassword", SqlDbType.VarChar).Value = strPassword
        End With

        dtAdapter.Fill(dt)

        dtAdapter = Nothing
        objConn.Close()
        objConn = Nothing

        If dt.Rows.Count > 0 Then
            Return True
        Else
            Return False
        End If

    End Function

End Class

using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
using System.Web.Services;
using System.Web.Services.Protocols;
using System.ComponentModel;
using System.Data.SqlClient;

// To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
// <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 userLogin : System.Web.Services.WebService
{

	[WebMethod()]
	public bool CheckUserLogin(string strUser, string strPassword)
	{

		SqlConnection objConn = new SqlConnection();
		SqlCommand objCmd = new SqlCommand();
		SqlDataAdapter dtAdapter = null;

		DataTable dt = new DataTable();
		string strConnString = null;
		StringBuilder strSQL = new StringBuilder();
		strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;";

		objConn.ConnectionString = strConnString;

		strSQL.Append(" SELECT * FROM member ");
		strSQL.Append(" WHERE [Username] = @sUsername ");
		strSQL.Append(" AND [Password] = @sPassword ");

		dtAdapter = new SqlDataAdapter(strSQL.ToString(), objConn);

		objCmd = dtAdapter.SelectCommand;
		var _with1 = objCmd;
		_with1.Parameters.Add("@sUsername", SqlDbType.VarChar).Value = strUser;
		_with1.Parameters.Add("@sPassword", SqlDbType.VarChar).Value = strPassword;

		dtAdapter.Fill(dt);

		dtAdapter = null;
		objConn.Close();
		objConn = null;

		if (dt.Rows.Count > 0) {
			return true;
		} else {
			return false;
		}

	}

}

Partial Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnLogin.Click
        Dim cLogin As New ChkLogin.userLogin
        If cLogin.CheckUserLogin(Me.txtUsername.Text, Me.txtPassword.Text) = True Then
            Me.lblStatus.Text = "ชื่อ User และ Password ถูกต้อง"
            Me.lblStatus.ForeColor = Drawing.Color.Green
        Else
            Me.lblStatus.Text = "ชื่อ User และ Password ไม่ถูกต้อง"
            Me.lblStatus.ForeColor = Drawing.Color.Red
        End If
    End Sub

End Class

using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
public partial class _Default : System.Web.UI.Page
{


	protected void Page_Load(object sender, System.EventArgs e)
	{
	}

	protected void btnLogin_Click(object sender, EventArgs e)
	{
		ChkLogin.userLogin cLogin = new ChkLogin.userLogin();
		if (cLogin.CheckUserLogin(this.txtUsername.Text, this.txtPassword.Text) == true) {
			this.lblStatus.Text = "ชื่อ User และ Password ถูกต้อง";
			this.lblStatus.ForeColor = System.Drawing.Color.Green;
		} else {
			this.lblStatus.Text = "ชื่อ User และ Password ไม่ถูกต้อง";
			this.lblStatus.ForeColor = System.Drawing.Color.Red;
		}
	}

}

Public Class Form1

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        Dim cLogin As New chkLogin.userLoginSoapClient
        If cLogin.CheckUserLogin(Me.txtUsername.Text, Me.txtPassword.Text) = True Then
            MsgBox("ชื่อ User และ Password ถูกต้อง")
        Else
            MsgBox("ชื่อ User และ Password ไม่ถูกต้อง")
        End If
    End Sub

End Class

using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
public class Form1
{

	private void btnLogin_Click(System.Object sender, System.EventArgs e)
	{
		chkLogin.userLoginSoapClient cLogin = new chkLogin.userLoginSoapClient();
		if (cLogin.CheckUserLogin(this.txtUsername.Text, this.txtPassword.Text) == true) {
			Interaction.MsgBox("ชื่อ User และ Password ถูกต้อง");
		} else {
			Interaction.MsgBox("ชื่อ User และ Password ไม่ถูกต้อง");
		}
	}

}