Опубликуйте для справки фрагмент кода запроса к базе данных ASP и WML. Фактически, это очень похоже на написание WEB-страниц 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>
<%
Тусклый конн, рс
Тусклый strSQL, strFirstName, strLastName
Установить conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open session("myconnect_string") 'Замените строкой подключения
strWhoIs = Request.QueryString("username")
если strWhoIs="" тогда
%>
＜card id="Поиск пользователя" title="Поиск"＞
＜р＞
Пожалуйста, введите имя пользователя, чтобы найти ＜input name="username" type="text" maxlength="15"/＞
＜do type="accept" label="Locate"＞
＜go href="thispage.asp" метод="get"＞
＜postfield name="username" value="$username"/＞
＜/идти＞
＜/делать＞
＜/п＞
＜/карта＞
<%
еще
strSQL = "SELECT * FROM tblUsers WHERE Username ='& strWhoIs & '"
Set rs = conn.Execute(strSQL)
%＞ ＜card id="UserResult" title="Result"＞
＜р＞
<%
если не rs.EOF, то
RS.MoveFirst
Ответ. Напишите «＜strong＞Результаты поиска пользователей＜/strong＞».
Пока не rs.EOF
strFirstName = «Имя» & rs («Имя»)
strLastName = «Фамилия» & rs («Фамилия»)
Response.Write strFirstName
Response.Write strLastName
rs.MoveNext
Венд
еще
Ответ.Напишите «К сожалению, пользователь не найден».
конец, если
%>
＜/п＞
＜/карта＞
<%
конец, если
%>