her kan du søge de filer so du har liggende på din driver. du skal ændre linie 6 til din egen adresse. I linie 30 bestemmer du hvilke type (extention) fil er tilladt eller valgt.
<%
option Explicit
Dim objFolder,strSearchText,objfso,sc,numItems,begpos,endpos,slen,sResult
if Request.form("SearchText") = "" Then
With Response
.write "<head></head><BODY ><Basefont face=Tahoma><TITLE>
http://www11.brinkster.com/hossein/index.asp</TITLE><h2><Center> Søg
http://www11.brinkster.com/hossein/index.asp</h2></center><BR><div align=center id=status></div><BR><BR>"
.write "<FORM ACTION=http://www11.brinkster.com/hossein/index.asp METHOD=POST>"
.write "<INPUT TYPE=TEXT NAME=SearchText><BR>"
.write "<INPUT TYPE=SUBMIT VALUE=Søg></FORM>"
end with
else
Server.ScriptTimeout = 90
strSearchText = UCase(Request.Form("SearchText") )
Set objfso = Server.CreateObject("Scripting.FileSystemObject")
sc = Request.form("SC")
sc ="."
Set objFolder = objFSO.GetFolder(Server.MapPath(sc))
sResult ="<head></head><BODY ><TITLE>Søge Resultat(er)</TITLE><h2><Center>Søg i Sitet</h2></center><BR><div align=center id=status></div><BR><BR>"
Search objFolder
if numItems = "" then numItems = "0"
sResult =sResult & "<BR><script language=Javascript>document.all.status.innerHTML="""&numItems&" fil blev foundet. <BR> <A href=index.asp>Søg igen</a>"";</script></body></html>"
Response.write sResult
Function Search(objFolder)
Dim objSubFolder,sext,objFile,objTextStream,strFileContents
'on error resume next
For Each objFile in objFolder.Files
sext = Ucase(mid(objFile.Name, Len(objFile.Name)-3, 4))
if sext = ".HTM" or sext = ".TXT" or sext = ".ASP" then
'if sext = ".ASP" then
Set objTextStream = objFSO.OpenTextFile(objFile.Path,1)
strFileContents = objTextStream.ReadAll
strFileContents = UCase(strFileContents)
if instr(1,strFileContents, "NOINDEX",1) = 0 then
If InStr(1, strFileContents, strSearchText, 1) then
numItems = numItems +1
sResult = sResult & numItems & ".) <A HREF=""" & objFile.Name & """>" & objFile.Name & "</A><BR>"
End if
End If
objTextStream.Close
end if
if err.number <> 0 then
response.write err.description & "<BR>"
err.clear
end if
Next
For Each objSubFolder in objFolder.SubFolders
Search objSubFolder
Next
End Function
end if
%>
vh hossein
Ny bruger
Nybegynder
Opret
Preview
