教你如何利用ASP和WML实现数据库查询的代码分享

作者: 2011/6/3 9:40:45
这篇文章跟大家一起分享的是关于教你如何利用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
%>

特别推荐

玩家留言 跟帖评论
查看更多评论