vbscript - How to Display images 100x75, and on click, display them in original size. ASP classic -

-

the code below first displays folders hyperlinks, can click these folders , if contain jpg's display them.

is possible make these images display attributes width="100" height="75" still allow me click them , have them display original size?

<% const forreading = 1, forwriting = 2, forappending = 3 const tristateusedefault = -2, tristatetrue = -1, tristatefalse = 0  qfolder = request.querystring("f") if qfolder = ""     folderspec = server.mappath(".")     set filesys = createobject("scripting.filesystemobject")      set demofolder = filesys.getfolder(folderspec)      set folcoll = demofolder.subfolders     each subfol in folcoll         folsize = left((subfol.size/1000000), 3)         folist = folist & "<a href='?f=" & subfol.name & "'><strong title='view'></strong> " & subfol.name & "" & vbcrlf         folist = folist & "<br>"       next     set filesys = nothing     response.write folist  else  filepath = server.mappath(".") & "\" & qfolder captionfile = filepath & "\captions.txt" set filesys = createobject("scripting.filesystemobject") dim somearray() 'caption part     if filesys.fileexists(captionfile)         set file = filesys.getfile(captionfile)         set textstream = file.openastextstream(forreading,tristateusedefault)         captioncount = 0         while not textstream.atendofstream             line = textstream.readline             redim preserve somearray(captioncount)             somearray(captioncount) = line             'response.write captioncount & " " & somearray(captioncount) & "<br>"             captioncount = captioncount + 1             'response.write line         loop         textstream.close     end if  'folder part     set demofolder = filesys.getfolder(filepath)      set filecoll = demofolder.files     filecount = 0     each file in filecoll         ext = ucase(right(file.path, 3))          if ext = "jpg" or ext = "gif"         on error resume next         data = somearray(filecount)         on error goto 0         hrefpath = qfolder & "/" & file.name         imagepath = "<strong>" & data & "</strong><br><a href='" & hrefpath & "' title='free image gallery' border=0><img src='" & hrefpath & "' border='" & border_size & "' title=""" & data & """ style='border-color: " & border_color & ";'></a><br>"         filist = filist & imagepath & vbcrlf         filist = filist & "<br>"         filecount = filecount + 1         data = ""         end if     next     set filesys = nothing     filist = filist & "<br><small><a href='http://www.allscoop.com/' target='_blank'>allscoop free image gallery</a></small>" %>  <h3><a href="." title="up 1 level">&#171;</a> &nbsp;<%=qfolder%></h3>  <p><%=filist%></p>  <% end if %>

thanks

you need update single line tag created:

