宁波市北仑天气预报:asp搜索页面制作

偶是一菜鸟,最今在网上摘了一段代码:
<%@ CODEPAGE = "936" %>

<%
dim conn
dim DBOath
dim rs
dim sql
Set conn=Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("Digest.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs=Server.CreateObject("ADODB.Recordset")
'从Web页获取标题、日期、作者、关键词的值
dim title
dim dateandtime
dim writer
dim Nclassid
dim content
title=request("title")
dateandtime=request("dateandtime")
writer=request("writer")
Nclassidr=request("Nclassid")
content=request("content")

title=replace(title," ","%")
dateandtime=replace(dateandtime," ","%")
writer=replace(writer," ","%")
Nclassidr=replace(Nclassid," ","%")
content=replace(content," ","%")

sql="select * from Article where"
if title<>"" then
sql=sql&" title like '%"&title&"%' "
flag=1
end if
if dateandtime<>"" and flag=1 then
sql=sql&" and dateandtime like '%"&dateandtime&"%'"
flag=1
elseif dateandtime<>"" then
sql=sql&" dateandtime like '%"&dateandtime&"%'"
flag=1
end if
if writer<>"" and flag=1 then
sql=sql&" and writer like '%"&writer&"%'"
flag=1
elseif writer<>"" then
sql=sql&" writer like '%"&writer&"%'"
flag=1
end if
if Nclassid<>"" and flag=1 then
sql=sql&" and Nclassid like '%"&Nclassid&"%'"
flag=1
elseif Nclassid<>"" then
sql=sql&" Nclassid like '%"&Nclassid&"%'"
flag=1
end if
if content<>"" and flag=1 then
sql=sql&" and content like '%"&content&"%'"
flag=1
elseif content <>"" then
sql=sql&" content like '%"&content&"%'"
flag=1
end if
if flag=0 then
sql="select * from Article order by ID asc"
end if
rs.open sql,conn,1,1

title=replace(title," ","%")
dateandtime=replace(dateandtime," ","%")
writer=replace(writer," ","%")
Nclassidr=replace(Nclassid," ","%")
content=replace(content," ","%")
'显示搜索结果
if rs.eof and rs.bof then
response.write "目前通讯录中没有记录"
else
do while not rs.eof
response.write "标题："&rs("title")&"<br>日期："&rs("dateandtime")&"<br>作者："&rs("writer")&"<br>正文："&rs("content")&"<br>"
rs.movenext
loop
end if
'断开数据库
set rs=nothing
conn.close
set conn=nothing
%>

由于是涉及到文章内容,这样显示出来的页面比较难看,并且很占篇幅,哪位高手能帮忙修改一个显示结果的页面,最好是能只显示标题和部分内容,然后能通过标题连接全文页面,也就是它能成为和百度搜索结果类似的效果,
多谢这位大虾的回答，还有一个问题需要指教：：
如何让“正文："&rs("content")&"<br>"”这段内容紧贴在标题下面，我这个显示出来有一行的距离，还有就是如果内容中出现了下划线，然后结果中下面的其他内容都有下划线了，如何修改啊？