2.2.8 search.asp(查询数据)

    <!--#include file=”title.asp”-->

    ‘在头部分调用连接数据库的title.asp文件

    <form method="POST" action="search.asp">

        <input type=text name=”searchtext” size=20>&nbsp; &nbsp; <input type="submit" value=" 检索 " name="B1">

    </form>

<%if trim(request(“searchtext”))<>”” then

‘如果查询文本框中数据问空，则不执行下面程序

set rs=server.createobject("adodb.recordset")

rs.open “select * from 信息表 where 索取号 like '%"&trim(request(“searchtext”))&"%'”,c1,1,1

‘ 此代码'%"&trim(request(“searchtext”))&"%'为模糊查询代码%>

    <table>

        <tr bgcolor=”#cccccc”>

            <td height=20>索取号</td>

            <td>标题</td>

            <td>发布时间</td>

        </tr>

<% for i=1 to rs.recordcount

‘设置循环,循环出数据库中所有记录%>

        <tr>

            <td height=20>

<%=replace(rs("索取号"),trim(request("searchtext")),"<font color=red>"&trim(request("searchtext"))&"</font>")%>

‘以上代码为文字着色，查询的文字颜色变为红色</td>

            <td><%=trim(rs(“标题”))%></td>

            <td><%=trim(rs(“发布时间”))%></td>

        </tr>

<%’以上为显示数据的程序