参考のために ASP および WML データベース クエリ コードを投稿してください。実際、これは ASP が WEB ページを作成するのと非常に似ています。
＜%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 strSQL、strFirstName、strLastName
set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open session("myconnect_string") '接続文字列に置き換えます
strWhoIs = Request.QueryString("username")
strWhoIs="" の場合
%>
＜card id="ユーザー検索" title="検索"＞
＜p＞
検索するにはユーザー名を入力してください<input name="username" type="text" maxlength="15"/>
＜do type="accept" label="検索">
＜go href="thispage.asp" method="get">
＜ポストフィールド名="ユーザー名" 値="$ユーザー名"/＞
＜/行く＞
＜/する＞
＜/p＞
＜/カード＞
<%
それ以外
strSQL = "SELECT * FROM tblUsers WHERE ユーザー名 ='& strWhoIs & '"
Set rs = conn.Execute(strSQL)
%> <card id="UserResult" title="Result">
＜p＞
<%
rs.EOF ではない場合
rs.MoveFirst
Response.「<strong>ユーザー検索結果</strong>」を書き込みます
rs.EOF ではないが
strFirstName = "名" & rs("名")
strLastName = "姓 " & rs("姓")
Response.StrFirstName を書き込みます
Response.StrLastName を書き込みます
rs.次へ移動
ウェン
それ以外
Response.Write "申し訳ありませんが、ユーザーが見つかりませんでした。"
終了する場合
%>
＜/p＞
＜/カード＞
<%
終了する場合
%>