<%
if keyword="" then
response.write "所有文章"
else
select case strField
case "Title"
response.write "文章标题含有 "&keyword&" 的文章"
case "Content"
response.write "文章内容含有 "&keyword&" 的文章"
case "Author"
response.write "作者姓名含有 "&keyword&" 的文章"
case "Editor"
response.write "编辑姓名含有 "&keyword&" 的文章"
case else
response.write "文章标题含有 "&keyword&" 的文章"
end select
end if
%>
<%call ShowSearchResult()%>
<%
if totalput>0 then
call showpage(strFileName,totalput,MaxPerPage,false,true,"篇文章")
end if
%>