Congradulations, by loading/re-loading this asp page,
you have just updated a HYPERLINK PICTURE LIST to a SECURE ASP FILE
STATUS:
<% '---------Make the PicMsg into and array -------------------------------- Dim PicMsg(500) NoPicMsg = 0 '-------------- Modify below Here to change what type if files to display ------------ Dim FileMask(10) ' Define the array to up to 10 masks '---- File Masks to use (Array) ---- FileMask(1) = "*.jpg" ' 1st File Mask FileMask(2) = "*.gif" ' 2nd File Mask ' FileMask(3) = "*.asp" ' 3rd File Mask NoMasks = 2 ' Total Masks '---- Set the name of this file here in lower case ---- NameOfThisFile = "makeprotpiclinks.asp" '---- Output file name & title & body ----- outFile = "Prot-picturesinc.asp" outTitle = "Pictures" ' BodyText = "" BodyText = "" '---- This is a bullet pic used in the list ---- BulletPic = "
"
'--------------- Do Not Modify Below ---------------
lofn = Len(NameOfThisFile)
DirPath = Request.ServerVariables("PATH_TRANSLATED")
DirPath = Left(DirPath, Len(DirPath) - lofn)
DirPathF = ""
For in_nm = 1 to NoMasks
DirPathF = DirPathF & DirPath & FileMask(in_nm) & " "
Next
Set Executor = Server.CreateObject("AspExec.Execute")
Executor.Application = "cmd"
Executor.Parameters = "/C dir " & DirPathF & " /b -d /l"
strResult = Executor.ExecuteDosApp
'----- Strip LineFeeds -----
Dim Detail(5000)
Answer = strResult
Do While InStr(Answer, Chr(10))
x = InStr(Answer, Chr(10))
l = Len(Answer)
If x <> 1 Then
LAns = Left(Answer, x - 1)
RAns = Right(Answer, (l - x))
Answer = LAns + RAns
Else
Answer = Right(Answer, l - (x + 1))
End If
Loop
'------ Parse in an array ------
sc = 1
For in_sq = 1 To Len(Answer)
LAns = Mid(Answer, in_sq, 1)
If LAns <> Chr(13) Then
RAns = RAns + LAns
Else
If RAns <> "" Then
Detail(sc - 1) = RAns
RAns = ""
sc = sc + 1
End If
End If
Next
If RAns <> "" Then
Detail(sc - 1) = RAns
End If
'------------- Open the output File ---------
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
DbgFile = DirPath & outFile
Set OutStream = FileObject.CreateTextFile (DbgFile, True, False)
OutStream.WriteLine "<" & "%"
OutStream.WriteLine "Dim PicMsg(500)"
If BulletPic = "" Then OutStream.WriteLine " - "
'------ Write to Asp Link list File ------
For in_h = 0 To sc
Select Case Detail(in_h)
Case "File Not Found", NameOfThisFile
Case Else
If Detail(in_h) <> "" Then
If BulletPic = "" Then
NoPicMsg = (NoPicMsg + 1)
OutStream.WriteLine "PicMsg(" & (in_h+1) & ") = """ & (in_h+1) & "
- " & Detail(in_h) & "
""" Else NoPicMsg = (NoPicMsg + 1) OutStream.WriteLine "PicMsg(" & (in_h+1) & ") = """ & (in_h+1) & " " & Detail(in_h) & "
""" End If End If End Select Next If BulletPic = "" Then OutStream.WriteLine BulletPic & "
" Response.Write "There Are: " & NoPicMsg & " " & outTitle & " Links.
" Else OutStream.WriteLine "PicMsg(1) = ""SORRY. NO " & outTitle & " AT THIS TIME. PLEASE CHECK BACK LATER.
""" OutStream.WriteLine "NoPicMsg = 1" Response.Write "I am Finished Updating the " & outTitle & " LINK LIST.
" Response.Write "BUT, THERE ARE NO " & outTitle & " AT THIS TIME TO LINK TO.
" End If OutStream.WriteLine "%" & ">" Set OutStream=nothing %> Click HERE! to access it.