asp获取服务器一目录下的所有图片的文件名

<%

'以下为修改内容

Const UploadDir="/picture/" '存放文件的目录

Const Up="/picture/" '存放文件的目录

Const MaxPerPage=30 '每页显示数量

const Webpage="时尚网页" '标题

'检查组件是否已经安装

Function IsObjInstalled(strClassString)

IsObjInstalled = False

Err = 0

Dim xTestObj

Set xTestObj = ServerCreateObject(strClassString)

If 0 = Err Then IsObjInstalled = True

Set xTestObj = Nothing

Err = 0

End Function

dim strFileName

dim totalPut,CurrentPage,TotalPages

dim TruePath,fso,theFolder,theFile,whichfile,thisfile,FileCount,TotleSize

strFileName=""

if request("page")<>"" then

currentPage=cint(request("page"))

else

currentPage=1

end if

TruePath=ServerMapPath(UploadDir)

If not IsObjInstalled("ScriptingFileSystemObject") Then

ResponseWrite "<b><font color=red>你的服务器不支持 FSO(ScriptingFileSystemObject)! 不能使用本功能</font></b>"

Else

set fso=CreateObject("ScriptingFileSystemObject")

if fsoFolderExists(TruePath)then

FileCount=0

TotleSize=0

Set theFolder=fsoGetFolder(TruePath)

For Each theFile In theFolderFiles

FileCount=FileCount+1

TotleSize=TotleSize+theFileSize

next

totalPut=FileCount

if currentpage<1 then

currentpage=1

end if

if (currentpage-1)MaxPerPage>totalput then

if (totalPut mod MaxPerPage)=0 then

currentpage= totalPut \ MaxPerPage

else

currentpage= totalPut \ MaxPerPage + 1

end if

end if

if currentPage=1 then

showContent

showpage2 strFileName,totalput,MaxPerPage

responsewrite "<br><div align='center'>本页共显示 <b>" & FileCount-1 & "</b> 个，占用 <b>" & TotleSize\1024 & "</b> K</div>"

else

if (currentPage-1)MaxPerPage<totalPut then

showContent

showpage2 strFileName,totalput,MaxPerPage

responsewrite "<br><div align='center'>本页共显示 <b>" & FileCount-1 & "</b> 个，占用 <b>" & TotleSize\1024 & "</b> K</div>"

else

currentPage=1

showContent

showpage2 strFileName,totalput,MaxPerPage

responsewrite "<br><div align='center'>本页共显示 <b>" & FileCount-1 & "</b> 个，占用 <b>" & TotleSize\1024 & "</b> K</div><br><br>"

end if

end if

else

responsewrite "找不到文件夹！可能是配置有误！"

end if

end if

sub showContent()

dim c

FileCount=1

TotleSize=0

%>

<TABLE cellSpacing=5 cellPadding=5 border=0>

<TBODY>

<TR bgColor=#ffffff>

<% For Each theFile In theFolderFiles

c=c+1

if FileCount>MaxPerPage then

exit for

elseif c>MaxPerPage(CurrentPage-1) then %>

<TD align=middle width="138">

<img src=<%=(UploadDir & theFileName)%> border=0><br>

<%

dim str

str=""&(theFileName)&""

str1=str

str2=str

str=replace(str,"jpg","")

if instr(1,str,"/")>0 then

str=split(str,"/")

str1=str(0)

end if

%><%=str%>

</td>

<% if FileCount mod 5 =0 then%>

</TR>

<TR bgColor=#ffffff>

<%end if%>

<% FileCount=FileCount+1

TotleSize=TotleSize+theFileSize

end if

Next

%>

</tr></TBODY></table>

<%

end sub

sub showpage2(sfilename,totalnumber,maxperpage)

dim n, i,strTemp

if totalnumber mod maxperpage=0 then

n= totalnumber \ maxperpage

else

n= totalnumber \ maxperpage+1

end if

strTemp= "<TABLE cellSpacing=1 cellPadding=1 border=0 align='center'><TR bgColor=#ffffff><form name='showpages' method='Post' action='" & sfilename & "'><td align='center'>"

strTemp=strTemp & "共 <b>" & totalnumber & "</b> 个 "

if CurrentPage<2 then

strTemp=strTemp & "首页 上一页 "

else

strTemp=strTemp & "<a href='" & sfilename & "page=1'>首页</a> "

strTemp=strTemp & "<a href='" & sfilename & "page=" & (CurrentPage-1) & "'>上一页</a> "

end if

if n-currentpage<1 then

strTemp=strTemp & "下一页 尾页"

else

