贴一段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="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
  %＞
  
  
  

 

评论 (0) All

登陆 还没注册？