搜索的时候,我们一般也需要两个页面,一个用户提交搜索内容,另外一个处理搜索内容,并把信息显示出来.
代码如下:
search.htm页面
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
</HEAD>
<BODY>
<CENTER><FORM METHOD="POST" ACTION="
search.asp">
条件<SELECT NAME="
thetype">
<OPTION VALUE="who" SELECTED>留言人</option>
<OPTION VALUE="towho">接受留言的人</option>
<OPTION VALUE="content">留言内容</option>
</SELECT>
关键字<INPUT TYPE="text" NAME="
keyword"><INPUT TYPE="submit" value="搜索" >
</FORM></CENTER>
</BODY>
</HTML>
search.asp页面
<%
Dim thetype,keyword
thetype=request("thetype") '获取搜索条件
keyword=request("keyword") '获取搜索关键字
Dim conn,rs,sql
sql="select * from tb_ly where "&thetype&" like '%"&keyword&"%'" '查询语句
'+++++++++++++++++++++++++++++++++++++++连接数据库+++++++++++++++++++++++++++++++
dd="Provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath("data\ly.mdb")
set conn=Server.CreateObject("ADODB.Connection")
conn.connectionstring=dd
'+++++++++++++++++++++++++++++++++++++++连接数据库+++++++++++++++++++++++++++++++
conn.open '打开数据库
Set rs=conn.execute (sql) '执行SQL语句,把数据集存放在rs中
%>
<HTML>
<HEAD>
<TITLE> 读取数据 </TITLE>
</HEAD>
<BODY>
<TABLE BORDER="1" WIDTH="400" ALIGN="CENTER">
<TR>
<TD align="center">留言板</TD>
</TR>
<%
If Not rs.eof Then '判断是否数据集是否为空，rs.eof如果为空，即数据的最尾，则返回true，否则为false
Do While Not rs.eof 'do ..........loop循环输出数据
%>
<TR>
<TD><%=
rs("who")%><!--
输出当前行的who数据 -->对<%=rs
("towho")%><!--
输出当前行的towho数据 -->说：
<A HREF="update.asp?id=<%
=rs("id")%>">[修改]<!--
链接到修改页面，同时通过GET方式传送留言编号 --></A>
<A HREF="delete.asp?id=<%
=rs("id")%>">[删除]<!--
链接到删除页面，同时通过GET方式传送留言编号 --></A></TD>
</TR>
<TR>
<TD><%=
rs("content")%><!--
输出当前行的content数据即留言内容 --></TD>
</TR>
<%
rs.movenext '数据移动到下一行
Loop
Else
%>
<tr><td>暂时没有您要的留言！</td></tr><!--
如果没有数据输出此信息 -->
<%
End If
conn.close '关闭数据库
Set rs=Nothing '清空rs中的资源
%>
</TABLE>
</BODY>
</HTML>
