Publique un fragmento de código de consulta de base de datos ASP y WML para su referencia. De hecho, es muy similar a escribir páginas WEB en ASP.
＜%Response.ContentType = "text/vnd.wap.wml"%＞
＜?xml versión="1.0"?＞＜!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/wml_1.1.xml "＞
<wml>
<%
Conexiones tenues
Dim strSQL, strFirstName, strApellido
Establecer conexión = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open session("myconnect_string") 'Reemplace con su cadena de conexión
strWhoIs = Request.QueryString("username")
si strWhoIs="" entonces
%>
＜card id="UserSearch" title="Buscar"＞
＜p＞
Ingrese el nombre de usuario para buscar ＜input name="nombre de usuario" type="text" maxlength="15"/＞
＜escriba="aceptar" etiqueta="Localizar"＞
＜ir href="esta página.asp" método="obtener"＞
＜postfield nombre="nombre de usuario" valor="$nombre de usuario"/＞
＜/ir＞
＜/hacer＞
＜/p＞
＜/tarjeta＞
<%
demás
strSQL = "SELECCIONAR * DESDE tblUsers DONDE Nombre de usuario ='& strWhoIs & '"
Establecer rs = conn.Execute(strSQL)
%＞ ＜card id="UserResult" title="Resultado"＞
＜p＞
<%
si no es rs.EOF entonces
rs.MoveFirst
Response.Write "＜strong＞Resultados de búsqueda de usuarios＜/strong＞"
Mientras no rs.EOF
strFirstName = "Nombre" & rs("Nombre")
strApellido = "Apellido" & rs("Apellido")
Respuesta.Escribir strFirstName
Respuesta.Escribir strApellido
rs.MoverSiguiente
Encaminarse a
demás
Respuesta.Escribe "Lo sentimos, no se encontró ningún usuario".
terminar si
%>
＜/p＞
＜/tarjeta＞
<%
terminar si
%>