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

　2000-12-04 10:12:50　来源：WEB开发网　闂傚倸鍊风欢姘缚瑜嶈灋闁圭虎鍠栫粻顖炴煥閻曞倹瀚�

闂傚倸鍊风粈渚€骞夐敓鐘插瀭闁汇垹鐏氬畷鏌ユ煙閹殿喖顣奸柛搴＄У閵囧嫰骞掗幋婵冨亾閻㈢ǹ纾婚柟鐐灱濡插牊绻涢崱妤冃℃繛宀婁簽缁辨捇宕掑鎵佹瀸闂佺懓鍤栭幏锟�

濠电姷鏁告慨顓㈠箯閸愵喖宸濇い鎾寸箘閹规洟姊绘笟鈧ḿ褍煤閵堝悿娲Ω閳轰胶鍔﹀銈嗗笂閼冲爼鍩婇弴銏＄厪闁搞儮鏅涙禒褏绱掓潏鈺佷槐闁轰焦鎹囬弫鎾绘晸閿燂拷闂傚倸鍊风欢姘缚瑜嶈灋闁圭虎鍠栫粻顖炴煥閻曞倹瀚�　　闂傚倸鍊烽懗鑸电仚缂備胶绮〃鍛村煝瀹ュ鍗抽柕蹇曞У閻庮剟姊虹紒妯哄闁诲繑姘ㄩ埀顒佸嚬閸撶喎顫忓ú顏勫瀭妞ゆ洖鎳庨崜浼存⒑闁偛鑻晶顔剧磼婢跺﹦绉虹€殿喖顭锋俊姝岊槷闁稿鎹囧Λ鍐ㄢ槈濞嗗繑娈橀梻浣风串缂嶁偓濞存粠鍓熼崺鈧い鎺戝€归弳顒勬煕鐎ｎ亷韬€规洑鍗冲鍊燁槾闁哄棴绠撻弻銊╂偆閸屾稑顏�

核心提示：Shows how to perform a search with a WAP page and use asp on the server to do the database query and then display the results.<%Response.ContentType = "

Shows how to perform a search with a WAP page and use asp on the server to do the database query and then
display the results.

<%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">　
　　　 
　　　　　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>　　
　　　 
　　</card>
<%
　　else
strSQL = "SELECT * FROM tblUsers WHERE Username ='& strWhoIs & '"
Set rs = conn.Execute(strSQL)
　　　
%>　<card id="UserResult" title="Result">
　　　　 　　　　　　
<%
　　　　　if not rs.EOF then
　　　　　 rs.MoveFirst
　　　　　　　Response.Write "User Search Results"
　　　　　　　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
%>
　　　　 
　　　 </card>
<%
　　end if
%>
</wml>