imagepath = "<strong>" & data & "</strong><br><a href='" & hrefpath & _        "' title='free image gallery' border=0><img width=100 height=75 src='" &_        hrefpath & "' border='" & border_size & "' title=""" & data &_        """ style='border-color: " & border_color & ";'></a><br>"

just in case here complete script:

<% const forreading = 1, forwriting = 2, forappending = 3 const tristateusedefault = -2, tristatetrue = -1, tristatefalse = 0  qfolder = request.querystring("f") if qfolder = ""     folderspec = server.mappath(".")     set filesys = createobject("scripting.filesystemobject")      set demofolder = filesys.getfolder(folderspec)      set folcoll = demofolder.subfolders     each subfol in folcoll         folsize = left((subfol.size/1000000), 3)         folist = folist & "<a href='?f=" & subfol.name & "'><strong title='view'></strong> " & subfol.name & "" & vbcrlf         folist = folist & "<br>"       next     set filesys = nothing     response.write folist  else  filepath = server.mappath(".") & "\" & qfolder captionfile = filepath & "\captions.txt" set filesys = createobject("scripting.filesystemobject") dim somearray() 'caption part     if filesys.fileexists(captionfile)         set file = filesys.getfile(captionfile)         set textstream = file.openastextstream(forreading,tristateusedefault)         captioncount = 0         while not textstream.atendofstream             line = textstream.readline             redim preserve somearray(captioncount)             somearray(captioncount) = line             'response.write captioncount & " " & somearray(captioncount) & "<br>"             captioncount = captioncount + 1             'response.write line         loop         textstream.close     end if  'folder part     set demofolder = filesys.getfolder(filepath)      set filecoll = demofolder.files     filecount = 0     each file in filecoll         ext = ucase(right(file.path, 3))          if ext = "jpg" or ext = "gif"         on error resume next         data = somearray(filecount)         on error goto 0         hrefpath = qfolder & "/" & file.name         imagepath = "<strong>" & data & "</strong><br><a href='" & hrefpath & "' title='free image gallery' border=0><img width=100 height=75 src='" & hrefpath & "' border='" & border_size & "' title=""" & data & """ style='border-color: " & border_color & ";'></a><br>"         filist = filist & imagepath & vbcrlf         filist = filist & "<br>"         filecount = filecount + 1         data = ""         end if     next     set filesys = nothing     filist = filist & "<br><small><a href='http://www.allscoop.com/' target='_blank'>allscoop free image gallery</a></small>" %>  <h3><a href="." title="up 1 level">&#171;</a> &nbsp;<%=qfolder%></h3>  <p><%=filist%></p>  <% end if %>

Comments

Post a Comment

Popular posts from this blog

c# - SVN Error : "svnadmin: E205000: Too many arguments" -

-
i trying reposotries using c# code process svncommand = null; var psi = new processstartinfo("svnadmin"); psi.redirectstandardoutput = true; psi.redirectstandarderror = true; psi.useshellexecute = false; psi.arguments= @"dump c:\repositories\myrepo > c:\temp\myrepodumpfile.dump"; using (svncommand = process.start(psi)) { var myoutput = svncommand.standardoutput; var myerror = svncommand.standarderror; debug.write("output :" + environment.newline + environment.newline + myoutput.readtoend() + environment.newline + "error :" + environment.newline + environment.newline + myerror.readtoend()); svncommand.close(); } when use dump command commandline svnadmin dump c:\repositories\myrepo > c:\temp\myrepodumpfile.dump it works fine when try ...
Read more

c++ - Using OpenSSL in a multi-threaded application -

-
i have been writing soap client application in c++ on ubuntu using openssl https transport , pthreads threading. have number of threads - 1 central data acquisition thread periodically gets worker threads make soap requests via shared mutex protected queues. reading documentation openssl found is openssl thread-safe? in openssl faq describes mechanisms required ensure thread safety when using openssl. implemented , works fine. the reason question conceptual difficulty really. thinking implementing same functionality application has already, instead of using threads, create 2 seperate applications : 1 worker thread (of multiple copies running) , main data acquisition thread. use tcp sockets communicate between 2 rather mutex protected queues. may bad idea not important - confusing me would have implement same functions required ensure openssl thread safety in second approach or not? my guess not have , treated independent (indeed surely must many applications use openssl) re...
Read more

All overlapping substrings matching a java regex -

-
is there api method returns (possibly overlapping) substrings match regular expression? for example, have text string: string t = 04/31 412-555-1235; , , have pattern: pattern p = new pattern("\\d\\d+"); matches strings of 2 or more characters. the matches are: 04, 31, 412, 555, 1235. how overlapping matches? i want code return: 04, 31, 41, 412, 12, 55, 555, 55, 12, 123, 1235, 23, 235, 35. theoretically should possible -- there obvious o(n^2) algorithm enumerates , checks substrings against pattern. edit rather enumerating substrings, safer use region(int start, int end) method in matcher . checking pattern against separate, extracted substring might change result of match (e.g. if there non-capturing group or word boundary check @ start/end of pattern). edit 2 actually, it's unclear whether region() expect zero-width matches. specification vague, , experiments yield disappointing results. for example: string line = "xx90xx"; strin...
Read more