Script Log Off di ASP

Dalam membuat sebuah program [terutama berbasis web] biasanya kita membuat batasan akses kesuatu data yang diberi password tertentu. Nah skrip berikut adalah contoh untuk membuat password yang ada menjadi clear atau expired dengan bahasa Classic ASP.

Enjoy …

Contoh Skrip Logoff

<%
‘Contoh proses logoff dan simpan kedatabase

Dim adoLog
Dim rsLog
Dim ConLog
Dim LacakKukis
LacakKukis = Request.Cookies(“kapanmasoknyo”)

Set adoLog = Server.CreateObject(“ADODB.Connection”)
adoLog.Open “DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=armansyah;DBQ=” & Server.MapPath(“../…/Database/mdb/masuklahoiy.mdb”)
Set rsLog = Server.CreateObject(“ADODB.Recordset”)

Dim SqlLog
SqlLog = “Select * from logoff Where waktuloginid Like ‘%” & LacakKukis & “%’ ”

rsLog.CursorType = 2
rsLog.LockType = 3
rsLog.Open SqlLog, adoLog

Dim Bla2
Dim DatNow2
DatNow2 = now()
Bla2 = Server.HTMLEncode(FormatDateTime(datNow2,3))

Dim TanggalSekarangId
TanggalSekarangId = Server.HTMLEncode(FormatTanggal(now()))

Dim TanggalIndonesia
TanggalIndonesia = TanggalSekarangId + ” ” + Bla2

rsLog.Fields(“waktulogoffid”) = TanggalIndonesia
rsLog.Fields(“waktulogoff”) = now()

rsLog.Update
rsLog.Close
Set rsLog = Nothing
Set adoLog = Nothing

‘——– akhir proses penyimpanan data login

If Session(“iyodakye”) = True then
Session.Contents.Remove(“iyodakye”)

Else

If Session(“iyodakye”) = False or IsNull(Session(“iyodakye”)) = True then

End If
End If
%>

Categories: Classic ASP | Tinggalkan komentar

Navigasi pos

Tinggalkan Balasan

Please log in using one of these methods to post your comment:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Buat situs web atau blog gratis di WordPress.com.

%d blogger menyukai ini: