% DebugFlag = FALSE NewQuery = FALSE UseSavedQuery = FALSE SearchString = "" QueryForm = Request.ServerVariables("PATH_INFO") if Request.ServerVariables("REQUEST_METHOD") = "POST" then SearchString = Request.Form("SearchString") DocAuthorRestriction = Request.Form("DocAuthorRestriction") FSRest = Request.Form("FSRest") FSRestVal = Request.Form("FSRestVal") FSRestOther = Request.Form("FSRestOther") FMMod = Request.Form("FMMod") FMModDate = Request.Form("FMModDate") SortBy = Request.Form("SortBy") Colset = Request.Form("ColChoice") Scope = Request.Form("Scope") RankBase = Request.Form("RankBase") ' NOTE: this will be true only if the button is actually pushed. if Request.Form("Action") = "実行" then NewQuery = TRUE elseif Request.Form("pg") <> "" then UseSavedQuery=TRUE NextPageNumber = Request.Form("pg") end if end if %>
![]() |
研究室における遺伝子、タンパク質等の発表済みデータ-の検索 |
<%if DebugFlag then%>
SearchString = <%=SearchString%> DocAuthorRestriction = <%=DocAuthorRestriction%> FSRest = <%=FSRest%> FSRestVal = <%=FSRestVal%> FSRestOther = <%=FSRestOther%> FMMod = <%=FMMod%> FMModDate = <%=FMModDate%> SortBy = <%=SortBy%> Colset = <%=Colset%> Scope = <%=Scope%> NewQuery = <%=CStr(NewQuery)%> UseSavedQuery = <%=CStr(UseSavedQuery)%><%end if%> <% if NewQuery then set Session("Query") = nothing set Session("Recordset") = nothing NextRecordNumber = 1 set Q = Server.CreateObject("ixsso.Query") Composer = "" TheQuery = "" if SearchString <> "" then if Left( SearchSting, 1 ) <> "@" AND Left( SearchString, 1 ) <> "#" AND Left( SearchString, 1 ) <> "$" then TheQuery = "@Contents " + SearchString else TheQuery = SearchString end if Composer = " & " end if if FSRestVal <> "any" then if FSRestVal <> "other" then TheQuery = "(@Size " + FSRest + FSRestVal + ") " + Composer + TheQuery else TheQuery = "(@Size " + FSRest + FSRestOther + ") " + Composer + TheQuery end if Composer = " & " end if if DocAuthorRestriction <> "" then TheQuery = "(@DocAuthor " + DocAuthorRestriction + ") " + Composer + TheQuery Composer = " & " end if if FMMod <> "" AND FMMod <> "any" then if FMMod <> "since" then TheQuery = "(@Write > " + FMMod + ") " + Composer + TheQuery else TheQuery = "(@Write > " + FMModDate + ") " + Composer + TheQuery end if end if %> <%if DebugFlag then%>
TheQuery = <%=TheQuery%> <%end if%> <% Q.Query = TheQuery Q.SortBy = SortBy if Scope <> "/" then set Util = Server.CreateObject("ixsso.Util") Util.AddScopeToQuery Q, Scope, "DEEP" set Util = nothing end if if ColSet = 1 then Q.Columns = "DocTitle, vpath, path, filename, size, write, characterization, rank" RecordsPerPage = 10 elseif ColSet = 2 then Q.Columns = "vpath, path" RecordsPerPage = 200 elseif ColSet = 3 then Q.Columns = "filename, vpath, size, write" RecordsPerPage = 25 end if set RS = Q.CreateRecordSet("nonsequential") RS.PageSize = RecordsPerPage ActiveQuery = TRUE elseif UseSavedQuery then if IsObject( Session("Query") ) And IsObject( Session("RecordSet") ) then set Q = Session("Query") set RS = Session("RecordSet") if RS.RecordCount <> -1 and NextPageNumber <> -1 then RS.AbsolutePage = NextPageNumber NextRecordNumber = RS.AbsolutePosition end if ActiveQuery = TRUE else Response.Write "エラー - 保存されたクエリー条件はありません" end if end if if ActiveQuery then if not RS.EOF then %>
<%
LastRecordOnPage = NextRecordNumber + RS.PageSize - 1
CurrentPage = RS.AbsolutePage
if RS.RecordCount <> -1 AND RS.RecordCount < LastRecordOnPage then
LastRecordOnPage = RS.RecordCount
end if
if SearchString <> "" then
Response.Write "キーワード " & chr(34) & "" & SearchString & "" & chr(34)
Response.Write " と一致する"
end if
Response.Write "検索結果は "
if RS.RecordCount <> -1 then
Response.Write RS.RecordCount & " 件ありました。
"
end if
Response.Write "そのうちの " & NextRecordNumber & " から " & LastRecordOnPage
Response.Write " 件を表示しています。"
%>
<%= NextRecordNumber%>
. |
<%if VarType(RS("DocTitle")) = 1 or RS("DocTitle") = "" then%> " class="RecordTitle"><%= Server.HTMLEncode( RS("filename") )%> <%else%> " class="RecordTitle"><%= Server.HTMLEncode(RS("DocTitle"))%> <%end if%> |
<% ' Construct the URL for hit highlighting WebHitsQuery = "CiWebHitsFile=" & Server.URLEncode( RS("vpath") ) WebHitsQuery = WebHitsQuery & "&CiRestriction=" & Server.URLEncode( Q.Query ) WebHitsQuery = WebHitsQuery & "&CiBeginHilite=" & Server.URLEncode( "" ) WebHitsQuery = WebHitsQuery & "&CiEndHilite=" & Server.URLEncode( "" ) WebHitsQuery = WebHitsQuery & "&CiUserParam3=" & QueryForm ' WebHitsQuery = WebHitsQuery & "&CiLocale=" & Q.LocaleID %> ![]() ![]() |
<%if VarType(RS("characterization")) = 8 and RS("characterization") <> "" then%>
要約 : <%= Server.HTMLEncode(RS("characterization"))%> <%end if%> " class="RecordStats" style="color:blue;">http://<%=Request("server_name")%><%=RS("vpath")%> |
<%
else ' NOT RS.EOF
if NextRecordNumber = 1 then
Response.Write "検索するキーワードと一致するドキュメントはありません
" else Response.Write "これ以上の検索結果はありません
" end if end if ' NOT RS.EOF %><%if NOT Q.OutOfDate then%>
インデックスは最新です。
<%end if%><%if Q.QueryIncomplete then%>
クエリーによる負荷が大きすぎるためクエリーを完了できませんでした。
<%end if%><%if Q.QueryTimedOut then%>
クエリーに時間がかかりすぎたためクエリーを完了できませんでした。
<%end if%>
<%SaveQuery = TRUE%> <%end if%> <%if Not RS.EOF then%> | <%SaveQuery = TRUE%> <%end if%> |