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


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

本文作者:
« 
» 
快速导航

Copyright © 2016 phpStudy | 豫ICP备2021030365号-3