An ASP image viewing script I wrote.

[Nad Adam]

I wrote an image viewing script in ASP to easily share my porn with my friends. And I would like to share it with you all. It could probably be prettier written but it does the job.

Hope you enjoy!

Hmm, I tried to paste the script into the post but it didnt like that so here's a zipped file instead: http://www.simmalugnt.com/TFP/imageviewer.zip



Edit: Figured it out.

&lt;!--<br>
#######################################################################<br>
# Nad Adams Self-Updating Imagebrowser.<br>
# Ok, this is a script that shows all folders and pictures <br>
# (jpg, gif and png) that are in a specified folder. That might seem <br>
# like nothing useful but trust me, it is. What's nice with this one <br>
# is that you just have to put the pictures and folders in the main <br>
# folder and they show on the page and when you remove them they're <br>
# gone! As you've probably guessed I made this one for easy browsing of<br>
# my pr0n collection =)<br>
#<br>
# It's free for anyone to use, if you like it and would like to thank<br>
# me just send me a link to the directory where you store your pr0n, I <br>
# guaratee I won't pass it on. My adress is nadaham@home.se, I guess <br>
# it's pr0nware.
<p>#######################################################################<br>
# Setup Instructions!<br>
# Very easy, just change the variable StartPath to the folder where you<br>
# have your images and you're done. For example if the path to your <br>
# images is http://www.images.com/vacation/ then StartPath = vacation <br>
# or if it's deeper in the folderstructure like <br>
# http://www.images.com/vacation/mardigras then <br>
# StartPath = vacation/mardigras . <br>
--&gt;</p>
<p>&lt;%</p>
<p>Dim PhysicalPath, StartPath, UnderFolder<br>
PhysicalPath = lcase(Request.ServerVariables(&quot;APPL_PHYSICAL_PATH&quot;))<br>
StartPath = &quot;Images&quot;<br>
PhysicalPath = PhysicalPath &amp; StartPath<br>
UnderFolder = Request.QueryString(&quot;SubFolder&quot;)<br>
If Not Request.QueryString(&quot;SubFolder&quot;) = &quot;&quot; Then PhysicalPath
= PhysicalPath &amp; &quot;\&quot; &amp; Request.QueryString(&quot;SubFolder&quot;)<br>
<br>
'Startar FileSystemObject<br>
set FS = Server.CreateObject(&quot;Scripting.FileSystemObject&quot;)</p>
<p>'Ger s&ouml;kv&auml;gen fr&aring;n dom&auml;nrooten<br>
DomainPath = Request.ServerVariables(&quot;URL&quot;)<br>
'Filnamnet<br>
Filnamn = FS.GetFileName(DomainPath)<br>
Set Folder = FS.GetFolder(PhysicalPath)</p>
<p>'Show filenames<br>
For Each Subfolder in Folder.Subfolders<br>
%&gt;<br>
&lt;a href=&quot;file:///V|/www.simmalugnt.com/Bilder/&lt;% =Filnamn %&gt;?SubFolder=&lt;%
=Server.URLEncode(UnderFolder &amp; &quot;/&quot; &amp; subfolder.name) %&gt;&quot;&gt;&lt;%
=subfolder.name %&gt;&lt;/a&gt;&lt;br&gt;<br>
&lt;%<br>
Next</p>
<p>For Each File in Folder.Files<br>
Extension = lcase(FS.GetExtensionName(File.Name))<br>
If Extension=&quot;jpg&quot; or Extension=&quot;gif&quot; or extension=&quot;png&quot;
Then<br>
%&gt;<br>
&lt;img src=&quot;http://&lt;% =Request.ServerVariables(&quot;HTTP_HOST&quot;)
%&gt;/&lt;% =StartPath %&gt;/&lt;% =Request.QueryString(&quot;SubFolder&quot;)
%&gt;/&lt;% =File.Name %&gt;&quot;&gt;&lt;br&gt;<br>
&lt;%<br>
End If<br>
Next<br>
%&gt;<br>
</p>

[rubicon]

Thanks for the post!