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

答案：     贴一段ASP和WML查询数据库得代码，大家参考参考，其实跟ASP写WEB页面很相似得。 
  
  ＜%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=>  ＜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
  %＞
  
   
   

上一个：ASP判断文件地址是否有效!
下一个：判断checkbox是否至少有选择一项