 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
贴一段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 %> 返回类别: 教程 上一教程: 如何用SAFILEUP上传文件 下一教程: DW+ASP玩转动态二级菜单 您可以阅读与"利用ASP和WML来实现数据库查询"相关的教程: · 用ASP和WML来实现数据库查询 · ASP中利用数组实现数据库记录的批量录入方式 · 在ASP程序中实现数据库事务控制 · 解决在ASP中执行数据库查询中的特别字符的问题 · 在ASP中通过GETROWS实现数据库记录分页的一段代码 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
