<%
        dim u_title,u_time,u_body
        u_title=trim(request.Form("u_title"))
        u_body=trim(request.Form("u_body"))
        u_time=trim(request.form("u_time"))
        %>
        <%
dim rs,sql
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from u_masg where u_title='"&u_title&"'"
if u_body<>"" then
sql=sql & " and u_title like '%"&u_body&"%' "
sql=sql &" or u_body like '%"&u_body&"%'"
end if
if u_time<>"00" then
sql=sql & " and u_time>='" & dateadd("d",-cint(u_time),date()) & "'"
end if
sql=sql & " order by id desc"
rs.open sql,cn,1,1
if rs.recordcount<1 then
response.write "暂时还没有你要查询的信息"
else
……
end if
%>