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

　　贴一段asp和WML查询数据库得代码，大家参考参考，其实跟ASP写WEB页面很相似得。4Pk中国设计秀

＜%Response.ContentType = "text/vnd.wap.wml"%＞4Pk中国设计秀
＜?xml version="1.0"?＞＜!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"＞4Pk中国设计秀
＜wml＞4Pk中国设计秀
＜% 4Pk中国设计秀
　Dim conn, rs 4Pk中国设计秀
　Dim strSQL,strFirstName, strLastName 4Pk中国设计秀
　Set conn = Server.CreateObject("ADODB.Connection")4Pk中国设计秀
　Set rs = Server.CreateObject("ADODB.Recordset")4Pk中国设计秀

　conn.open session("myconnect_string") 'Replace with your connect string4Pk中国设计秀

　strWhoIs = Request.QueryString("username")4Pk中国设计秀
　if strWhoIs="" then4Pk中国设计秀
%＞4Pk中国设计秀
＜card id="UserSearch" title="Search"＞ 4Pk中国设计秀
＜p＞4Pk中国设计秀
　Please enter username to find? ＜input name="username" type="text" maxlength="15"/＞4Pk中国设计秀
＜do type="accept" label="Locate"＞4Pk中国设计秀
＜go href="thispage.asp" method="get"＞4Pk中国设计秀
＜postfield name="username" value="$username"/＞4Pk中国设计秀
＜/go＞4Pk中国设计秀
＜/do＞ 4Pk中国设计秀
＜/p＞4Pk中国设计秀
＜/card＞4Pk中国设计秀
＜%4Pk中国设计秀
　else 4Pk中国设计秀
　　strSQL = "SELECT * FROM tblUsers WHERE Username ='& strWhoIs & '"4Pk中国设计秀
　　Set rs = conn.Execute(strSQL)4Pk中国设计秀

%＞ ＜card id="UserResult" title="Result"＞4Pk中国设计秀
＜p＞ 4Pk中国设计秀
＜%4Pk中国设计秀
　if not rs.EOF then4Pk中国设计秀
　　rs.MoveFirst4Pk中国设计秀
　　Response.Write "＜strong＞User Search Results＜/strong＞"4Pk中国设计秀
　　While not rs.EOF4Pk中国设计秀
　　　strFirstName = "First Name " & rs("FirstName")4Pk中国设计秀
　　　strLastName = "Last Name " & rs("LastName")4Pk中国设计秀
　　　Response.Write strFirstName4Pk中国设计秀
　　　Response.Write strLastName4Pk中国设计秀
　　　rs.MoveNext 4Pk中国设计秀
　　Wend4Pk中国设计秀
　else4Pk中国设计秀
　　Response.Write "Sorry, no user found."4Pk中国设计秀
　end if4Pk中国设计秀
%＞4Pk中国设计秀
＜/p＞4Pk中国设计秀
＜/card＞4Pk中国设计秀
＜%4Pk中国设计秀
end if4Pk中国设计秀
%＞4Pk中国设计秀