Veröffentlichen Sie einen ASP- und WML-Datenbankabfragecode als Referenz. Tatsächlich ist er dem Schreiben von WEB-Seiten durch ASP sehr ähnlich.
＜%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>
<%
Dim conn,rs
Dimmen Sie strSQL, strFirstName, strLastName
Setze conn = Server.CreateObject("ADODB.Connection")
Setze rs = Server.CreateObject("ADODB.Recordset")
conn.open session("myconnect_string") 'Ersetze durch deinen Verbindungsstring
strWhoIs = Request.QueryString("username")
if strWhoIs="" dann
%>
＜card id="UserSearch" title="Search"＞
<p>
Bitte geben Sie den Benutzernamen ein, um ihn zu finden. ＜input name="username" type="text" maxlength="15"/＞
＜do type="accept" label="Locate"＞
＜go href="thispage.asp" method="get"＞
＜postfield name="username" value="$username"/＞
＜/go＞
＜/tun＞
＜/p＞
＜/Karte＞
<%
anders
strSQL = "SELECT * FROM tblUsers WHERE Benutzername ='& strWhoIs & '"
Setze rs = conn.Execute(strSQL)
%＞ ＜card id="UserResult" title="Result"＞
<p>
<%
wenn nicht rs.EOF dann
rs.MoveFirst
Response.Write „＜strong＞Benutzersuchergebnisse＜/strong＞“
Während nicht rs.EOF
strFirstName = "Vorname" & rs("Vorname")
strLastName = "Nachname" & rs("Nachname")
Response.Write strFirstName
Response.Write strLastName
rs.MoveNext
Wend
anders
Response.Write „Leider wurde kein Benutzer gefunden.“
Ende wenn
%>
＜/p＞
＜/Karte＞
<%
Ende wenn
%>