·您的位置: 首页 » 资源教程 » 编程开发 » ASP » 利用ASP和WML来实现数据库查询

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

类别: ASP教程  评论数:0 总得分:0
 贴一段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
%>
-= 资 源 教 程 =-
文 章 搜 索
关键词:
类型:
范围:
纯粹空间 softpure.com
Copyright © 2006-2008 暖阳制作 版权所有
QQ: 15242663 (拒绝闲聊)  Email: faisun@sina.com
 纯粹空间 - 韩国酷站|酷站欣赏|教程大全|资源下载|免费博客|美女壁纸|设计素材|技术论坛   Valid XHTML 1.0 Transitional
百度搜索 谷歌搜索 Alexa搜索 | 粤ICP备19116064号-1