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