simple ASP code needed to display & not display 1

JGKWORK · Apr 1, 2003

Hi,
I have the following code to list contents of a folder. I need to know the code to do the following:

1/. change the code so that it doesn't show the file "default.asp" or the folder "Images".

2/. Seperate from above I need to know how I WOULD SHOW ONLY the file "index.htm"

could some one help, thanks very much:

<%@LANGUAGE="VBSCRIPT"%>
<%
Option Explicit
On Error Resume Next

' this section is optional - it just denies anonymous access
If Request.ServerVariables("LOGON_USER&quot

="" Then
Response.Status = "401 Access Denied"
End If

' declare variables
Dim objFSO, objFolder
Dim objCollection, objItem

Dim strPhysicalPath, strTitle, strServerName
Dim strPath, strTemp
Dim strName, strFile, strExt, strAttr
Dim intSizeB, intSizeK, intAttr, dtmDate

' declare constants
Const vbReadOnly = 1
Const vbHidden = 2
Const vbSystem = 4
Const vbVolume = 8
Const vbDirectory = 16
Const vbArchive = 32
Const vbAlias = 64
Const vbCompressed = 128

' don't cache the page
Response.AddHeader "Pragma", "No-Cache"
Response.CacheControl = "Private"

' get the current folder URL path
strTemp = Mid(Request.ServerVariables("URL&quot

,2)
strPath = ""

Do While Instr(strTemp,"/&quot

strPath = strPath & Left(strTemp,Instr(strTemp,"/&quot

)
strTemp = Mid(strTemp,Instr(strTemp,"/&quot

+1)
Loop

strPath = "/" & strPath

' build the page title
strServerName = UCase(Request.ServerVariables("SERVER_NAME&quot

)
strTitle = "Contents of the " & strPath & " folder"

' create the file system objects
strPhysicalPath = Server.MapPath(strPath)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject&quot

Set objFolder = objFSO.GetFolder(strPhysicalPath)
%>
<html>
<head>
<title><%=strServerName%> - <%=strTitle%></title>
<meta name="GENERATOR" content="The Mighty Hand of Bob">
</head>
<body bgcolor="#FFFFFF">
<table width="906" border="0" cellspacing="0" cellpadding="0" height="26">
<tr>
<td width="283"><img src="/images/coatbridge.gif" width="208" height="69"></td>
<td width="378">
<div align="center"><img src="/NLN_Materials/Images/NLNMDIT.gif" width="120" height="100"></div>
</td>
<td width="245"> </td>
</tr>
</table>
<h1 align="left"> </h1>
<div align="center"><center>
<table width="40%" border="1" cellspacing="1" cellpadding="2" bordercolor="#CCCCCC">
<tr>
<th align="left" bgcolor="#003366"><font color="#FFFFFF">Course Material:</font></th>
</tr>
<%
''''''''''''''''''''''''''''''''''''''''
' output the folder list
''''''''''''''''''''''''''''''''''''''''

Set objCollection = objFolder.SubFolders

For Each objItem in objCollection
strName = objItem.Name
strAttr = MakeAttr(objItem.Attributes)
dtmDate = CDate(objItem.DateLastModified)
%>
<tr>
<td align="left"><b><a href="<%=strName%>"><%=strName%></a></b></td>
</tr>
<% Next %>
<%
''''''''''''''''''''''''''''''''''''''''
' output the file list
''''''''''''''''''''''''''''''''''''''''

Set objCollection = objFolder.Files

For Each objItem in objCollection
strName = objItem.Name
strFile = Server.HTMLEncode(Lcase(strName))

intSizeB = objItem.Size
intSizeK = Int((intSizeB/1024) + .5)
If intSizeK = 0 Then intSizeK = 1

strAttr = MakeAttr(objItem.Attributes)
strName = Ucase(objItem.ShortName)
If Instr(strName,".&quot

Then strExt = Right(strName,Len(strName)-Instr(strName,".&quot

) Else strExt = ""
dtmDate = CDate(objItem.DateLastModified)
%>
<tr>
<td align="left"><a href="<%=strFile%>"><%=strFile%></a></td>
</tr>
<% Next %>
</table>
</center></div>

</body>
</html>
<%
Set objFSO = Nothing
Set objFolder = Nothing

' this adds the IIf() function to VBScript
Function IIf(i,j,k)
If i Then IIf = j Else IIf = k
End Function

' this function creates a string from the file atttributes
Function MakeAttr(intAttr)
MakeAttr = MakeAttr & IIf(intAttr And vbArchive,"A","-&quot

MakeAttr = MakeAttr & IIf(intAttr And vbSystem,"S","-&quot

MakeAttr = MakeAttr & IIf(intAttr And vbHidden,"H","-&quot

MakeAttr = MakeAttr & IIf(intAttr And vbReadOnly,"R","-&quot

End Function
%>

tschonken · Apr 1, 2003

use the objItem.Name to check what you want or dont want Office notice: The beatings won't stop until morale improves

JGKWORK · Apr 1, 2003

thanks I tried this (If strName <> "Default.asp" Then) and it worked great. But i can't manage to do it to ONLY display one specific file and ignore the rest i.e. the index.htm file. Any ideas? if so could u include an example - I ain't too good with code!

Also, I now realise I need to be able to do some thing else. When the contents are listed I would like to add "index.htm" to the end of the link (so the web page opens imediately instead of listing contents of another page then clicking on index.htm).

Any help very much appreciated.

tschonken · Apr 1, 2003

I am not sure what you mean, but I would do something loke this:

<%
if lcase(trim(strName)) = "index.html" then
show the file info here
end if
%>

try to include the index file at the end to show it (haven't tried it, but it should work)

right at the end of your asp page include it
(this include must be OUTSIDE the asp tags <%%> right at the end of your page)



Hope this helps
Office notice: The beatings won't stop until morale improves

ChrisHirst · Apr 1, 2003

Try

<%
if lcase(strName) = "index.htm" then

%>

be aware also that strName is converted to uppercase, this will cause problems if your ASP code runs on a *nix box (case sensitive file system)

Chris.
Indifference will be the downfall of mankind, but who cares?

JGKWORK · Apr 1, 2003

Hi, tried this but it is still listing everything that's in the folder - what i need is it to ONLY list index.htm.

thanks...

ChrisHirst · Apr 1, 2003

Where in the code are you placing this conditional?

Chris. Indifference will be the downfall of mankind, but who cares?

JGKWORK · Apr 1, 2003

Thanks for the help:

''''''''''''''''''''''''''''''''''''''''
' output the file list
''''''''''''''''''''''''''''''''''''''''

Set objCollection = objFolder.Files

For Each objItem in objCollection
strName = objItem.Name
if lcase(trim(strName)) = "index.htm" then
strFile = Server.HTMLEncode(Lcase(strName))

intSizeB = objItem.Size
intSizeK = Int((intSizeB/1024) + .5)
If intSizeK = 0 Then intSizeK = 1

strAttr = MakeAttr(objItem.Attributes)
strName = Ucase(objItem.ShortName)
If Instr(strName,".&quot

Then strExt = Right(strName,Len(strName)-Instr(strName,".&quot

) Else strExt = ""
dtmDate = CDate(objItem.DateLastModified)
%>
<tr>
<td align="left"><a href="<%=strFile%>"><%=strFile%></a></td>
</tr>
<%
End If
Next
%>

JGKWORK · Apr 1, 2003

sorry tschonken, didn't expliain myself very well about the index.htm :

what i mean is:

this code lists the contents of a folder, each item in the list is a link to the contents of another folder.

What i want to be able to do is modify these links in order to add index.htm to the end of each. This means that when u click on the link it opens the page "index.htm" in the folder below it.

This saves having to go down one more level.

This would remove the need for the previous question, but I wanted to know how to do both.

Thanks for the help.

ChrisHirst · Apr 1, 2003

I can't for the life of me see why the conditional is not working. Just tested it and it worked ok on my server (Win2k)

The way to add index.htm to make a full link will be;

dtmDate = CDate(objItem.DateLastModified)
URLName = strName & "/index.htm"

%>
<TR>
<TD align="left"><B><A href="<%=URLName%>"><%=strName%></A></B></TD>
</TR>

not forgetting to dim URLName of course

Chris.

Indifference will be the downfall of mankind, but who cares?

JGKWORK · Apr 1, 2003

Thanks alot Chris, I'll try this when i get back to work tommorrow - if the URLName works it will be a much better solution anyway,

thanks again.

JGKWORK · Apr 2, 2003

Hi Chris,

I tried it your code, but unfortunately it is doing exactely the same thing, i.e. listing the folder contents of the next folder (instead of opening the index.htm file). I can't understand why this ain't working!

Here's the code I used - any help, anyone!

thanks.

<%@LANGUAGE="VBSCRIPT"%>
<%
Option Explicit
On Error Resume Next

' this section is optional - it just denies anonymous access
If Request.ServerVariables("LOGON_USER&quot

="" Then
Response.Status = "401 Access Denied"
End If

' declare variables
Dim objFSO, objFolder
Dim objCollection, objItem

Dim strPhysicalPath, strTitle, strServerName
Dim strPath, strTemp
Dim strName, strFile, strExt, strAttr
Dim intSizeB, intSizeK, intAttr, dtmDate
Dim URLName

' declare constants
Const vbReadOnly = 1
Const vbHidden = 2
Const vbSystem = 4
Const vbVolume = 8
Const vbDirectory = 16
Const vbArchive = 32
Const vbAlias = 64
Const vbCompressed = 128

' don't cache the page
Response.AddHeader "Pragma", "No-Cache"
Response.CacheControl = "Private"

' get the current folder URL path
strTemp = Mid(Request.ServerVariables("URL&quot

,2)
strPath = ""

Do While Instr(strTemp,"/&quot

strPath = strPath & Left(strTemp,Instr(strTemp,"/&quot

)
strTemp = Mid(strTemp,Instr(strTemp,"/&quot

+1)
Loop

strPath = "/" & strPath

' build the page title
strServerName = UCase(Request.ServerVariables("SERVER_NAME&quot

)
strTitle = "Contents of the " & strPath & " folder"

' create the file system objects
strPhysicalPath = Server.MapPath(strPath)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject&quot

Set objFolder = objFSO.GetFolder(strPhysicalPath)
%>
<html>
<head>
<title><%=strServerName%> - <%=strTitle%></title>
<meta name="GENERATOR" content="The Mighty Hand of Bob">
</head>
<body bgcolor="#FFFFFF">
<table width="906" border="0" cellspacing="0" cellpadding="0" height="26">
<tr>
<td width="283"><img src="/images/coatbridge.gif" width="208" height="69"></td>
<td width="378">
<div align="center"><img src="/images/NLNMDIT.gif" width="120" height="100"></div>
</td>
<td width="245"> </td>
</tr>
</table>
<h1 align="left"> </h1>
<div align="center"><center>
<table width="40%" border="1" cellspacing="1" cellpadding="2" bordercolor="#CCCCCC">
<tr>
<th align="left" bgcolor="#003366"><font color="#FFFFFF"><%=strServerName%><br>
<%=strTitle%>:</font></th>
</tr>
<%
''''''''''''''''''''''''''''''''''''''''
' output the folder list
''''''''''''''''''''''''''''''''''''''''

Set objCollection = objFolder.SubFolders

For Each objItem in objCollection
strName = objItem.Name
strAttr = MakeAttr(objItem.Attributes)
dtmDate = CDate(objItem.DateLastModified)
%>
<tr>
<td align="left"><b><a href="<%=strName%>"><%=strName%></a></b></td>
</tr>
<% Next %>
<%
''''''''''''''''''''''''''''''''''''''''
' output the file list
''''''''''''''''''''''''''''''''''''''''

Set objCollection = objFolder.Files

For Each objItem in objCollection
strName = objItem.Name
strFile = Server.HTMLEncode(Lcase(strName))

intSizeB = objItem.Size
intSizeK = Int((intSizeB/1024) + .5)
If intSizeK = 0 Then intSizeK = 1

strAttr = MakeAttr(objItem.Attributes)
strName = Ucase(objItem.ShortName)
If Instr(strName,".&quot

Then strExt = Right(strName,Len(strName)-Instr(strName,".&quot

) Else strExt = ""
dtmDate = CDate(objItem.DateLastModified)
URLName = strName & "/index.htm"

%>
<tr>
<td align="left"><a href="<%=URLName%>"><%=strName%></a></td>
</tr>
<%
Next
%>
</table>
</center></div>

</body>
</html>
<%
Set objFSO = Nothing
Set objFolder = Nothing

' this adds the IIf() function to VBScript
Function IIf(i,j,k)
If i Then IIf = j Else IIf = k
End Function

' this function creates a string from the file atttributes
Function MakeAttr(intAttr)
MakeAttr = MakeAttr & IIf(intAttr And vbArchive,"A","-&quot

MakeAttr = MakeAttr & IIf(intAttr And vbSystem,"S","-&quot

MakeAttr = MakeAttr & IIf(intAttr And vbHidden,"H","-&quot

MakeAttr = MakeAttr & IIf(intAttr And vbReadOnly,"R","-&quot

End Function
%>

JGKWORK · Apr 2, 2003

Something else a bit wierd:

when I remove the following:

<td align="left"><a href="<%=URLName%>"><%=strName%></a></td>

Nothing changes, i.e. i still get a listing of the contents of the folder - I thought this bit of code was the output?

cheers...

ChrisHirst · Apr 2, 2003

Observation and a couple of quick questions because this is looking like a server issue

I am guessing the reason for this code is to avoid having to create virtual folders on the server,

1/ do you have access to the server
2/ is it running MS IIS 5.0 (Win2k)

Chris.
Indifference will be the downfall of mankind, but who cares?

JGKWORK · Apr 2, 2003

yes to both.

JGKWORK · Apr 2, 2003

Can anyone advise as to what these server issues might be?

many thanks.

JGKWORK · Apr 2, 2003

Please help me - I really need to get this working! can anyone help?

Many thanks.

ChrisHirst · Apr 2, 2003

Sorry, got dragged kicking and screaming into the real world, Taken me hours to recover! [shocked]

I take it this is what you are trying to get to

http://virtuals.c-n-s.dnsalias.com

Chris.
Indifference will be the downfall of mankind, but who cares?

JGKWORK · Apr 2, 2003

No problem, thanks for getting back.

ok, your just showing off now! hehe, yeh that's exactely what I need.

I'm off to bed - can't stay awake any longer - back tomorrow at 9am. (UK).

thank you so much for the help..

JGKWORK · Apr 2, 2003

Wait a minute, i've just noticed i can downoad the code! does that mean its workin?! i.e. it wasn't the server? OR am i just getting exited?

I'll try it tommorrow at work, thanks.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

simple ASP code needed to display &amp; not display 1

IS-IT--Management

Programmer

IS-IT--Management

Programmer

IS-IT--Management

IS-IT--Management

IS-IT--Management

IS-IT--Management

IS-IT--Management

IS-IT--Management

IS-IT--Management

IS-IT--Management

IS-IT--Management

IS-IT--Management

IS-IT--Management

IS-IT--Management

IS-IT--Management

IS-IT--Management

IS-IT--Management

IS-IT--Management

Similar threads

Log in

Part and Inventory Search

Sponsor

simple ASP code needed to display & not display 1