 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
Shows how to perform a search with a WAP page and use ASP on the server to do the database query and then display the results. <%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 %> </wml> 返回类别: 教程 上一教程: 如何开发基于ASP的FLASH MX在线图象浏览器 下一教程: ASP数据库恢复的代码 您可以阅读与"用ASP和WML来实现数据库查询"相关的教程: · 利用ASP和WML来实现数据库查询 · 在ASP中通过GETROWS实现数据库记录分页的一段代码 · ASP实现单页查询数据库 · ASP中通过GETROWS实现数据库记录分页的一段代码 · 在ASP程序中实现数据库事务控制 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
