address book 1.0(
this code is for an address book that allows the user to input his/her addresses the user may input as many addresses as he/she likes.(",)
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
Upload
<%@ Language=VBScript %>
<% option explicit %>
<% Response.Buffer = True %>
<%
Dim sSort
Dim FileArray() ' (0 is name, 1 is size, and 2 is last modified)
dim objFSO
dim objFile
dim objFolder
dim sMapPath
dim sUrlPath
Dim filename, filecollection, filesize, modified
Dim i
Dim FinalFileArray
' Make path strings (change this to the path of the folder you want to see)
sUrlPath = "iDesign/pages/Sample Files"
sMapPath = Server.MapPath(sUrlPath)
' Create FSO object and buddies
set objFSO = createobject("Scripting.FileSystemObject")
set objFolder = objFSO.GetFolder(sMapPath)
Set filecollection = objFolder.Files
' Resize file array to appropriate number of files to hold (with 3 attributes to hold
Redim FileArray(2,filecollection.count - 1)
Redim FinalFileArray(2,filecollection.count - 1)
' Load file data into array
i = 0
For Each objFile In objFolder.Files
filename=right(objFile.name,len(objFile.name)-InStrRev(objFile.name, "\"))
filesize = objFile.size
modified = objFile.DateLastModified
FileArray(0, i) = filename
FileArray(1, i) = filesize
FileArray(2, i) = modified
i = i + 1
Next
' Sort array according to method
sSort = Request("Sort")
Select case sSort
Case "Name"
FinalFileArray = SortAlpha(FileArray,"DESC",0)
Case "Size"
FinalFileArray = SortAlpha(FileArray,"DESC",1)
Case "Modified"
FinalFileArray = SortAlpha(FileArray,"DESC",2)
End Select
' ***********************************************************
' ***********************************************************
' ** 2-D sorting function **
' ***********************************************************
' ***********************************************************
Function SortAlpha(ary, direction, indexnum)
Dim StopWork
Dim i
dim i2
Dim firstval()
Dim secondval()
redim firstval(ubound(ary,1))
redim secondval(ubound(ary,1))
StopWork=False
Do Until StopWork=True
StopWork=True
For i = 0 To UBound(ary,2)
if i=UBound(ary,2) Then Exit For
if UCase(Direction) = "DESC" Then
if ary(indexnum,i) < ary(indexnum,i+1) Then
For i2 = 0 to ubound(firstval)
firstval(i2) = ary(i2,i)
secondval(i2) = ary(i2,i+1)
ary(i2,i) = secondval(i2)
ary(i2,i+1) = firstval(i2)
Next
StopWork=False
End if
Else
if ary(indexnum,i) > ary(indexnum,i+1) Then
For i2 = 0 to ubound(firstval)
firstval(i2) = ary(i2,i)
secondval(i2) = ary(i2,i+1)
ary(i2,i) = secondval(i2)
ary(i2, i+1) = firstval(i2)
Next
StopWork=False
End if
End if
Next
Loop
SortAlpha=ary
End Function
%>
<html>
<head>
<title></title>
</head>
<body>
<table width="75%" border="2" cellspacing="0" cellpadding="2" align="center" bgcolor="#FFFFCC" bordercolor="#000000">
<tr>
<td> <!-- The name of this particular file was Directory.asp -->
<div align="center"><b><a href="Directory.asp?Sort=Name">Name</a></b></div>
</td>
<td>
<div align="center"><b><a href="Directory.asp?Sort=Size">Size</a></b></div>
</td>
<td>
<div align="center"><b><a href="Directory.asp?Sort=Modified">Modified</a></b></div>
</td>
</tr>
<%
For i = 0 to Ubound(FinalFileArray,2)
filename=FinalFileArray(0,i)
filesize = FinalFileArray(1,i)
modified = FinalFileArray(2,i)
Response.Write "<tr><td>" & FileName & "</td><td>" & filesize & "</td><td>" & modified & "</td></tr>"
Next
%>
</table>
</body>
</html>
Original Comments (3)
Recovered from Wayback Machine