Modifikasi umum ASP dan penambahan kode fungsi

Penulis：Eve Cole Waktu Pembaruan：2025-03-17 19:48:02

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!');