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>