Tugas Pembuatan Program Error
Kali ini saya mencoba membuat program username login pada website.
Langkah-langkah yang saya lakukan antara lain:
- Membuat scenario username login
Skenarionya , pertama kali semua orang bisa mengakses halaman web di bawah ini
Selanjutnya semua link di halaman di atas dapat diakses semua orang kecuali link “ Gambar-Gambar”, yang hanya ditujukan untuk member yang sudah login.
Kalau orang yang belum login nekat masuk link “Gambar-gambar”, akan keluar peringatan seperti ini:
Oleh karena itu buat yang mau melihat gambarnya harus login dahulu dengan cara memasukkan username dan password seperti gambar di bawah ini
Setelah itu, bagi yang sudah login dapat melihat gambar atau info dimaksud.
- Menyiapkan Aplikasi Username Login
Untuk membuat aplikasi ini kita membutuhkan script – script sebagai berikut :
- Index.asp untuk halaman depan web
- Login.asp untuk tempat memasukkan username dan password
- Pass.asp untuk mengolah username dan password yang dimasukkan pengunjung
- Gambar.asp yang merupakan halaman yang hanya bisa diakses oleh yang sudah login saja.
1. Index.asp
<em>Ampersands & angle brackets need to be encoded.</em>
1. Index.asp
<html>
<body>
<p align="center">
<font face="arial" size=6>
<b>Mahluk-Mahluk Paling Menyenangkan! </b>
</font>
<p align="center">
<font face="arial" size=4>
Coba klik aja link di bawah ini kalo mau tau
</font>
<br>
<br>
<a href="about.asp">Tentang Kami
</a>
<br>
<br>
<a href="artikel.asp">Artikel-Artikel
</a>
<br>
<br>
<a href="gambar.asp">Gambar-Gambar
</a>
<br>
<br>
<font face="arial" size=2>
<b>Khusus Member! </b>
</font>
<br>
<br>
<% If IsEmpty(Session("username")) = TRUE Then %>
<a href="login.asp">Login
</a>
<% End If %>
</body>
</html>
2. Login.asp
<html>
<body>
<h3>
Masukkan Username dan Passwordnya bos!
</h3>
<p>
<form action="pass.asp"method="post">
Username : <input type="text" name="namauser" size="20">
<br>
Password : <input type="password" name="katasandi" size="20">
<br>
<input type="submit">
</form>
</body>
</html>
3. Pass.asp
<html>
<% Dim Dataku, Koneksi, SQLku %>
<% Set Koneksi = Server.CreateObject("ADODB.Connection") %>
<% Koneksi.Open "DSN=errorpage" %>
<% Set Dataku = Server.CreateObject("ADODB.Recordset") %>
<% Dataku.Open "SELECT* FROM Pass WHERE username= '" &
request.form("namauser") & "' AND " & "password= '" &
Request.form("katasandi") & "'", Koneksi %>
<% If Dataku.EOF Then %>
<h3> Username Atau Password Anda Salah!
</h3>
<br>
<a href="login.asp">Klik link ini untuk Login Ulang!
</a>
<% Else %>
<% Session("username") = Dataku ("username") %>
<% Response.Redirect "index.asp" %>
<% End if %>
<% Dataku.Close %>
</html>
,
</body>
4. Gambar.asp
<html>
<body>
<% If IsEmpty(Session("username")) = TRUE Then %>
<h3> Halaman Ini Khusus Untuk Member!</h3>
<p>
<h4> Anda Belum Login? Loginlah
<a href="login.asp">disini</a>
</h4>
<% Else %>
<h3> Inilah Gambar Rahasia Kami!
</h3>
<p align="center">
<img src="4r1.jpg">
</img>
<% End If %>
</body>
</html>
- Membuat Tabel Database Username Login
Tabelnya dibuat pada Microsoft access dengan disain sebagai berikut:
- Membuat Tabel Database Username Login
Tabelnya dibuat pada Microsoft access dengan disain sebagai berikut:
Selanjutnya database tersebut akan terisi manakala user melakukan login.
Seharusnya setelah langkah-langkah di atas dilakukan, untuk user yang sudah login dapat mengakses link “Gambar-Gambar”, tetapi yang terjadi bagi yang sudah login adalah tetap mendapatkan error seperti di bawah ini :
Tidak ada komentar:
Posting Komentar