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

核心提示：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">　
　　　 <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
%>
</wml>