Publiez un morceau de code de requête de base de données ASP et WML pour votre référence. En fait, cela ressemble beaucoup à l'écriture de pages WEB en 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>
<%
Dim conn,rs
Dim strSQL, strFirstName, strLastName
Définir conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open session("myconnect_string") 'Remplacer par votre chaîne de connexion
strWhoIs = Request.QueryString("username")
si strWhoIs="" alors
%>
＜id de la carte="UserSearch" title="Recherche"＞
＜p＞
Veuillez saisir le nom d'utilisateur pour rechercher ＜input name="username" type="text" maxlength="15"/＞
＜do type="accepter" label="Localiser"＞
＜allez href="thispage.asp" method="get"＞
＜nom du champ de publication="nom d'utilisateur" valeur="$nom d'utilisateur"/＞
＜/aller＞
＜/faire＞
＜/p＞
＜/carte＞
<%
autre
strSQL = "SELECT * FROM tblUsers WHERE Nom d'utilisateur ='& strWhoIs & '"
Définir rs = conn.Execute(strSQL)
%＞ ＜card id="UserResult" title="Result"＞
＜p＞
<%
sinon rs.EOF alors
rs.MoveFirst
Response.Write "＜strong＞Résultats de recherche d'utilisateur＜/strong＞"
Bien que ce ne soit pas rs.EOF
strFirstName = "Prénom" & rs("Prénom")
strLastName = "Nom" & rs("LastName")
Response.Write strFirstName
Response.Write strLastName
rs.MoveNext
Wende
autre
Response.Write "Désolé, aucun utilisateur trouvé."
finir si
%>
＜/p＞
＜/carte＞
<%
finir si
%>