strTemp=strTemp & "<a href='" & sfilename & "page=" & (CurrentPage+1) & "'>下一页</a> "

strTemp=strTemp & "<a href='" & sfilename & "page=" & n & "'>尾页</a>"

end if

strTemp=strTemp & " 页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "

strTemp=strTemp & " <b>" & maxperpage & "</b>" & "个/页"

strTemp=strTemp & " 转到：<select name='page' size='1' onchange='javascript:submit()'>"

for i = 1 to n

strTemp=strTemp & "<option value='" & i & "'"

if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected "

strTemp=strTemp & ">第" & i & "页</option>"

next

strTemp=strTemp & "</select>"

strTemp=strTemp & "</td></form></tr></table>"

responsewrite strTemp

end sub

%>

这是我以前写的一个上传的时候，里面用到了获取路径的代码，你看看对你有用不吧，如果对这个代码有不懂的，可以追问，下面附上我的代码：

protected void btnUp_Click(object sender, EventArgs e)

{

//1验证是否选择文件

if (fuImgHasFile)

{

//2验证文件类型是否符合要求

//获取文件后缀()

string strFileType = PathGetExtension(fuImgPostedFileFileName)ToLower();//获取文件后缀名,ToLower():转化为小写

//4获取上传后的目录//将虚拟路径映射成物理目录路径

string strPath = ServerMapPath(ConfigurationManagerAppSettings["upPath"]ToString());

//获取配置文件Webconfig中appSettings中的imgType

string strType = ConfigurationManagerAppSettings["imgType"]ToString();

if (strTypeIndexOf(strFileType) > -1)

{

//3验证文件大小

if (fuImgPostedFileContentLength < 2048000)

{

DateTime dtNow = DateTimeNow;

//以年月日创建文件夹

strPath += dtNowToString("yyyy-MM-dd")+"\\";

try

{

//验证指定目录文件夹是否存在

if (!DirectoryExists(strPath))

{

//创建文件夹

DirectoryCreateDirectory(strPath);

}

//文件重命名

string strNewName = dtNowToString("yyyyMMddhhmmssfff") + strFileType;

//保存(服务器)

fuImgSaveAs(strPath + strNewName);

ResponseWrite("文件上传成功！");

}

catch (Exception ex)

{

ResponseWrite(exMessage);

}

}

else

ResponseWrite("对不起，上传文件不得超过2M！");

}

else

ResponseWrite("对不起，上传文件类型不正确！");

}

else

ResponseWrite("对不起，请选择上传文件！");

}

asp教程 显示目录所有文件 option   explicit dim   infopath                     当前路径   dim   serverpath                 服务器路径   dim   objfso                         文件组件   dim   objfile                       文件   dim   objfolder                   目录   dim   objfoldercontents   所有文件   dim   objfoldercount         临时数组变量 文件夹   dim   objfileitem               临时数组变量 文件

infopath=request servervariables("path_info")       得到文件相对路径   serverpath=server mappath(infopath)                                   得到文件绝对路径

set   objfso=createobject("scripting filesystemobject")       实例文件组件   set   objfile=objfso getfile(serverpath)                                     读取文件所在路径   set   objfolder=objfile parentfolder                                             根据文件所在路径得到上级目录

set   objfoldercontents=objfolder files                                       所有文件付给数组

for   each   objfileitem   in   objfoldercontents                               循环   response write(" 文件名   next

代码二

set fso = server createobject("scripting filesystemobject") if fso folderexists(request("filepath")) then set objfolder = fso getfolder(request("filepath"))  for each objfile in objfolder files              response write objfile name          next          set objfolder = nothing set fso = nothing

lishixinzhi/Article/program/net/201311/14070

string[] files = SystemIODirectoryGetFiles(@"D:\OD\", 

"doc",SystemIOSearchOptionTopDirectoryOnly);//获取该目录下的Doc文件

string[] files = SystemIODirectoryGetFiles(@"D:\OD\", "docx",SystemIOSearchOptionTopDirectoryOnly);//获取该目录下的Docx文件

string[] files = SystemIODirectoryGetDirectories(@"D:\OD\");//获取子文件夹

首先根据你的类型可以进行分组,如文件夹,和Word文档,也可以不分组最后从上面的代码中获取到文件夹和Word名称,做为项加入到组中,然后再根据项选选择相应的就可以了(如Word样式的或是文件夹样式的)

以上就是关于asp获取服务器一目录下的所有图片的文件名全部的内容，包括:asp获取服务器一目录下的所有图片的文件名、求一个asp.net 程序实例。获取当前网站所有虚拟目录的绝对路径、asp 显示目录所有文件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！