点贴一段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 conn, rs 　Dim strSQL,strFirstName, strLastName 　Set conn = Server.CreateObject("ADODB.Connection") 　Set rs = Server.CreateObject("ADODB.Recordset") 　conn.open session("myconnect_string") 'Replace with your connect string 　strWhoIs = Request.QueryString("username") 　if strWhoIs="" then %＞ ＜card id="UserSearch" title="Search"＞ ＜p＞ 　Please enter username to find? ＜input name="username" type="text" maxlength="15"/＞ ＜do type="accept" label="Locate"＞ ＜go href="thispage.asp" method="get"＞ ＜postfield name="username" value="$username"/＞ ＜/go＞ ＜/do＞ ＜/p＞ ＜/card＞ ＜% 　else 　　strSQL = "SELECT * FROM tblUsers WHERE Username ='& strWhoIs & '" 　　Set rs = conn.Execute(strSQL) %＞ ＜card id="UserResult" title="Result"＞ ＜p＞ ＜% 　if not rs.EOF then 　　rs.MoveFirst 　　Response.Write "＜strong＞User Search Results＜/strong＞" 　　While not rs.EOF 　　　strFirstName = "First Name " & rs("FirstName") 　　　strLastName = "Last Name " & rs("LastName") 　　　Response.Write strFirstName 　　　Response.Write strLastName 　　　rs.MoveNext 　　Wend 　else 　　Response.Write "Sorry, no user found." 　end if %＞ ＜/p＞ ＜/card＞ ＜% end if %＞