' encode these texts to avoid cross site scripting
CiResultsSize = Server.HTMLEncode(rCiResultsSize)
FreeText = Server.HTMLEncode(rFreeText)
%>
</HEAD>
<BODY <%=FormBG%>>
<%
if NewQuery then
set Session("Query") = nothing
set Session("Recordset") = nothing
NextRecordNumber = 1
'Strip punctuation from search term
for x = 1 to len(SearchString)
testpunc= mid(SearchString,x,1)
if instr(punc,testpunc) then
SearchStringErr= SearchStringErr
else
SearchStringErr = SearchStringErr + testpunc
end if
next
SearchString = SearchStringErr
if SearchType=0 Then
'Aranan terimden noktalamay² kald²r
SearchStringComp=SearchString+" "
for x = 1 to len(SearchStringComp)
if mid(SearchStringComp,x,1)=" " Then
ncompare2 = ","+ncompare+","
if instr(noise,ncompare2) = 0 then
NewCompare=NewCompare+" "+ncompare
End If
ncompare=""
else
ncompare=ncompare+mid(SearchString,x,1)
end if
next
x = len(NewCompare)
if left(NewCompare,1) = " " Then
NewCompare = right(NewCompare,(x-1))
end if
SearchString=NewCompare
CompSearch = "$CONTENTS " + SearchString
end if
if SearchType=1 Then
CompSearch = chr(34) + SearchString + chr(34)
end if
if SearchType=2 Then
'Aranan gⁿrⁿltⁿ s÷zcⁿkleri kald²r
SearchStringComp=SearchString+" "
for x = 1 to len(SearchStringComp)
if mid(SearchStringComp,x,1)=" " Then
ncompare2 = ","+ncompare+","
if instr(noise,ncompare2) = 0 then
NewCompare=NewCompare+" "+ncompare
End If
ncompare=""
else
ncompare=ncompare+mid(SearchString,x,1)
end if
next
x = len(NewCompare)
if left(NewCompare,1) = " " Then
NewCompare = right(NewCompare,(x-1))
end if
SearchString=NewCompare
slen=len(SearchString)
for k = 1 to slen
slet = Mid(SearchString,k,1)
if slet <> " " then ss1=ss1+slet else ss1=ss1+ " AND " end if Next CompSearch=ss1 If Right(CompSearch,5) = " AND " Then CompSearch = Left(CompSearch,Len(CompSearch)-5) end if
if SearchType=3 Then 'Strip noise words from search term SearchStringComp=SearchString+" " for x = 1 to len(SearchStringComp) if mid(SearchStringComp,x,1)=" " Then ncompare2 = ","+ncompare+"," if instr(noise,ncompare2) = 0 then NewCompare=NewCompare+" "+ncompare End If ncompare="" else ncompare=ncompare+mid(SearchString,x,1) end if next x = len(NewCompare) if left(NewCompare,1) = " " Then NewCompare = right(NewCompare,(x-1)) end if SearchString=NewCompare slen=len(SearchString) for k = 1 to slen slet = Mid(SearchString,k,1) if slet <> " " then ss1=ss1+slet else ss1=ss1+ " OR " end if Next CompSearch=ss1 If Right(CompSearch,4) = " OR " Then CompSearch = Left(CompSearch,Len(CompSearch)-4) end if
if SearchType=4 Then 'Strip noise words from search term NCompare="" NewCompare="" SearchStringComp=SearchString+" " for x = 1 to len(SearchStringComp) if mid(SearchStringComp,x,1)=" " Then ncompare2 = ","+ncompare+"," if instr(noise,ncompare2) = 0 then NewCompare=NewCompare+" "+ncompare End If ncompare="" else ncompare=ncompare+mid(SearchString,x,1) end if next x = len(NewCompare) if left(NewCompare,1) = " " Then NewCompare = right(NewCompare,(x-1)) end if SearchString=NewCompare CompSearch = SearchString end if
set Q = Server.CreateObject("ixsso.Query") set util = Server.CreateObject("ixsso.Util")
if FormScope <> "/" then util.AddScopeToQuery Q, FormScope, "deep" end if
if SiteLocale<>"" then Q.LocaleID = util.ISOToLocaleID(SiteLocale) end if On Error Resume Next set RS = Q.CreateRecordSet("nonsequential")
RS.PageSize = PageSize Test = RS.PageSize 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 "HATA - Kay²tl² sorgu yok" end if end if
If FullExt <> "cnt" and FullExt <> "hhc" and FullExt <> "hpj" and FullExt <> "hlp" and FullExt <> "rtf" and FullExt <> "asf" and FullExt <> "gid" and FullExt <> "fts" and FullExt <> "wmp" and FullExt <> "hhk" and FullExt <> "txt" and FullExt <> "ass" and FullExt <> "idq" and FullExt <> "ncr" and FullExt <> "ncl" and FullExt <> "url" and FullExt <> "css" and FullExt <> "prp" and FullExt <> "htx" and FullExt <> "htw" and FullExt <> "tmp" and FullExt <> "mdb" and FullExt <> "xls" and FullExt <> "chm" Then
if NextRecordNumber <> 1 then Response.Write "Sorguda ba■ka belge yok.<P>" end if
end if ' NOT RS.EOF%>
<%
if Q.QueryIncomplete then
' If the query was not executed because it needed to enumerate to
' resolve the query instead of using the index, but AllowEnumeration
' was FALSE, let the user know %>
<P> <I><B>Sorgu tamamlanamad². Lⁿtfen sorguyu yeniden ba■lat²n.<BR> Teknik ayr²nt²lar: Bu sorgunun tamamlanmas² iτin AllowEnumeration de≡i■keninin TRUE olarak ayarlanmas² gerekir.</B></I><BR> <%end if
if Q.QueryTimedOut then
' If the query took too long to execute (for example, if too much work
' was required to resolve the query), let the user know %>
<P> <I><B>Sorgunun tamamlanmas² zaman al²yor.</B></I><BR> <%end if%>
<TABLE>
<%
' This is the "previous" button.
' This retrieves the previous page of documents for the query.
%>
<%SaveQuery = FALSE%> <%if CurrentPage > 1 and RS.RecordCount <> -1 then %>
<LI>Ba■ka bir Arama seτene≡i (Standart, Tam Deyim, Tek S÷zcⁿk, Tⁿm S÷zcⁿkler ve Boolean seτenekleri kullan²labilir) deneme.
<LI>Sorguyu sonra yeniden deneme. Dizin Hizmeti'ni yeni ba■latt²ysan²z, IIS belgelerinin katalo≡unu olu■turmak birkaτ dakika sⁿrebilir.
</UL> <%else%>
Page <%=CurrentPage%> <%if RS.PageCount <> -1 then Response.Write " of " & RS.PageCount end if %> <%end if%>
<%
' If either of the previous or back buttons were displayed, save the query
' and the recordset in session variables.
if SaveQuery then
set Session("Query") = Q
set Session("RecordSet") = RS
else
RS.close
Set RS = Nothing
Set Q = Nothing
set Session("Query") = Nothing
set Session("RecordSet") = Nothing
end if
%> <% end if %>
</BODY>
</HTML> <%else%> <%
'Strip noise words from search term
NCompare=""
NewCompare=""
SearchStringComp=SearchString+" "
for x = 1 to len(SearchStringComp)
if mid(SearchStringComp,x,1)=" " Then
ncompare2 = ","+ncompare+","
if instr(noise,ncompare2) = 0 then
NewCompare=NewCompare+" "+ncompare
End If
ncompare=""
else
ncompare=ncompare+mid(SearchString,x,1)
end if
next
x = len(NewCompare)
if left(NewCompare,1) = " " Then
NewCompare = right(NewCompare,(x-1))
end if
SearchString=NewCompare
'Strip punctuation from search term
SearchStringErr = ""
for x = 1 to len(SearchString)
testpunc= mid(SearchString,x,1)
if instr(punc2,testpunc) then
SearchStringErr= SearchStringErr
else
SearchStringErr = SearchStringErr + testpunc
end if
next
SearchString = SearchStringErr
CompSearch=SearchString
%>
<%if SearchString = "" or instr(SearchString,"*") or instr(CompSearch,")") or instr(CompSearch,"(") or right(CompSearch,3)="OR " or right(CompSearch,4)="AND " then%> <b>Dizin Hizmeti sorgunuzu i■leyemedi.<p></b><br>
Lⁿtfen sorguyu yeniden yaz²n ve bir kez daha deneyin. Baz² yayg²n s÷zcⁿkler ("iτin" ve "τo≡u" gibi) dizine al²nmaz. Ayr²ca, sorgunuzda noktalama i■aretleri (virgⁿl, nokta, vb.) kullanmay²n.
<%else%>
Dizin Hizmeti ba■lat²lmad²<p> *<%=CompSearch%>* <br>