<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="index" title="布丁娱乐">
<p>
关键词：<input name="key" type="text"/><br/>
<anchor>查找
<go href="search.asp" method="post">
<postfield name="key" value="$(key)" />
</go></anchor>
</p>
</card>
</wml>
这是search.asp页
<%Response.ContentType = "text/vnd.wap.wml" %>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapfourm.org/DTD/wml_1.1.xml">
<!--#include file="conn.asp"-->
<wml>
<card id="joke" title="铃声">
<p align="left">
<%
dim rs,sql,key
key=request("key")
set rs=server.createobject("adodb.recordset")
sql="select top 5 * from goodwap where Name like '%"&key&"%' ORDER BY Id desc"
rs.open sql,conn,1,1
%>
<%
If Not rs.Bof And Not rs.Eof Then
Do While Not rs.Eof
Response.Write rs("Name")
Response.Write ("<br/>")
rs.MoveNext
Loop
Else
Response.Write "没有找到"
End If
%><br/>
<a href="../index.asp">返回首页</a>
</p>
</card>
</wml>
