Hej
Vores Intranet ligger på Web-hotel hos TDC. Vi haft en udemærket
søgefunktion, som indtil for nylig fungerede perfekt. Lige
pludselig holdt det op med at virke. Det melder ikke fejl, men
resulterer i nul forekomster, ligemeget hvad der søges på.
TDC har ikke villet forholde sig til problemet, selv om det kan
dokumenteres, at scriptet ikke er ændret.
I stedet har de sendt mig et andet søgescript, som de med
positivt resultat har testet på vores Intranet.
Jeg har prøvet at køre det, men kan ikke få det til at virke.
Jeg går ud fra, at det skal køre i en asp-fil, men jeg er ikke
sikker.
Jeg er heller ikke sikker på, om det peger rigtigt.
Kan nogen gennemskue, om jeg skal rette scriptet til, så det
peger på vores Intranet, og i bekræftende fald hvor??
Her er hvad TDC sendte mig (hvis nogen i øvrigt kan få gavn af
det, er det jo bare helt fint):
script start ------>
<%
Const BasePath = "\\10.2.255.1\data\userdata\"
Dim MainSearch, ComputerName, HostName, catalog, CompSearch
MainSearch = ""
if Request("MainSearch") <> "" then MainSearch =
Request("MainSearch") & " &
"
MainSearch = MainSearch & Request("SearchString")
if request("Hostname") <> "" then
HostName = request("Hostname")
else
HostName = Request.ServerVariables("SERVER_NAME")
end if
Dim idx1, idx2, Supstitut, WebPath
idx1 = InStrRev(HostName,".")
idx2 = InStrRev(HostName,".",idx1-1)
Supstitut = Mid(HostName,idx2+1,1)
WebPath = lcase( BasePath & Supstitut & "\" & HostName & "\docs\"
)
Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK")
ComputerName = oScriptNet.ComputerName
Set oScriptNet = Nothing
CompSearch = MainSearch
' Undgå FPs filer og kataloger mm.
CompSearch = CompSearch & " & ! #path *\_*"
CompSearch = CompSearch & " & ! #path *\_vti_cnf*"
CompSearch = CompSearch & " & ! #path *\_fpclass*"
CompSearch = CompSearch & " & ! #path *\_vti_log*"
CompSearch = CompSearch & " & ! #path *\_vti_pvt*"
CompSearch = CompSearch & " & ! #path *\_vti_script*"
CompSearch = CompSearch & " & ! #path *\_vti_txt*"
CompSearch = CompSearch & " & ! #path *\_borders*"
' Undgå filer der ikke komme brugeren ved.
CompSearch = CompSearch & " & ! #filename
*.|(txt|,inc|,mdb|,cnt|,class|,toc|,css|,js|)"
SortBy = "filename[d]"
catalog = HostName
'CompSearch = "{freetext}" & & "{/freetext}"
CompSearch = "@contents " & CompSearch
Dim Q, objRS
Set Q = CreateObject("ixsso.Query")
Q.DefineColumn "Unfiltered(DBTYPE_BOOL, 1) =
49691c90-7e17-101a-a91c-08002b2ecda9 7"
Q.Catalog = "query://"+ ComputerName + "/" + catalog
'Q.SortBy = SortBy
Q.Columns = "DocTitle, FileName, Path, Write, Size, vPath,
Characterization"
Q.Dialect = 2
Q.Query = CompSearch
Q.MaxRecords = 10
If Request("Scope") <> "" Then
' Skip dette, da vi ikke WebSite mapper pt.
'Set objUtil = Server.CreateObject("ixsso.util")
' Tag alle under kataloger med.
'objUtil.AddScopeToQuery Q, Request("Scope"), "deep"
' Undlad directorys, men søg kun i det speciferede
katalog.
' objUtil.AddScopeToQuery Q, Request("Scope"), "shallow"
' Catalog med speciferet sti til katalog
' objQuery.Catalog = "d:\dana\data\
www.dfif.dk\index"
' Catalog med alias for index katalog.
End If
set objRS = Q.CreateRecordSet("nonsequential")
If objRS.EOF Then
Response.Write("Ingen sider fundet, prøv at søg mindre
restiktivt")
Response.End
End If
Response.write "søgning efter: " & MainSearch
count = 0
%>
<form method="post" action="tdi-query.asp">
<p>Indsnævre søgning med :
<input type="hidden" name="mainsearch" value="<%=MainSearch%>">
<input type="hidden" name="HostName" value="<%=HostName%>">
<input type="text" name="SearchString" size="20"><br>
<input type="submit" value="Search" name="Action">
</form>
<%
Dim vPath, Filename, Path, DocTitle
do while not objRS.EOF
vPath = objRS("vPath")
Filename = objRS("Filename")
Path = objRS("Path")
DocTitle = objRS("DocTitle")
vPath = replace(lcase(path) , WebPath, "")
vPath = "/" & replace(vPath, "\", "/")
%>
<table>
<TR>
<TD width="20%" align="right"><b>Dokument Titel:</B></TD>
<TD width="80%">
<a href="
http://<%=HostName & vPath %>">Gå til </a>
<%if DocTitle <> "" then Response.write DocTitle else
Response.Write
"Ingen Titel."%>
</TD>
</TR>
<TR>
<TD width="20%" align="right"><b>Virtuel Sti:</B></TD>
<TD width="80%"><%= vPath%> ( <%=Path%> )</TD>
</TR>
<TR>
<TD width="20%" align="right"><b>Filenavn:</B></TD>
<TD width="80%"><%= filename%></TD>
</TR>
<TR>
<TD width="20%" align="right"><B>Størrelse:</B></TD>
<TD width="80%"><%= objRS("Size")%></TD>
</TR>
<TR>
<TD width="20%" align="right"><B>Sidst Modificeret:</B></TD>
<TD width="80%"><%= objRS("Write")%></TD>
</TR>
<TR>
<TD width="20%" align="right"><B>Beskrivelse:</B></TD>
<TD width="80%"><%= objRS("Characterization")%></TD>
</TR>
<tr><td>.</td></tr>
</table>
<% objRS.MoveNext %>
<% count = count + 1 %>
<% Loop %>
Der er <%=count%> sider som passer på "<%=MainSearch%>"
<--- script slut
Hilsen fra Henrik
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials