Solved

Create a Html page that searches the filenames and displays the page.

Posted on 2008-10-26
12
247 Views
Last Modified: 2010-04-16
Hi,

Create a Html page that searches the filenames and displays the page.
I want a page when entered a id it searched that id in the mentioned UNC or drive and opens the html page.

Like
1234
and it searched the filename and opens that page.

Regards
Sharath
0
Comment
Question by:bsharath
  • 5
  • 4
  • 3
12 Comments
 
LVL 75

Expert Comment

by:Michel Plungjan
Comment Utility
0
 
LVL 11

Author Comment

by:bsharath
Comment Utility
Thank U any html code please...
0
 
LVL 58

Expert Comment

by:tigermatt
Comment Utility

Sharath,

Will this be running locally just on your PC, or published to the web and to run on a server? The only reason I ask is if you will not be running it locally and will be uploaded it to a web server, you will need some server-side code (ASP, PHP etc.) to achieve this.

Matthew
0
 
LVL 11

Author Comment

by:bsharath
Comment Utility
Its for the intranet site of our.
For now its on my machine
0
 
LVL 75

Expert Comment

by:Michel Plungjan
Comment Utility
Change
Msgbox Join(Location,vbCr)

to loop over Location's

Something like

Dim text
For Each item In Location
    text = text &  "<br /><a href='" & item & "'>" & item &"</a>"
Next
document.getElementById('output').innerHTML=text

and have a div id="output" somewhere
0
 
LVL 58

Accepted Solution

by:
tigermatt earned 500 total points
Comment Utility

Sharath,

This is ASP code which you can put in an ASP file and save to your Intranet. If no path is provided then it will show a form for you to input the first part of the file name, and then it will take you to a list of all the files which match in the specified directory. You'll need to provide the name of the directory on line 4.

Matthew
<%@ Language="VBScript" %>

<%

Dim fso: Set fso = Server.CreateObject("ADODB.Recordset")

Dim objFolder: Set objFolder = fso.GetFolder("C:\documents") 'Path to documents folder

Dim strURL: strURL = CStr(Request.QueryString("path"))
 

If strURL = "" Then

	Response.Write "<form action='" & Request.ServerVariables("URL") & "' method='get'>" & _

		"Search for Files beginning with the text: <input type='text' name='path' value='' />" & _

		"<input type='submit' value='GO >>>' /></form>"

	Response.End

Else

	

	Dim filematches()

	intArrMax = 0

	

	for each objFile in objFolder.Files

		If (Left(LCase(objFile.Name),Len(strURL)) = LCase(strURL)) Then

			redim preserve filematches(intArrMax)

			filematches(intArrMax) = objFile.Name

			intArrMax = intArrMax + 1

		End if

	next

	

	' Show all the matches

	Response.Write "Matches found:<br />"

	For i = 0 To UBound(filematches) Step 1

		

		Response.Write "<a href='" & objFolder.Path & "\" & filematches(i) & "'>" & filematches(i) & "</a>"

		

	Next

	

End If

%>

Open in new window

0
IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 
LVL 11

Author Comment

by:bsharath
Comment Utility
Thank you Matthew ... How do i execute this. Saveas?
0
 
LVL 58

Expert Comment

by:tigermatt
Comment Utility

Put it into a Notepad page, then go to File, Save As. You have to type the filename as "filename.asp", with the quote marks and .asp on the end.

You will also need to execute the script on an IIS Server. This means it has to go into C:\Inetpub\wwwroot (once IIS is installed), and then you would go to http://<your computer's IP address>/filename.asp to access it.

Matthew.
0
 
LVL 11

Author Comment

by:bsharath
Comment Utility
Matthew i get this
HTTP Error 404.3 - Not Found
The page you are requesting cannot be served because of the extension configuration. If the page is a script, add a handler. If the file should be downloaded, add a MIME map.

When i tried to browse to the asp.
0
 
LVL 11

Author Comment

by:bsharath
Comment Utility
When i try to open the asp or like this
C:\inetpub\wwwroot\Search.asp
It asks me to save or open when i select open it again asks me to save...
0
 
LVL 75

Expert Comment

by:Michel Plungjan
Comment Utility
Normally I would save such a script as .hta and not serve it from a web server but directly from a hard disc
0
 
LVL 58

Expert Comment

by:tigermatt
Comment Utility

The only reason I suggest this be saved as an ASP page is because as mentioned it will be part of a company intranet.

With regards to the IIS problem, you definitely need to browse to the file using http://computername/search.asp (or you could use http://127.0.0.1/search.asp from your own PC). When you installed IIS on your Vista machine in Add/Remove Windows Features, did you check the box 'ASP' under 'World Wide Web Services'?
0

Featured Post

Do You Know the 4 Main Threat Actor Types?

Do you know the main threat actor types? Most attackers fall into one of four categories, each with their own favored tactics, techniques, and procedures.

Join & Write a Comment

It is a general practice to get rid of old user profiles on a computer  in a LAN environment. As I have been working with a company in a LAN environment where users move from one place to some other place at times. This will make many user profil…
Go is an acronym of golang, is a programming language developed Google in 2007. Go is a new language that is mostly in the C family, with significant input from Pascal/Modula/Oberon family. Hence Go arisen as low-level language with fast compilation…
The viewer will learn how to pass data into a function in C++. This is one step further in using functions. Instead of only printing text onto the console, the function will be able to perform calculations with argumentents given by the user.
This video will show you how to get GIT to work in Eclipse.   It will walk you through how to install the EGit plugin in eclipse and how to checkout an existing repository.

744 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now