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

2008-02-23 05:32:01来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

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

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:ASPEMAIL通过Mdaemon的SMTP发信-recipient unknow处理办法

下一篇:如何在IIS上搭建WAP网站