Setiap kali saya menulis sistem, saya perlu masuk ke program, yang membuatnya sangat merepotkan. Bahkan, kita dapat membuat beberapa modul fungsional yang umum digunakan menjadi fungsi verifikasi login. Jadi apa saja beberapa modul fungsional yang umum digunakan dalam ASP? Sekarang mari kita lihat pengenalan modul fungsional ASP yang umum digunakan.
[kode]
<%
Fungsi chk_regist (requestName, requestPwd, tableName, namefield, pwdfield, reurl) redup cn_name, cn_pwdcn_name = trim (request.form ("" & requestName & "")) cn_pwd = trim (request.form ("" & requestpwd & "")) if cn_pwd = "" ThenResponse.write ("<bahasa skrip = javascript> alert (" "Harap isi kata sandi akun secara lengkap, terima kasih atas kerja sama Anda." "); history.go (-1) </script>") end ifset rs = server.createObject ("adodb.recordset") sql = "select * from" & tableName & di mana & di mana & di mana & di mana & di mana "" "& namefield &" = '' "" & cn_name & "''" rs.open sql, conn, 1.1if rs.eof thenresponse.write ("<skrip bahasa = javaScript> waspada (" "no cr skrip, konfirmasi apakah Anda telah diterapkan." " session ("cn_name") = rs ("" & namefield & "") response.redirect (reurl) elseresponse.write ("<skrip bahasa = javascript> waspada (" "pengingat, akun dan kata sandi Anda tidak cocok. Perusahaan.
[kode]
Deskripsi Parameter:
chk_regist (requestName, requestPWD, tableName, namefield, pwdfield, reurl)
RequestName adalah nama kontrol input yang menerima nama yang dimasukkan di halaman HTML.
RequestPWD adalah nama kontrol input yang menerima kata sandi yang dimasukkan di halaman HTML.
Tablename adalah nama tabel yang menyimpan informasi pendaftaran dalam database
Namefield adalah nama bidang yang menyimpan nama pengguna di tabel informasi ini
PWDField adalah nama bidang kata sandi pengguna di tabel informasi ini
Reurl adalah halaman yang melompat setelah masuk dengan benar
Contoh kutipannya adalah sebagai berikut:
<%hubungi chk_regist ("b_name", "b_pwd", "cn_admin", "cn_name", "cn_pwd", "admin.asp")%>
2. Seringkali mungkin untuk menilai keadaan saat ini dari sesuatu, biasanya bidang (tipe numerik, nilai default adalah 0)
Efek dari switching status dicapai dengan memodifikasi nilai bidang ini. Jadi, saya membuat fungsi lain untuk membuatnya mudah bagi diri saya sendiri.
<%Function Pvouch (Tablename, FildName, AutoidName, IndexID) Dim filterValueset rs = server.CreateObject ("adodb.recordset") sql = "pilih * dari" & tableName & "di mana" & autidname & "=" & indexidrs.open sql, conn, 2.2.3fild ("&" & "&" & indexidrs.open sql, conn, 2.3fild ("conn, 2,3file (" " FilterValue = 0 ThenFildValue = 1elSeFildValue = 0End ifrs ("" & FildName & "") = fildvaluers.updaters.close set rs = tidak ada fungsi%>
Deskripsi Parameter:
PVOUCH (Tablename, FildName, AutoidName, IndexID)
nama tabel tableName di database di mana benda itu berada
FilmName Hal ini digunakan untuk menunjukkan nama lapangan status (tipe lapangan adalah numerik)
Nama penomoran otomatis AutoidName di tabel ini
IndexID digunakan untuk memodifikasi nilai nomor otomatis yang sesuai dari negara bagian
Contoh kutipannya adalah sebagai berikut:
<%dowhat = request.QueryString ("dowhat") p_id = cint (request.queryString ("p_id")) jika dowhat = "tj" dan p_id <> "" Thencall pvouch ("cn_products", "p_vouch", "p_id", p_id ifouch if ifouch "," p_vouch "," p_id "," P_VOUCH "," P_VOUCH "," P_VOUCH "," P_VOUCH "," P_VOUCH "," P_VOUCH "," P_VOUCH "," P_VOUCH "," lalu%>> direkomendasikan <%else%>> Batalkan rekomendasi <%end If%>
3. Tulis situs web untuk banyak perusahaan kecil dan menengah. Secara umum, tampilan produk adalah proyek besar, sehingga halaman yang dibuat berbeda.
Entah beberapa diatur secara horizontal, atau beberapa diatur secara vertikal, atau bahkan seluruh stasiun harus dilemparkan dan berbelok beberapa kali, yang sangat merepotkan dan melelahkan.
Tulis saja fungsi untuk meringankannya, jadi itu menjadi berikut
<%Function showPros (Tablename, Topnum, FildName, Loopnum, Typepenum) Set Rs = Server.CreateObject ("AdodB.Recordset") SQL = "Pilih Top" & Topnum & " * dari" & tableNames.Open SQL, Conn, 1.1if Rseof dan rseof TheneF dan rsonreF. momen ") elseresponse.write (" ") untuk i = 1 hingga rs.recordcountif (i mod loopnum = 1) lalu response.write" "end ifelect case typenumcase" 1 "response.write (" ") Response.write (RS (" "" & Fildname & "")) Response.write (""""""""33333333333 membuatKAN ”33333333/ membuatnyaKANAN .003333333333 dari membuatnya ”003333333333 kembali ”00 membuatnya ”.333333333333kuKANANAN333333333333333333333 datang datang33333333333 membuatKANAN begitu begitu berada "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""A" "" "" "" "" "" "" "" "" " "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""A" "" "" "" "" "" "" "" "" " "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""A" "" "" "" "" "" "" "" "" " "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""A" "" "" "" "" "" "" "" "" " "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""A" "" "" "" "" "" "" "" "" " "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""A" "" "" "" "" "" "" "" "" " ") response.write (" ") end selectif (i mod loopnum = 0) thenResponse.write" "end ifrs.movenextNextresponse.write (" ") end ifrs.close set rs = nothing function%>
Deskripsi Parameter: ShowPros (Tablename, Topnum, FilterName, Loopnum, Typepenum)
Pro mana yang memilih jenis produk
Topnum berarti berapa banyak catatan yang diekstraksi
FildName mewakili bidang yang ditampilkan oleh debugging. Parameter ini dapat dihilangkan saat menerapkannya secara rinci dan digunakan langsung dalam fungsi
Loopnum mewakili jumlah catatan per baris loop yang ditampilkan
Typenum mewakili metode tampilan melingkar: Saat ini ada dua kategori, tampilan paralel paralel secara horizontal dan paralel secara vertikal berbeda catatan dari baris catatan data yang sama.
Contoh kutipannya adalah sebagai berikut:
<%jika request.form ("kirim") <> "" thentopnum = request.form ("topnum") loopnum = request.form ("loopnum") typenum = request.Form ("typenum") ELSETOPNUM = 8loopnum = 2typenum = 1end if%> <%call showpros ("cn_products", topnum, "p_name", loopnum, typenum)%>
Di atas adalah seluruh konten artikel ini. Saya berharap konten artikel ini akan membantu studi atau pekerjaan Anda. Jika Anda memiliki pertanyaan, Anda dapat meninggalkan pesan untuk berkomunikasi. Terima kasih atas dukungan Anda dari saluran teknologi baru yang benar atau salah!