asp + wap 实现查询系统

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>