Skenario Persistensi Kumpulan Perangkat Rekam XML

Artikel
06/02/2023

Dalam skenario ini, Anda akan membuat aplikasi Halaman Server Aktif (ASP) yang menyimpan konten objek Recordset langsung ke objek Respons ASP.

Catatan

Skenario ini mengharuskan server Anda menginstal Internet Information Server 5.0 (IIS) atau yang lebih baru.

Recordset yang dikembalikan ditampilkan di Internet Explorer menggunakan DataControl Object (RDS).

Langkah-langkah berikut diperlukan untuk membuat skenario ini:

Menyiapkan Aplikasi
Mendapatkan Data
Mengirim Data
Menerima dan Menampilkan Data

Langkah 1: Siapkan Aplikasi

Buat direktori virtual IIS bernama "XMLPersist" dengan izin skrip. Buat dua file teks baru di folder tempat direktori virtual menunjuk, satu bernama "XMLResponse.asp," yang lain bernama "Default.htm."

Langkah 2: Dapatkan Data

Dalam langkah ini, Anda akan menulis kode untuk membuka ADO Recordset dan bersiap untuk mengirimkannya ke klien. Buka file XMLResponse.asp dengan editor teks, seperti Notepad, dan sisipkan kode berikut.

<%@ language="VBScript" %>  
  
<!-- #include file='adovbs.inc' -->  
  
<%  
  Dim strSQL, strCon  
  Dim adoRec   
  Dim adoCon   
  Dim xmlDoc   
  
  ' You will need to change "MySQLServer" below to the name of the SQL   
  ' server machine to which you want to connect.  
  strCon = "Provider=sqloledb;Data Source=MySQLServer;Initial Catalog=Pubs;Integrated Security=SSPI;"  
  Set adoCon = server.createObject("ADODB.Connection")  
  adoCon.Open strCon  
  
  strSQL = "SELECT Title, Price FROM Titles ORDER BY Price"  
  Set adoRec = Server.CreateObject("ADODB.Recordset")  
  adoRec.Open strSQL, adoCon, adOpenStatic, adLockOptimistic, adCmdText

Pastikan untuk mengubah nilai Data Source parameter strCon menjadi nama komputer Microsoft SQL Server Anda.

Tetap buka file dan lanjutkan ke langkah berikutnya.

Langkah 3: Kirim Data

Sekarang setelah Anda memiliki Recordset, Anda harus mengirimkannya ke klien dengan menyimpannya sebagai XML ke objek Respons ASP. Tambahkan kode berikut ke bagian bawah XMLResponse.asp.

  Response.ContentType = "text/xml"  
  Response.Expires = 0  
  Response.Buffer = False  
  
  Response.Write "<?xml version='1.0'?>" & vbNewLine  
  adoRec.save Response, adPersistXML  
  adoRec.Close  
  Set adoRec=Nothing  
%>

Perhatikan bahwa objek Respons ASP ditentukan sebagai tujuan untuk Metode Penyimpanan Recordset. Tujuan metode Simpan dapat berupa objek apa pun yang mendukung antarmuka IStream, seperti ADO Stream Object (ADO), atau nama file yang menyertakan jalur lengkap tempat Recordset akan disimpan.

Simpan dan tutup XMLResponse.asp sebelum masuk ke langkah berikutnya. Salin juga file adovbs.inc dari folder penginstalan pustaka ADO default ke folder yang sama tempat Anda menyimpan file XMLResponse.asp.

Langkah 4: Menerima dan Menampilkan Data

Dalam langkah ini Anda akan membuat file HTML dengan objek Objek DataControl (RDS) yang disematkan yang menunjuk pada file XMLResponse.asp untuk mendapatkan Recordset. Buka default.htm dengan editor teks, seperti Notepad, dan tambahkan kode berikut. Ganti "sqlserver" di URL dengan nama server Anda.

<HTML>  
<HEAD><TITLE>ADO Recordset Persistence Sample</TITLE></HEAD>  
<BODY>  
  
<TABLE DATASRC="#RDC1" border="1">  
  <TR>  
<TD><SPAN DATAFLD="title"></SPAN></TD>  
<TD><SPAN DATAFLD="price"></SPAN></TD>  
  </TR>  
</TABLE>  
<OBJECT CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID="RDC1">  
   <PARAM NAME="URL" VALUE="XMLResponse.asp">  
</OBJECT>  
  
</BODY>  
</HTML>

Tutup file default.htm dan simpan ke folder yang sama tempat Anda menyimpan XMLResponse.asp. Dengan menggunakan Internet Explorer 4.0 atau yang lebih baru, buka URL https:// sqlserver/XMLPersist/default.htm dan amati hasilnya. Data ditampilkan dalam tabel DHTML terikat. Sekarang buka URL https:// sqlserver /XMLPersist/XMLResponse.asp dan amati hasilnya. XML ditampilkan.

Lihat juga

Metode Simpan
Menyimpan Rekaman dalam Format XML

Bagikan melalui