Publique um código de consulta de banco de dados ASP e WML para sua referência. Na verdade, é muito semelhante à gravação de páginas WEB em 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 conexão, rs
Dim strSQL,strPrimeiroNome, strLastName
Definir conexão = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open session("myconnect_string") 'Substitua pela sua string de conexão
strWhoIs = Request.QueryString("username")
se strWhoIs=""então
%>
＜card id="UserSearch" title="Pesquisar"＞
＜p＞
Por favor, digite o nome de usuário para encontrar ＜input name="username" type="text" maxlength="15"/＞
＜do type="aceitar" label="Localizar"＞
＜go href="thispage.asp" método="get"＞
＜postfield name="nomedeusuário" valor="$nomedeusuário"/＞
＜/vai＞
＜/fazer＞
</p>
＜/cartão＞
<%
outro
strSQL = "SELECT * FROM tblUsers WHERE Nome de usuário ='& strWhoIs & '"
Definir rs = conn.Execute(strSQL)
%＞ ＜card id="UserResult" title="Result"＞
＜p＞
<%
se não rs.EOF então
rs.MoveFirst
Response.Write "＜strong＞Resultados da pesquisa do usuário＜/strong＞"
Embora não seja rs.EOF
strPrimeiroNome = "Nome" & rs("Nome")
strNome = "Sobrenome " & rs("Sobrenome")
Response.Write strPrimeiroNome
Response.Write strSobreNome
rs.MoveNext
Wend
outro
Response.Write "Desculpe, nenhum usuário encontrado."
terminar se
%>
</p>
＜/cartão＞
<%
terminar se
%>