Posting sepotong kode query database ASP dan WML untuk referensi Anda. Faktanya, ini sangat mirip dengan halaman WEB penulisan ASP.
＜%Response.ContentType = "text/vnd.wap.wml"%＞
＜?xml version="1.0"?＞＜!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/wml_1.1.xml "＞
<wml>
<%
Sambungan redup, rs
Redupkan strSQL,strFirstName, strLastName
Setel samb = Server.CreateObject("ADODB.Connection")
Setel rs = Server.CreateObject("ADODB.Recordset")
conn.open session("myconnect_string") 'Ganti dengan string koneksi Anda
strWhoIs = Request.QueryString("nama pengguna")
jika strWhoIs = "" maka
%>
＜card id="UserSearch" title="Search"＞
＜p＞
Silakan masukkan nama pengguna untuk menemukan? ＜input nama="nama pengguna" type="teks" maxlength="15"/＞
＜lakukan ketik="terima" label="Temukan"＞
＜buka href="halaman ini.asp" metode="dapatkan"＞
＜nama kolom pos="nama pengguna" value="$nama pengguna"/＞
＜/pergi＞
＜/lakukan＞
＜/p＞
＜/kartu＞
<%
kalau tidak
strSQL = "PILIH * DARI tblUsers WHERE Nama Pengguna ='& strWhoIs & '"
Setel rs = conn.Execute(strSQL)
%＞ ＜card id="UserResult" title="Hasil"＞
＜p＞
<%
jika bukan rs.EOF maka
rs.MoveFirst
Response.Tulis "＜strong＞Hasil Penelusuran Pengguna＜/strong＞"
Meskipun bukan rs.EOF
strNamaDepan = "Nama Depan " & rs("Nama Depan")
strLastName = "Nama Belakang" & rs("Nama Belakang")
Respon.Tulis strFirstName
Respon.Tulis strLastName
rs.MoveNext
Pergi ke
kalau tidak
Response.Tulis "Maaf, tidak ada pengguna yang ditemukan."
berakhir jika
%>
＜/p＞
＜/kartu＞
<%
berakhir jika
%>