www.gusucode.com > 站长俱乐部新闻发布系统精简版 1.01源码程序 > admin/admin_image_list.asp

    
	<% 
	dim config
	Set config = Server.CreateObject("ADODB.Recordset")
	config.ActiveConnection = MM_oConn_STRING
	config.Source = "SELECT * FROM ac_configuration"
	config.CursorType = 0
	config.CursorLocation = 2
	config.LockType = 1
	config.Open()
	'config_numRows = 0
	dim myDirectory
	myDirectory = config.Fields.Item("Upload_directory").Value
	config.close()
	
	dim imageStr, imageName, filepath, fileCounter
	dim strFileType1, s, DDF
	fileCounter=1
	
	'dim fso, 
	dim file, folderObject, filesObject
	Set fso = CreateObject("Scripting.FileSystemObject")
	dim fsError
	fsError = false
	
	'check for errors
	on error resume next
	Set folderObject = fso.GetFolder(Server.MapPath(myDirectory & "\Image\"))
        if Err.Number<>0 then
               FileSystemError016(myDirectory)
               fsError = true
        end if
        on error goto 0

        'if no error detected
        if fsError = false then
        	Set filesObject = folderObject.Files
        	response.write("<table border='0'>")
        	dim iWidth, iHeight, myImg, displayWidth, displayHeight, zoomRatio
        	
        	For Each file In filesObject 
        		filepath = file.Name
        		filepath = replace(filepath,"%","%25")
        		filepath = replace(filepath," ","%20")
        		strFileType1 = mid(filepath, instrrev(filepath, ".") + 1,len(filepath) - instrrev(filepath, "."))
        		if strFileType1 = "jpg" or strFileType1 = "gif"  then
        			imageName = filepath
        			imageStr = "[""" & imageName &""",""" & myDirectory & "/Image/" & imageName & """],"
        			'start catch file permission errors
                                on error resume next
                                set myImg = loadpicture(file)
        			'write file permission errors
                                if Err.Number<>0 then
                                       FileSystemError029(file)
                                       fsError = true
                                end if
                                if fsError <> true then
                                        iWidth = round(myImg.width / 26.4583)
                			iHeight = round(myImg.height / 26.4583)
                			zoomRatio = 100
                			displayWidth = iWidth*(zoomRatio/iWidth)
                			displayHeight = iHeight*(zoomRatio/iWidth)
        
                			if(fileCounter<2)then
                   				response.write("<tr><td class='content_images'><center>")
                   				response.write("<img src='" & myDirectory & "/Image/" & imageName & "' width='" & displayWidth & "' height='"& displayHeight & "'><br>")
                   				response.write(filePath) & "<br>"
                   				'response.write(iWidth & " x " & iHeight & "</center></td>")
                				fileCounter=fileCounter+1
                			elseif(fileCounter>3)then
                   				response.write("<td class='content_images'><center>")
                   				response.write("<img src='" & myDirectory & "/Image/" & imageName & "' width='" & displayWidth & "' height='"& displayHeight & "'><br>")
                				response.write(filePath) & "<br>"
                				response.write("</center></td></tr>")
                				fileCounter=1
                			else
                   				response.write("<td class='content_images'><center>")
                   				response.write("<img src='" & myDirectory & "/Image/" & imageName & "' width='" & displayWidth & "' height='"& displayHeight & "'><br>")
                				response.write(filePath) & "<br>"
                				response.write("</center></td>")
                				fileCounter=fileCounter+1
                			end if
                                end if
        		end if
        	Next 
        	
        	response.write("</table>")
        	
        	Set filesObject = Nothing 
        	Set folderObject = Nothing 
        	Set fso = Nothing
        
        end if
	%>