详细说明用ASP和WML来实现数据库查询

王朝asp·作者佚名 2006-11-24

宽屏版字体: 小|中|大|超大

贴一段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

%＞