Re: Елементарно Уотсън ! / Компютри и Интернет / ASP

Два файла:

1. search.html

<HTML>
<HEAD>
<meta HTTP-EQUIV="Expires" CONTENT="Tue, 04 Dec 1993 21:29:02 GMT">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=Windows-1251">
</HEAD>
<BODY>
<FORM NAME="frmSearch" METHOD="get" ACTION="search.asp">
<TABLE BORDER="0" align=center>
<TR>
<TD>
Ключови думи:
</TD>
<TD>
<FONT COLOR="black">
<INPUT NAME="terms" TITLE="Enter the
keywords to search on here!" >
</FONT>
</TD>
</TR>
<TR>
<TD>
Условия:
</TD>
<TD>
<FONT COLOR="black">
<SELECT NAME="boolean" SIZE="1">
<OPTION VALUE="AND" selected
>And</OPTION>
<OPTION VALUE="OR">Or</OPTION>
</SELECT>
</FONT>
</TD>
</TR>
</TABLE>
<P>
<CENTER>
<FONT COLOR="black">
<INPUT TYPE="submit" VALUE="Търсене">
</FONT>
</CENTER>
</FORM>
</BODY></HTML>

2. search.asp

<%@ Language=VBScript %>
<%
Response.Expires=0
%>
<HTML>
<HEAD>
<meta HTTP-EQUIV="Expires" CONTENT="Tue, 04 Dec 1993 21:29:02 GMT">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=Windows-1251">
</HEAD>
<BODY>
<%
Function FormatURL(strPath)
'ERROR !!!!!! Path is not formatted properly !
'Cut off everything before wwwroot and replace all \ with /
Dim iPos
iPos = InStr(1,strPath,"./",1)
Dim str
a=Len(strPath)-iPos+1
str = right(strPath,a)
FormatURL = Replace(str,"\","/")
' FormatURL = Replace(strPath,"\","/")
End Function

Function GetFiles(objFolder, aLookFor, strLF, bolLFFound,bolAnd, iCount)
If Left(objFolder.Name,1) = "_" then exit function

Const iListPerPage = 9

if iCount > iListPerPage then Exit Function

'Now, loop through each file
Dim objFile, objTextStream, objFSO, strContents, iUBound, iLoop, bolValid
Dim strTitle, iPos, strDesc
iUBound = UBound(aLookFor)

For Each objFile in objFolder.Files
'Do we need to search this file?
If UCase(Right(objFile.Name,4)) = ".HTM" or UCase(Right(objFile.Name,5)) = ".HTML" or UCase(Right(objFile.Name,4)) = ".ASP" then
If bolLFFound then
if objFile.Size > 0 then
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile(objFile.Path,1)
strContents = objTextStream.ReadAll
objTextStream.Close
Set objFSO = Nothing

if bolAnd then bolValid = True else bolValid = False
For iLoop = 0 to iUBound
If InStr(1,strContents,aLookFor(iLoop),1) then
if Not bolAnd then bolValid = True
Else
If bolAnd then bolValid = False
End If
Next

If bolValid then
iPos = InStr(1,strContents,"")-iPos-10)

iPos = InStr(iPos,strContents,"")-iPos-9)
End If
End If

Response.Write "<A HREF=""" & FormatURL(objFile.Path) & """>" & _
strTitle & "</A><BR>" & vbCrLf
Response.Write "<FONT SIZE=2>" & strDesc
Response.Write "</FONT><P>" & vbCrLf
iCount = iCount + 1
End if
If iCount > iListPerPage then
strLF = FormatURL(objFile.Path)
exit function
End If
End If
Elseif FormatURL(objFile.Path) = strLF then
bolLFFound = True
End If
End if
Next

Dim objSubFolder
For Each objSubFolder in objFolder.SubFolders
GetFiles objSubFolder,aLookFor,strLF,bolLFFound,bolAnd,iCount
Next
End Function

'Search the site!
Dim strKeywords
strKeywords = Request("terms")

'Split the terms on spaces
Dim termsArray
termsArray = split(strKeywords," ")

'Set the boolean search option
Dim bolAnd
If Request("boolean") = "AND" then bolAnd = True else bolAnd = False

Dim section
section = Request("selSearchWhere")

'Get the dirs to search
section = Server.MapPath(".")

'What page are we on?
Dim strLastFile
strLastFile=Request("lf")

Dim objFSO, objFolder
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(section)
Set objFSO = Nothing
%>
<CENTER><FONT SIZE=+2><B>
Резултати от търсенето:
</B></FONT><BR>
<FONT SIZE=2><A HREF="search.html">Корекции в заявката за търсене.</A></FONT>
</CENTER>
<P><HR><P>
Това са резултатите от търсенето:
<P>
<%
Dim iResults
iResults = 0

'Now, recurse the directories
If Len(strLastFile) = 0 then
GetFiles objFolder,termsArray,strLastFile,True,bolAnd,iResults
Else
GetFiles objFolder,termsArray,strLastFile,False,bolAnd,iResults
End If

Set objFolder = Nothing

If iResults = 10 then
'Show next page link
%>
<P><HR><P><LI><FONT SIZE=2><B>
<A HREF="search.asp?terms=<%=Server.URLEncode(strKeywords)%>&boolean=<%=Request("boolean")%>&selSearchWhere=<%=Request("selSearchWhere")%>&lf=<%=Server.URLEncode(strLastFile)%>">
Още резултати:
</A></FONT>
<P>
<% Elseif iResults = 0 then
'No results found %>
<B>Няма документи,съдържащи ключова дума !</B><BR>
<FONT SIZE=2><A HREF="/search/">Ново търсене.</A></FONT>
<% End IF %>
</BODY></HTML>

Та ето това нещо не оформя коректно линковете си в Бринкстер. С лека преработка ефекта се преодолява, но е гнусно мамка му !

UB40 !