jspadmin的专栏

jspadmin的空间

jspadmin 厦门市在线状态

共2861次访问，排名73好友51人，关注者150人
web-asp,hack,network

注册时间：2002-11-7
登录时间：2008-6-28

jspadmin的个人资料

所在行业：计算机网络安全

社区头衔：荣誉专家社区专家

个人专长：

信息化,web,asp,hack,network

专家分: 目前总共有63440分

扩充话题:30630分 Web 开发:30001分硬件使用:1005分

博客：目前总共有24条评论

访问量:902

排名:20000名之外

文章数:1条

jspadmin的好友

wronging发表于：2008-06-03: 帖子的位置：http://topic.csdn.net/u/20080603/22/c6ef2430-3e62-4fa0-8177-4cd71226b92f.html
麻烦帮忙看看

wronging发表于：2008-06-03: % Const FoldPath = "mian" '图片文件夹相对地址Dim objFSO Dim objFolder Dim objFile Dim tDim filePathDim strFileName Dim strFileExtension Dim blnShowImages sub showImgOfForder(imgForder) Set objFolder = objFSO.GetFolder(Server.MapPath(imgForder)) For Each objFile In objFolder.Files strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1)) filePath = imgForder & "/" & objFile.Name If strFileExtension = "gif" Or strFileExtension = "jpg" Or strFileExtension = "jpeg" Then if t mod 10 = 0 and t > 0 then response.Write "</tr><tr> " t = t +1 End If Next end subsub showImgOfSubForder(imgForder) set sfolder=objFSO.GetFolder(Server.MapPath(imgForder)).SubFolders for each FolderItem in sfolder showImgOfForder imgForder & "/" & FolderItem.Name showImgOfSubForder imgForder & "/" & FolderItem.Name nextend sub Set objFSO = Server.CreateObject("Scripting.FileSystemObject") t = 0showImgOfForder FoldPath showImgOfSubForder FoldPath' objFile Set objFolder = Nothing Set objFSO = Nothing ReDim FileArr(Getfiles.count-1,2) i = 0 For Each f In Getfiles IF strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1)) Then '取出文件名 FileArr(i,0) = filepath '取出文件建立时间 FileArr(i,1) = f.DateCreated FileArr(i,2) = f.Size APFSize=APFSize+f.Size i = i + 1 End IF

wronging发表于：2008-06-03: % Const FoldPath = "mian" '图片文件夹相对地址Dim objFSO Dim objFolder Dim objFile Dim tDim filePathDim strFileName Dim strFileExtension Dim blnShowImages sub showImgOfForder(imgForder) Set objFolder = objFSO.GetFolder(Server.MapPath(imgForder)) For Each objFile In objFolder.Files strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1)) filePath = imgForder & "/" & objFile.Name If strFileExtension = "gif" Or strFileExtension = "jpg" Or strFileExtension = "jpeg" Then if t mod 10 = 0 and t > 0 then response.Write "</tr><tr> " t = t +1 End If Next end subsub showImgOfSubForder(imgForder) set sfolder=objFSO.GetFolder(Server.MapPath(imgForder)).SubFolders for each FolderItem in sfolder showImgOfForder imgForder & "/" & FolderItem.Name showImgOfSubForder imgForder & "/" & FolderItem.Name nextend sub Set objFSO = Server.CreateObject("Scripting.FileSystemObject") t = 0showImgOfForder FoldPath showImgOfSubForder FoldPath' objFile Set objFolder = Nothing Set objFSO = Nothing ReDim FileArr(Getfiles.count-1,2) i = 0 For Each f In Getfiles IF strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1)) Then '取出文件名 FileArr(i,0) = filepath '取出文件建立时间 FileArr(i,1) = f.DateCreated FileArr(i,2) = f.Size APFSize=APFSize+f.Size i = i + 1 End IF

1 2 3 4

给jspadmin的留言