|
|
<%
' This function takes a filename and returns the appropriate image for
' that file type based on it's extension if the file exists.
Function ShowImage(strName, strPath)
Dim strTemp
Dim objFE
' Create an FSO
Set objFE = Server.CreateObject("Scripting.FileSystemObject")
'response.write strPath & strName
' Check if the file exists
if objFE.FileExists(strPath & strName) = true then
' Set our working string to the one passed in
strTemp = strName
' If it's not a directory, get the extension and set it to strTemp
' If it is a directory, then we already have the correct value
If strTemp <> "dir" Then
strTemp = LCase(Right(strTemp, Len(strTemp) - InStrRev(strTemp, ".", -1, 1)))
End If
' Debugging line used to perfect that above string parser
'Response.Write strTemp
' Set the part of the image file name that's unique to the type of file
' to it's correct value and set this to strTemp. (yet another use of it!)
Select Case strTemp
Case "txt"
strTemp = "txt"
case "mps"
strTemp = "mps"
case "trk"
strTemp = "trk"
case "plt"
strTemp = "plt"
Case Else
strTemp = "misc"
End Select
' All our logic is done... build the IMG Tag for display to the browser
' Place it into... where else... strTemp!
' My images are all GIFs and all start with "dir_" for my own sanity.
' They end with one of the values set in the select statement above.
'response.write "images/dir_" & strTemp & ".gif"
strTemp = "![]() "
else
strTemp = ""
end if
Set objFE = Nothing
' Set return value and exit function
ShowImage = strTemp
End Function
%>
<%
' This function takes a filename and returns the appropriate image for
' that file type based on it's extension if the file exists.
Function ShowInfo(strName, strPath)
Dim strTemp
Dim objFE
' Create an FSO
Set objFE = Server.CreateObject("Scripting.FileSystemObject")
'response.write strPath & strName
' Check if the file exists
if objFE.FileExists(strPath & strName) = true then
Dim a, b
strTemp = ""
'create class instance
Set a = New INITool
'load ini file
a.Load strPath & strName
'read key's value from header
b = a.Read("info", "distance", "")
if b <> "" then
strTemp = strTemp & " A: " & b
end if
b = a.Read("info", "hights", "")
if b <> "" then
strTemp = strTemp & " HM: " & b
end if
'release class
Set a = Nothing
' Set our working string to the one passed in
else
strTemp = ""
end if
Set objFE = Nothing
' Set return value and exit function
ShowInfo = strTemp
End Function
%>
<%' Now to the Runtime code:
Dim strPath 'Path of directory to show
Dim objFSO 'FileSystemObject variable
Dim objFolder 'Folder variable
Dim objItem 'Variable used to loop through the contents of the folder
Dim strName 'Name of file without extension
Dim strPrevName 'Previous file name without extension
Dim iCnt 'Counter variable
' You could just as easily read this from some sort of input, but I don't
' need you guys and gals roaming around our server so I've hard coded it to
' a directory I set up to illustrate the sample.
' NOTE: As currently implemented, this needs to end with the /
' Display al de toertochten tracks
strPath = "Tracks/"
strPrevName = ""
' Create our FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Get a handle on our folder
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
' Show a little description line and the title row of our table
%>
Waypoints (en POI's)
conversie van Waypoints, Tracks en routes: zoek even naar GPS
Utility en Importer en GPSBabel
bij de links.
Wat is een waypoint, track en een route?
!! Maak steeds gebruik van de
laatste versie van MapSource. Denk eraan, MetroGuide, City Select,
City Navigator zijn de garmin kaarten en worden geleverd met MapSource
erbij. Mapsource is enkel het universele programma dat gebruikt wordt
om garmin kaarten te tonen op een pc en om te communiceren met je GPS.
Deze software is gratis te updaten. !!
Beschikbare Waypoints:
Een specialere versie van waypoints zijn de POI's (Points Of Interest). Oftewel de Nuttige Plaatsen. Ipv individuele punten zijn dit eerder lijsten van punten toebehorend aan eenzelfde onderwerp. In recentere GPS toestellen kunnen deze als complete lijsten ingeladen worden.
Voor tal van gratis te downloaden POI's zie: POIHandler.com
Een speciaal gebruik van POI's zijn dan weer de flitspalen, waarbij ook de nabijheid door de GPS kan aangegeven worden. Op deze manier kan de gebruiker dan een verwittiging van de nabijheid van een flitspaal krijgen.
|
