This is my first translation article, inadequate, please forgive me. India, now the reason why it has become a big software export, there are many places better than us. One of the primary advantages is that India's official language is English, which brings a unique advantage for Indian programmers as programming languages. For those who are engaged in IT industry, they should also strengthen their own English training. First, I would like to thank 9CBS to provide such a platform. Nothing to gossip, the text is as follows:
Introduction If you have a website that has been running two months, you may notice that you have accumulated a lot of pictures on your website. Although we have tried our best to naming these picture files, we will always hardly think of some of the picture file names or use when we go to the file name of these images. At this time, we usually use the browser to open those pictures with your browser. What is the picture? At this time, this ASP code can be used as a picture browser (and cleaning) to browse these pictures and perform cleanup operations.
Encoding: In fact, this program is a list page containing all images in a directory. Use the FileSystemObject object to list these image files (GIF and JPEG files). Add a link to Toggle Display to control whether the image is displayed. When you have a lot of files, don't want to load them, you can only display a picture of the page, reverse, if you are not sure that some file naming is meaning, this feature will help you clean up. Here is a very simple code <% @ language = vbscript%> <% option explicit%> <% const imagefilepath = "images" const deletebuttonLabel = "delete successd images"
DIM Objfsodim ObjfolderDim objfile
DIM STRFILENAMEDIM STRFILEXTENSIM STRFILEEXTENSIM STRFILEEXTENSIM STRFILEEXTENSIM
DIM BLNSHOWIMAGES
If Request.QueryString ("Showimages") = "" "" "")) Endiff (Request.QueryString ("showimages)) endiffs
If Request.form ("btndelete") = deleteButtonLabel Then set objfso = Server.createObject ("scripting.filesystemobject")
For Each Strfilename in Request.form ("delete") objfso.deletefile (server.mappath (imagefilepath & ") Next @ mf mf
Set objfso = not%>