trus di lembar kosong dan isi rumus ini
1,,,,,,
:: LOGIN ::
ID User (form)
Password(form)
<%
IDUser = Request.Form("TextUser")
Password = Request.Form("TextPassword")
Set Hubung = Server.CreateObject("ADODB.Connection")
Hubung.Open "Koneksi"
sql = "select IDUser,Password from TUser where IDUser = '" & IDUser & "' and Password = '" & Password &"'"
Set Hasil = Hubung.Execute(sql)
dim Ketemu
Ketemu = 0
Do Until Hasil.EOF
Ketemu = 1
Hasil.MoveNext
Loop
if (Ketemu = 1) then
Response.Redirect "admin.asp"
else
Response.write("Maaf, nama user atau password anda salah,silakan login kembali...")
end if
%>
2,,,,,,,,,buat data base alamatnya harus sama dengan ukuranya dgn yg ada di form /semisal 20
trus buat menu admin di sini di linkkan yang akan di panggil semisal create user ke form create user.asp dan strya contoh form admin
:: Menu Administrasi
::Create User link ke admin.asp
::Manajemen User link ke manajemenuser.asp
::Transaksi Peminjaman ke
::Logout ke login .asp
buat form create user
contoh
:: Form Daftar User Account ::
ID User
NamaUser
min,staff dll
Password
3,,,,,,,Level di sini di isi status ,mahasiswa,admin,staff dll caranya klik kanan form fild propertis add .yg ata yes
trus buat validasi create user.asp rumus"
<%
IDUser = Request.Form("TextIDUser")
NamaUser = Request.Form("TextNamaUser")
Password = Request.Form("TextPassword")
Status = Request.Form("CmbStatus")
sql = "INSERT INTO TUser values ('" & IDUser & "','" & NamaUser & "','" & Password & "','" & Status & "')"
Set Hubung = Server.CreateObject("ADODB.Connection")
hubung.Open "Koneksi"
Set Hasil = Hubung.Execute(sql)
Response.redirect "ManajemenUser.asp"
%>
selanjutnya buat manajemen user caranya buat form trus di moddifikasi
:: DAFTAR USER ::
ID User Nama User Password Status Edit Delete
[edit] [hapus]
[::menu admin::] menu ini di linkkan ke admin
1A,,,,,,,,,,,,,htmlnya edit di tulis paling atas
<%
IDUsernya = Request.QueryString("IDnya")
sql = "select * from Tuser where IDuser = '" & IDUsernya & "'"
Set Hubung = Server.CreateObject("ADODB.Connection")
hubung.Open "Koneksi"
Set Hasil = Hubung.Execute(sql)
%>
2A,,,,,,,,,,,,trus post action di kosongkan dan selanjutnya tulis rumus ini
3A,,,,,,,,,,,,, pada bagian "><
"<% Response.Write(Hasil("NamaUser"))%> ">
"<% Response.Write(Hasil("Password"))%>
4A,,,,,,,,,,,,,trus bagian bawah sendiri tulis atau (langsung di tulis di formnya)
<%
if Request.Form("Edit")<>"" then
IDUser = Request.Form("TextIDUser")
NamaUser = Request.Form("TextNamaUser")
Password = Request.Form("TextPassword")
Status = Request.Form("CmbStatus")
sql = "update TUser set IDUser = '" & IDUser & "',NamaUser = '" & NamaUser & "',"
sql=sql + "Password='" & Password & "',Status = '" & Status & "' "
sql = sql + "where IDUser ='" & IDUsernya & "'"
Set Hasil = Hubung.Execute(sql)
response.redirect("ManajemenUser.asp")
end if
%>
5,,,,,,,,, buat yang hapus rumus
<%
IDUser = request.QueryString("IDnya")
Set Hubung = Server.CreateObject("ADODB.Connection")
Hubung.Open "Koneksi"
sql = "Delete from TUser where IDUser = '" & IDUser & "'"
Set Hasil = Hubung.Execute(sql)
response.Redirect "ManajemenUser.asp"
%>
6,,,,,,,,,
YANG TERBARU
buat form pinjam contoh
:: FORM TRANSAKSI PEMINJAMAN ::
ID peminjam form
ID buku form jangan lupa nama dalam form
menu admin di link ke admin di ammin di tambah form pinjam.asp
seperti biasa di post action di isi validasi pinjam
rumus validasinya
<%
TglSekarang = date()
IDPeminjam = request.form("IDPeminjam")
IDBuku1 = request.form("IDBuku1")
sql = "INSERT INTO TTransaksi(IDUser,IDBuku,TglPinjam) values ('" & IDPeminjam & "','" & IDBuku1 & "',#" & TglSekarang & "#)"
sql2 = "Update TBuku set Banyak=banyak-1 where IDBuku = '" & IDBuku1 & "'"
Set Hubung = Server.CreateObject("ADODB.Connection")
hubung.Open "Koneksi"
Set Hasil = Hubung.Execute(sql)
Set Hasil = Hubung.Execute(sql2)
response.redirect "TampilBuku.asp"
%>
12,,,,,,,,,,,,,lalu buat tampil buku caranya sama dengan daftaruser tinggal ganti
<%
Hasil.MoveNext
Loop
Hubung.close
%>
21,,,,,,,,,,,,hapus buku rumus
<%
IDBuku = request.QueryString("IDnya")
Set Hubung = Server.CreateObject("ADODB.Connection")
Hubung.Open "Koneksi"
sql = "Delete from TBuku where IDBuku = '" & IDBuku & "'"
Set Hasil = Hubung.Execute(sql)
response.Redirect "TampilBuku.asp"
%>
SEMOGA SUKKSES DI UAS AMIIIIIN?
