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 %>