Pengelolaan dan penyajian data universal menggunakan HTML murni

Pengelolaan dan penyajian data universal menggunakan HTML murni. Namun, untuk mengumpulkan data, Anda memerlukan tempat penyimpanan data. Untuk menghindari banyak masalah yang timbul saat menggunakan server database, Anda dapat mengumpulkan data ini dalam XML. Berikut adalah struktur dasar proyek kami:

Awalnya saya membatasi data pada nama depan, nama belakang, dan nama tengah. Ide dasar dibalik halaman ini adalah informasi pengguna diperoleh di halaman ini. Setelah kebutuhan informasi pengguna terpenuhi, proses harus dipindahkan ke langkah pengumpulan logis berikutnya. Untuk mempermudah, saya akan menggabungkan fungsionalitas pengguna ke dalam kelas ASP.

Fungsi Penggabungan(vVar, vAlt)
Jika vVal = "" Atau VarType(vVal) = 1 Atau VarType(vVal) = 0 Maka
Penggabungan = vAlt
Kalau tidak
Penggabungan = vVal
Akhiri Jika

Pengguna Kelas

Fungsi Akhir

M_SQL Pribadi, m_DOM

Properti Publik Dapatkan DOM()
Tetapkan DOM = m_DOM
Akhir Properti

Publik Sub saveUser()
m_SQL.simpan "simpan_pengguna", m_DOM
Akhiri Sub

Fungsi Publik validasi()
m_DOM.loadXML "" & m_SQL.validateUser(m_DOM) & ""
Jika Tidak m_DOM.selectSingleNode("//error") Tidak Ada Apa-apanya
validasi=Salah
Kalau tidak
validasi=Benar
Akhiri Jika
Fungsi Akhir

Subpribadi kumpulkanData(dom, oCollection)
Redupkan nItem, simpul, simpul_induk, n, sKey
Untuk nItem = 1 Ke oCollection.Count
sKey = oKoleksi.Kunci(nItem)
Setel parent_node = dom.selectSingleNode("//" & sKey & "s")
Jika Bukan parent_node Bukan Apa-apa
Untuk n = 1 Ke oCollection(sKey).Count
Setel simpul = parent_node.selectSingleNode(sKey & _
"[string(.)='" &
oKoleksi(sKey)(n) & "']")
Jika simpul Bukan Apa-apa, Maka
Setel simpul = dom.createNode(1, sKey, "")
Setel simpul = parent_node.appendChild(node)
Akhiri Jika
simpul.teks = Penggabungan(oKoleksi(sKey)(n), "")
Berikutnya
Kalau tidak
Setel simpul = dom.selectSingleNode("//" & sKey)
Jika Bukan Node Bukan Apa-apa Maka _
node.teks = Penggabungan(oKoleksi(sKey), "")
Akhiri Jika
Berikutnya
Akhiri Sub

Privat Sub Class_Initialize()
Setel m_SQL = CSQL Baru
Setel m_DOM = Server.CreateObject("MSXML2.DOMDocument")
m_DOM.async = Salah
Jika VarType(Request ("txtUserXML")) = 0 Atau Permintaan ("txtUserXML") = "" Lalu
m_DOM.loadXML Permintaan("txtUserXML")
Kalau tidak
m_DOM.muat "" & Server.MapPath("pengguna.xml") & ""
Akhiri Jika
CollectData m_DOM, Permintaan.Formulir
kumpulkanData m_DOM, Permintaan.QueryString
Akhiri Sub

Pribadi Sub Class_Terminate()
Setel m_SQL = Tidak Ada
Tetapkan m_DOM = Tidak ada
Akhir Sub

Akhir

Kelas Kelas CSQL
M_DAL pribadi, m_Stream

Penyimpanan Fungsi Publik (sStoredProc, oDOM)
'adVarChar = 200
m_DAL.RunSP Array(m_DAL.mp("@xml_param", 200, 8000, oDOM.xml))
Fungsi Akhir

Fungsi Publik validasi Pengguna (oDOM)
Setel m_Stream = m_DAL.RunSPReturnStream("validasi_pengguna", Array(_
m_DAL.mp("@xml_param", 200, 8000, oDOM.xml)))
validasiPengguna = m_Stream.ReadText(-1)
m_Stream.Tutup
Fungsi Akhir

Sub Kelas Pribadi_Inisialisasi()
Setel m_DAL = Server.CreateObject("MyPkg.MyDAL")
m_DAL.GetConnection "beberapa string koneksi"
Setel m_Stream = Server.CreateObject("ADODB.Stream")
Akhiri Sub

Pribadi Sub Class_Terminate()
Tetapkan m_DAL = Tidak ada
Setel m_Stream = Tidak Ada
Akhir Sub

Akhir Kelas
Kelas CSQL dibangun berdasarkan komponen lapisan akses data (m_DAL) MyPkg.MyDAL. Komponen ini dibangun berdasarkan komponen Fitch dan Mather DAL yang dapat ditemukan di MSDN. Dengan cara ini kami membangun jembatan antara SQL Server dan kode Anda.

Ketika objek CUser diinisialisasi, ia mengumpulkan data Permintaan dan menggunakan subfungsi CollectData() untuk memasukkan data yang dikumpulkan ke dalam node terkait di UserDOM. (Kodenya tidak akan saya jelaskan karena cukup mudah untuk dipahami.) Setelah mengumpulkan data (atau tidak), kita akan menggunakan XSL untuk mengubah konten data menjadi tata letak.

versi="1.0">

*Informasi berwarna merah diperlukan

merah
hitam


Nama depan:


pilih="nama_pertama"/>





merah
hitam


saya:








merah
hitam


Nama Belakang:


pilih="nama_belakang"/>

Stylesheet ini akan mengubah konten menjadi tata letak. Pemeriksaan kesalahan itu penting, dan prosedur tersimpan memeriksa data dengan menentukan apakah data tersebut memerlukan pemrosesan. Mengembalikan node "kesalahan" untuk setiap bidang yang tidak boleh kosong tetapi tidak memiliki data yang terisi. Output XML ini kira-kira sebagai berikut:

.first_name
Stylesheet ini akan mengubah konten menjadi tata letak. Pemeriksaan kesalahan itu penting, dan prosedur tersimpan memeriksa data dengan menentukan apakah data tersebut memerlukan pemrosesan. Mengembalikan node "kesalahan" untuk setiap bidang yang tidak boleh kosong tetapi tidak memiliki data yang terisi. Output XML ini kira-kira sebagai berikut:

.first_name .

Perhatikan bahwa jika ada kesalahan yang cocok dengan nama node, output yang dihasilkan akan berwarna merah. Kita memerlukan ASP berikut untuk menggabungkan semua hal sebelumnya.

<%@ Bahasa=VBScript %>
<%
Opsi Eksplisit
Redupkan Pengguna
Setel oUser = Pengguna Baru
Jika oUser.validate() Lalu
Tetapkan oUser = Tidak Ada
Server.Transfer "Halaman Berikutnya.asp"
Akhiri Jika
%>