Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 107,910

HOME > ASP > ASP Authentication > ASP User Authentication Simple Text files



Clound SSD Virtual Server

ASP User Authentication Simple Text files

ASP User Authentication Simple Text files เป็นการเรียกใช้งาน Authentication ตรวจสอบค่า User และ Password จากไฟล์ (.txt) Text files


Syntax

Response.Status = "401 Unauthorized"
Response.AddHeader "WWW-Authenticate","Basic Realm=""localhost"""


AspAuthCheck.asp

<%
'*** Function Decode Authentication Code ***'
	Function Decode(strCode)
		
		Dim UUEncode,i,OffSet,numBytes,byteGroup,groupBytes
		Dim CharCounter,thisChar,thisByte,k
		Set UUEncode = Server.CreateObject("Scripting.Dictionary")
		For i=0 To 63
			Select Case i
			Case 0 OffSet = 65
			Case 26 OffSet = 71
			Case 52 OffSet = -4
			End Select
			UUEncode(Chr(i+OffSet)) = i
		Next

		For byteGroup = 1 To Len(strCode) Step 4
			numBytes = 3
			groupBytes = 0
			For CharCounter = 0 to 3
				thisChar = Mid(strCode,byteGroup+CharCounter,1)
				If thisChar = "=" Then
				numBytes = numBytes - 1
				thisByte = 0
				Else
				thisByte = UUEncode(thisChar)
				End If
				groupBytes = 64*groupBytes+thisByte
			Next

			For k = 1 To numBytes
				Select Case k
				Case 1: thisChar = groupBytes \ 65536
				Case 2: thisChar = (groupBytes And 65535) \ 256
				Case 3: thisChar = (groupBytes And 255)
				End Select
				Decode = Decode & Chr( thisChar )
			Next
		Next
	End Function
	'*** End Function Decode Authentication Code ***'
	
	Dim strAuth,authSplit,strUser,strPassword

	Sub subAuthentication()
		Response.Clear()
		Response.Status = "401 Unauthorized"
		Response.AddHeader "WWW-Authenticate","Basic Realm=""localhost"""
		Response.end
	End Sub


	IF Trim(Request.ServerVariables("HTTP_AUTHORIZATION")) <> "" Then
		strAuth = Request.ServerVariables("HTTP_AUTHORIZATION")
		strAuth = Trim(Mid(strAuth,6))
		strAuth = Decode(strAuth)
		authSplit = Split(strAuth,":")

		strUser = authSplit(0)
		strPassword = authSplit(1)
		
		If Trim(strUser) = "" Or Trim(strPassword) = "" Then
			Call subAuthentication()
		Else

		'*** Check Text Files ***'
		Dim objFSO, objStream,strSplit
		Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
		Set objStream = objFSO.OpenTextFile(Server.MapPath("thaicreate.txt"))
		Do Until objStream.AtEndOfStream
			strSplit = Split(objStream.ReadLine,"|")
			If Trim(strUser) = Trim(strSplit(0)) And Trim(strPassword) = Trim(strSplit(1)) Then
				Session("strUser") = strUser
				Session("strPassword") = strPassword
				Exit Do
			End IF
		Loop
		objStream.Close
		Set objStream = Nothing
		Set objFSO = Nothing

		End IF
	End If
	
	If Session("strUser") = "" Or Session("strPassword") = "" Then
			Call subAuthentication()
	End IF

%>



AspAuthentication1.asp

<!--#include file="AspAuthCheck.asp"-->
<html>
<head>
<title>ThaiCreate.Com ASP & Authentication</title>
</head>
<body>
<%
	Response.write("<center><h1>Welcome "&Session("strUser")&" </h1><br><br><h2>Now Page 1</h2><center>")
%>
<center><a href="AspAuthentication2.asp">Page 2</a><center>
</body>
</html>



AspAuthentication2.asp

<!--#include file="AspAuthCheck.asp"-->
<html>
<head>
<title>ThaiCreate.Com ASP & Authentication</title>
</head>
<body>
<%
	Response.write("<center><h1>Welcome "&Session("strUser")&" </h1><br><br><h2>Now Page 2</h2><center>")
%>
<center><a href="AspAuthentication1.asp">Page 1</a><center>
</body>
</html>


คำอธิบาย
จากตัวอย่างถ้าผู้ใช้เปิดไฟล์ AspAuthentication1.asp หรือ AspAuthentication2.asp ถ้ายังไม่ผ่านการ Login โปรแกรมจะให้ทำการกรอก User/Password โดยนำข้อมูลไปเช็คใน Text files ว่ามี User และ Password หรือไม่ ถ้ามีให้ทำการบันทึกเป็นค่า Session เพื่อนำไปใช้งานต่อไป

Screenshot

ASP & Authenticate

ASP & Authenticate

ASP & Authenticate






   
Share


ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท


ลองใช้ค้นหาข้อมูล


   


Bookmark.   
       
  By : ThaiCreate.Com Team (บทความเป็นลิขสิทธิ์ของเว็บไทยครีเอทห้ามนำเผยแพร่ ณ เว็บไซต์อื่น ๆ)
  Score Rating :  
  Create/Update Date : 2008-10-30 23:45:31 / 2011-09-30 18:27:21
  Download : Download  ASP User Authentication Simple Text files
 Sponsored Links / Related

 
ASP User Authentication
Rating :

 
ASP User Authentication/Login From Database
Rating :

 
ASP User Authentication Active Directory (AD)
Rating :


ThaiCreate.Com Forum


Comunity Forum Free Web Script
Jobs Freelance Free Uploads
Free Web Hosting Free Tools

สอน PHP ผ่าน Youtube ฟรี
สอน Android การเขียนโปรแกรม Android
สอน Windows Phone การเขียนโปรแกรม Windows Phone 7 และ 8
สอน iOS การเขียนโปรแกรม iPhone, iPad
สอน Java การเขียนโปรแกรม ภาษา Java
สอน Java GUI การเขียนโปรแกรม ภาษา Java GUI
สอน JSP การเขียนโปรแกรม ภาษา Java
สอน jQuery การเขียนโปรแกรม ภาษา jQuery
สอน .Net การเขียนโปรแกรม ภาษา .Net
Free Tutorial
สอน Google Maps Api
สอน Windows Service
สอน Entity Framework
สอน Android
สอน Java เขียน Java
Java GUI Swing
สอน JSP (Web App)
iOS (iPhone,iPad)
Windows Phone
Windows Azure
Windows Store
Laravel Framework
Yii PHP Framework
สอน jQuery
สอน jQuery กับ Ajax
สอน PHP OOP (Vdo)
Ajax Tutorials
SQL Tutorials
สอน SQL (Part 2)
JavaScript Tutorial
Javascript Tips
VBScript Tutorial
VBScript Validation
Microsoft Access
MySQL Tutorials
-- Stored Procedure
MariaDB Database
SQL Server Tutorial
SQL Server 2005
SQL Server 2008
SQL Server 2012
-- Stored Procedure
Oracle Database
-- Stored Procedure
SVN (Subversion)
แนวทางการทำ SEO
ปรับแต่งเว็บให้โหลดเร็ว


สุดยอด Source Code V2.0
 

แจ้งชำระเงิน/โอนเงิน
 

Hit Link
   







Load balance : Server 02
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2019 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 , 08-9968-0655 อัตราราคา คลิกที่นี่