Secara umum, masalah utama yang harus diselesaikan saat menulis program database tidak lebih dari sekedar menambah, menghapus, memodifikasi dan membuat query. Jenis pemrograman ini sangat sederhana. Selanjutnya saya akan memanfaatkan waktu luang untuk membuat fungsi yang berisi fungsi menambah dan menghapus. Arsitektur eksperimental dapat menggunakan database ACCESS server IIS.5WEB. Sebenarnya saya tidak perlu panjang lebar mengenai hal ini, karena semua orang pasti mengetahuinya. Saya hanya akan memposting fungsinya secara langsung. Semua orang dapat menggunakannya hanya dengan sedikit modifikasi.
Copy kode kodenya sebagai berikut:
<%
subAdminEdit()
redupkan Aksi,rsCheckAdd,rs,sql
Tindakan=permintaan.QueryString(Aksi)
jika Action=SaveEdit lalu 'Simpan informasi administrator yang telah diedit
set rs = server.createobject(adodb.recordset)
jika Hasil=Tambah lalu 'Buat administrator situs web
setel rsCheckAdd = conn.execute(pilih AdminName dari Ameav_Admin di mana AdminName=' & trim(Request.Form(AdminName)) & ')
jika tidak (rsCheckAdd.bof dan rsCheckAdd.eof) maka 'Tentukan apakah nama administrator ini ada
respon.tulis <bahasa skrip=javascript><!--
alert(' & trim(Request.Form(AdminName)) & Administrator sudah ada, silakan coba lagi dengan nama login yang berbeda!');history.back(-1);
// --></skrip>
respon.akhir
berakhir jika
sql=pilih * dari Ameav_Admin
rs.open sql,sambungan,1,3
rs.tambahkanbaru
jika len(trim(Request.Form(AdminName)))<3 atau len(trim(Request.Form(Password)))>10 maka
respon.tulis <bahasa skrip=javascript><!--
alert('Nama login administrator diperlukan dan jumlah karakter harus 3-10 karakter!');history.back(-1);
// --></skrip>
respon.akhir
berakhir jika
jika len(trim(Request.Form(Password)))<6 atau len(trim(Request.Form(Password)))>16 maka
respon.tulis <bahasa skrip=javascript><!--
alert('Password administrator diperlukan dan jumlah karakter harus 6-16 karakter!');history.back(-1);
// --></skrip>
respon.akhir
berakhir jika
jika Request.Form(Password)<>Request.Form(vPassword) lalu
respon.tulis <bahasa skrip=javascript><!--
alert('Password yang dimasukkan dua kali berbeda!');history.back(-1);
// --></skrip>
respon.akhir
berakhir jika
rs(NamaAdmin)=trim(Permintaan.Formulir(NamaAdmin))
jika Request.Form(Working)=1 maka
rs(Bekerja)=Permintaan.Formulir(Bekerja)
kalau tidak
rs(Bekerja)=0
berakhir jika
rs(Kata Sandi)=Md5(Formulir Permintaan(Kata Sandi))
rs(Nama Pengguna)=trim(Permintaan.Formulir(Nama Pengguna))
rs(AdminPurview)=Permintaan.Form(Purview111) & Permintaan.Form(Purview112) & Permintaan.Form(Purview113) &_
Permintaan.Formulir(Purview114) & Permintaan.Formulir(Purview115) & Permintaan.Formulir(Purview116) &_
Permintaan.Formulir(Purview117) & Permintaan.Formulir(Purview118) & Permintaan.Formulir(Purview119) &_
Permintaan.Formulir(Purview120) & Permintaan.Formulir(Purview121) & Permintaan.Formulir(Purview122) &_
Permintaan.Formulir(Purview123) & Permintaan.Formulir(Purview124) & Permintaan.Formulir(Purview125) &_
Permintaan.Formulir(Purview126) & Permintaan.Formulir(Purview127) & Permintaan.Formulir(Purview128) &_
Permintaan.Formulir(Purview129) & Permintaan.Formulir(Purview130) & Permintaan.Formulir(Purview131) &_
Permintaan.Formulir(Purview132) & Permintaan.Formulir(Purview133) & Permintaan.Formulir(Purview134) &_
Permintaan.Formulir(Purview135) & Permintaan.Formulir(Purview136) & Permintaan.Formulir(Purview137) &_
Permintaan.Formulir(Purview138) & Permintaan.Formulir(Purview139) & Permintaan.Formulir(Purview140) &_
Permintaan.Formulir(Purview141) & Permintaan.Formulir(Purview142) & Permintaan.Formulir(Purview143) &_
Permintaan.Formulir(Purview144) & Permintaan.Formulir(Purview145) & Permintaan.Formulir(Purview146) &_
Permintaan.Formulir(Purview147) & Permintaan.Formulir(Purview148) & Permintaan.Formulir(Purview149) &_
Permintaan.Formulir(Purview150) & Permintaan.Formulir(Purview151) & Permintaan.Formulir(Purview152) &_
Permintaan.Formulir (Purview153)
rs(Jelaskan)=trim(Permintaan.Formulir(Jelaskan))
rs(Waktu Tambahan)=sekarang()
berakhir jika
jika Hasil=Ubah lalu 'Ubah administrator situs web
sql=pilih * dari Ameav_Admin di mana ID=&ID
rs.open sql,sambungan,1,3
rs(NamaAdmin)=trim(Permintaan.Formulir(NamaAdmin))
jika Request.Form(Working)=1 maka
rs(Bekerja)=Permintaan.Formulir(Bekerja)
kalau tidak
rs(Bekerja)=0
berakhir jika
jika trim(Request.Form(Password))<> lalu
jika len(trim(Request.Form(Password)))<6 atau len(trim(Request.Form(Password)))>20 maka
respon.tulis <bahasa skrip=javascript><!--
alert('Kata sandi administrator diperlukan dan harus terdiri dari 6-20 karakter!');
// --></skrip>
respon.akhir
berakhir jika
jika Request.Form(Password)<>Request.Form(vPassword) lalu
respon.tulis <bahasa skrip=javascript><!--
alert('Password yang dimasukkan dua kali berbeda!');history.back(-1);
// --></skrip>
respon.akhir
berakhir jika
rs(Kata Sandi)=Md5(Formulir Permintaan(Kata Sandi))
berakhir jika
rs(Nama Pengguna)=trim(Permintaan.Formulir(Nama Pengguna))
rs(AdminPurview)=Permintaan.Form(Purview111) & Permintaan.Form(Purview112) & Permintaan.Form(Purview113) &_
Permintaan.Formulir(Purview114) & Permintaan.Formulir(Purview115) & Permintaan.Formulir(Purview116) &_
Permintaan.Formulir(Purview117) & Permintaan.Formulir(Purview118) & Permintaan.Formulir(Purview119) &_
Permintaan.Formulir(Purview120) & Permintaan.Formulir(Purview121) & Permintaan.Formulir(Purview122) &_
Permintaan.Formulir(Purview123) & Permintaan.Formulir(Purview124) & Permintaan.Formulir(Purview125) &_
Permintaan.Formulir(Purview126) & Permintaan.Formulir(Purview127) & Permintaan.Formulir(Purview128) &_
Permintaan.Formulir(Purview129) & Permintaan.Formulir(Purview130) & Permintaan.Formulir(Purview131) &_
Permintaan.Formulir(Purview132) & Permintaan.Formulir(Purview133) & Permintaan.Formulir(Purview134) &_
Permintaan.Formulir(Purview135) & Permintaan.Formulir(Purview136) & Permintaan.Formulir(Purview137) &_
Permintaan.Formulir(Purview138) & Permintaan.Formulir(Purview139) & Permintaan.Formulir(Purview140) &_
Permintaan.Formulir(Purview141) & Permintaan.Formulir(Purview142) & Permintaan.Formulir(Purview143) &_
Permintaan.Formulir(Purview144) & Permintaan.Formulir(Purview145) & Permintaan.Formulir(Purview146) &_
Permintaan.Formulir(Purview147) & Permintaan.Formulir(Purview148) & Permintaan.Formulir(Purview149) &_
Permintaan.Formulir(Purview150) & Permintaan.Formulir(Purview151) & Permintaan.Formulir(Purview152) &_
Permintaan.Formulir (Purview153)
rs(Jelaskan)=trim(Permintaan.Formulir(Jelaskan))
berakhir jika
rs.update
rs.tutup
atur rs=tidak ada
respon.tulis <bahasa skrip=javascript><!--
alert('Situs web berhasil diedit!'); changeAdminFlag('Administrator situs web'); location.replace('AdminList.asp');
// --></skrip>
lain 'Ekstrak informasi administrator
jika Hasil=Ubah maka
set rs = server.createobject(adodb.recordset)
sql=pilih * dari Ameav_Admin di mana ID=& ID
rs.open sql,sambungan,1,1
NamaAdmin=rs(NamaAdmin)
Bekerja=rs(Bekerja)
Nama Pengguna=rs(Nama Pengguna)
Purview=rs(AdminPurview)
Jelaskan=rs(Jelaskan)
rs.tutup
atur rs=tidak ada
berakhir jika
berakhir jika
sub akhir
%>