用ASP和WML来实现数据库查询

＜%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

%＞