5. Halaman beranda program (default.asp)
??Panggil file penyertaan dan fungsi publik yang sesuai untuk memformat file XML dan menampilkannya. Seperti yang Anda lihat, Judul halaman dapat disesuaikan, dan header serta trailer publik dibuat menjadi file penyertaan yang sesuai. C_TITLE, C_XMLFILE dan C_XSLFILE adalah konstanta publik, yang didefinisikan dalam file constpub.asp, saya yakin pembaca dapat dengan mudah memahaminya. Fungsi FormatXml yang didefinisikan di atas dipanggil di sini. <% Opsi Eksplisit
'***************************************************
'Deskripsi: Buku alamat
' Penulis: gwd 2002-11-05
'***************************************************
%＞ ＜!--#include file="pub/funcxml.asp"--＞
<!--#include file="pub/constpub.asp"-->
<HTML>
＜KEPALA＞
＜JUDUL＞＜% = C_TITLE %＞＜/JUDUL＞
＜META HTTP-EQUIV="tipe konten" CONTENT="teks/html;charset=GB2312"/>
＜link rel="stylesheet" href="contact.css" type="text/css"＞
＜/KEPALA＞
＜ TUBUH ＞
<!--#include file="pub/header.asp"-->
<% = FormatXml(C_XMLFILE, C_XSLFILE) %>
＜br＞
<!--#include file="pub/footer.asp"-->
＜/TUBUH＞
＜/HTML＞ |
6. Menambah, mengubah dan menghapus informasi dalam XML
??Kita tahu bahwa metode terkait telah ditentukan di Cls_Person, jadi di setiap file, kita hanya perlu memanggil metode terkait. File untuk menambah informasi adalah add.asp, file untuk mengubah informasi adalah edit.asp, dan file untuk menghapus informasi adalah delete.asp Kami hanya mengambil file add.asp sebagai contoh penjelasannya. Fungsi CheckStrInput dan CheckStrOutput digunakan untuk memformat string input dan output pengguna.
<% Opsi Eksplisit
'***************************************************
'Deskripsi: 37080308 buku alamat
' Penulis: gwd 2002-11-05
'***************************************************
%＞ ＜!--#include file="pub/funcxml.asp"--＞
<!--#include file="pub/constpub.asp"-->
<!--#include file="pub/funcpub.asp"-->
＜!--#include file="pub/class/clsPerson.asp"--＞ ＜%
Redupkan objXml, objPerson
Redupkan strErr Set objXml = Server.CreateObject("MSXML2.DOMDocument")
Setel objPerson = New Cls_Person ' Hasilkan objek Cls_Person If Request.Form("btnOk") ＜＞ "" Lalu
Jika LoadXmlDoc(objXml, C_XMLFILE, False, strErr) Kemudian 'Muat file XML' Tetapkan nilai ke atribut yang sesuai objPerson.Name = CheckStrInput(Request.Form("txtName"))
objPerson.Nick = CheckStrInput(Permintaan.Form("txtNick"))
objPerson.Mobile = CheckStrInput(Permintaan.Form("txtMobile"))
objPerson.Tel = CheckStrInput(Permintaan.Form("txtTel"))
objPerson.Email = CheckStrInput(Permintaan.Form("txtEmail"))
objPerson.QQ = CheckStrInput(Permintaan.Form("txtQQ"))
objPerson.Perusahaan = CheckStrInput(Permintaan.Form("txtPerusahaan"))
Jika Bukan objPerson.AddToXml(objXml) Lalu ' Panggil metode AddToXml kelas Cls_Person untuk menambahkan data AddErr strErr, objPerson.GetLastError
Kalau tidak
AddErr strErr, "Tambahkan berhasil"
Respon.Tulis "＜bahasa skrip=""javascript""＞pembuka.lokasi.reload();＜/script＞"
Akhiri Jika
Akhiri Jika
Akhiri Jika
Setel objXml = Tidak Ada
%>
<HTML>
＜KEPALA＞
＜JUDUL＞＜% = C_TITLE %＞＜/JUDUL＞
＜META HTTP-EQUIV="tipe konten" CONTENT="teks/html;charset=GB2312"/>
＜link rel="stylesheet" href="contact.css" type="text/css"＞
＜bahasa skrip="javascript"＞
<!--
fungsi Formulir Periksa()
{
kembali benar;
}
//-->
＜/skrip＞
＜/KEPALA＞
＜ TUBUH ＞
<% = strErr %>
＜div class="title"＞Tambahkan informasi kontak＜/div＞
<form name="form1" method="post" action="add.asp" onsubmit="return CheckForm()">
＜tabel align="center" width="100%" Cellspacing="1" cellpadding="2" border="0" bgcolor="#666600">
＜tr bgcolor="#ffffff"＞
＜td width="25%" bgcolor="#e5e5e5" align="right"＞＜b＞Nama: ＜/b＞＜/td＞
＜td width="75%"＞＜input type="text" name="txtName" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Name)%＞"＞＜/td ＞
＜/tr＞
＜tr bgcolor="#ffffff"＞
＜td bgcolor="#e5e5e5" align="right"＞＜b＞Nama Inggris: ＜/b＞＜/td＞
＜td＞＜input type="text" name="txtNick" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Nick)%＞"＞＜/td＞
＜/tr＞
＜tr bgcolor="#ffffff"＞
＜td bgcolor="#e5e5e5" align="right"＞＜b＞Ponsel: ＜/b＞＜/td＞
＜td＞＜input type="text" name="txtMobile" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Mobile)%＞"＞＜/td＞
＜/tr＞
＜tr bgcolor="#ffffff"＞
＜td bgcolor="#e5e5e5" align="right"＞＜b＞Telpon: ＜/b＞＜/td＞
＜td＞＜input type="text" name="txtTel" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Tel)%＞"＞＜/td＞
＜/tr＞
＜tr bgcolor="#ffffff"＞
＜td bgcolor="#e5e5e5" align="right"＞＜b＞Email：＜/b＞＜/td＞
＜td＞＜input type="text" name="txtEmail" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Email)%＞"＞＜/td＞
＜/tr＞
＜tr bgcolor="#ffffff"＞
＜td bgcolor="#e5e5e5" align="kanan"＞＜b＞QQ：＜/b＞＜/td＞
＜td＞＜input type="text" name="txtQQ" size="25" class="input" value="＜%=CheckStrOutput(objPerson.QQ)%＞"＞＜/td＞
＜/tr＞
＜tr bgcolor="#ffffff"＞
＜td bgcolor="#e5e5e5" align="right"＞＜b＞Perusahaan: ＜/b＞＜/td＞
＜td＞＜input type="text" name="txtCompany" size="25" class="input" value="＜%=CheckStrOutput(objPerson.Company)%＞"＞＜/td＞
＜/tr＞
＜/meja＞
＜br＞
<div align="tengah">
＜input type="kirim" nama="btnOk" value="Kirim"＞
＜input type="button" name="btnClose" value="Close" onclick="javascript:return window.close();"＞
＜/div＞
＜/bentuk＞
＜/TUBUH＞
＜/HTML＞
<%
Setel objPerson = Tidak Ada
%> |
7. Ringkasan
??Pada titik ini, program manajemen informasi kontak kami telah selesai. Bagaimana kelanjutannya, bagaimana rasanya, seharusnya cukup sederhana. Tentu saja, masih banyak area yang perlu diperbaiki dalam rutinitas ini, dan saya hanya memberikan beberapa ide di sini. Saya berharap pembaca dapat memodifikasi dan memperbaikinya sendiri setelah menguasai pemrograman XML.
??Rutin ini telah diuji pada mesin lokal saya (Windows Server 2000, IIS5.0 dan IE6.0) dan di Internet, dan dapat berjalan normal.
Klik untuk mengunduh kode sumber artikel ini
