sub ShowSearchForm(Action,ShowType)
if ShowType <>1 and ShowType <>2 and ShowType <>3 then
ShowType=1
end if
response.write " <table border='0' cellpadding='0' cellspacing='0'>"
response.write " <form method='Get' name='SearchForm' action='" & Action & "'>"
response.write " <tr> <td height='28' align='center'>"
if ShowType=1 then
response.write " <input type='text' name='keyword' size='15' value='关键字' maxlength='50' onFocus='this.select();'> "
response.write " <input type='hidden' name='field' value='Title'>"
response.write " <input type='submit' name='Submit' value='搜索'>"
'//response.write " <br> <br>高级搜索"
elseif Showtype=2 then
response.write " <select name='Field' size='1'>"
response.write " <option value='Title' selected>档案标题 </option>"
response.write " <option value='Content'>档案内容 </option>"
response.write " <option value='Author'>采�
