Asp显示某文件夹下图片的程序
2008-04-30 17:08
239 查看
<%
Dim FolderName,Title
'Title为名称
FolderName为文件夹名称。
FolderName="Pictrue"
Title="图片List"
TruePath=server.MapPath(".")&"/"&FolderName
Response.Write TruePath
%>
<h1><font color=red><%=Title%></font></h1><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
'------------------------------------------------显示当前目录下的子目录和文件
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(TruePath)
set fs=f.SubFolders
Set fc =f.Files
i=1
For Each f1 in fc
dim filename
filename=f1.name
IF i=1 THen
%>
<tr>
<%
End IF
%>
<td align="center"><a href="<%=Replace(p2v_path(f1),"small","Big")%>" target="_blank"><Img border="0" width="200" src="<%=p2v_path(f1)%>"></a></td>
<%
If i=4 Then
i=0
%>
<%
End IF
i=i+1
Next
set fso=nothing
%>
</table>
<%
'-----------------------------------------------将文件路径转为www发布的路径这样就可以下载了
function p2v_path(p_path)
'p_path为硬盘上的物理路径
dim host
host=lcase(server.MapPath("/"))
p_path=lcase(p_path)
p2v_path=replace(p_path,host,const_domain_name)
end function
%>
注意:FolderName必须在此程序下。
Dim FolderName,Title
'Title为名称
FolderName为文件夹名称。
FolderName="Pictrue"
Title="图片List"
TruePath=server.MapPath(".")&"/"&FolderName
Response.Write TruePath
%>
<h1><font color=red><%=Title%></font></h1><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
'------------------------------------------------显示当前目录下的子目录和文件
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(TruePath)
set fs=f.SubFolders
Set fc =f.Files
i=1
For Each f1 in fc
dim filename
filename=f1.name
IF i=1 THen
%>
<tr>
<%
End IF
%>
<td align="center"><a href="<%=Replace(p2v_path(f1),"small","Big")%>" target="_blank"><Img border="0" width="200" src="<%=p2v_path(f1)%>"></a></td>
<%
If i=4 Then
i=0
%>
<%
End IF
i=i+1
Next
set fso=nothing
%>
</table>
<%
'-----------------------------------------------将文件路径转为www发布的路径这样就可以下载了
function p2v_path(p_path)
'p_path为硬盘上的物理路径
dim host
host=lcase(server.MapPath("/"))
p_path=lcase(p_path)
p2v_path=replace(p_path,host,const_domain_name)
end function
%>
注意:FolderName必须在此程序下。
相关文章推荐
- 自定义HTTP处理程序显示图片(asp.net 2.0)
- ListView图片查看小程序(用listview显示某个文件夹中图片为缩略图,picturebox显示大图)
- 用ASP.net 的GridView控件分页显示图片,并历遍给定的文件夹中的文件绑定到GridView控
- ASP.NET:在一般处理程序中通过 Session 保存验证码却无法显示图片?
- Asp.net显示文件夹中的图片
- 一段ASP单页显示文件夹下所有图片的代码
- Asp.net显示文件夹中的图片
- asp.net如何把图片存入文件夹并显示
- ASP.NET程序实时显示更新后的图片(防止缓存)
- WinForm版ListView图片查看小程序(用ListView显示某个文件夹中图片为缩略图,PictureBox显示大图)
- ASP.NET程序在不同的机子上,不显示中文名图片
- 在asp.net中自动合并小图片并使用css sprite显示出来
- asp.net抓取图片、保存成字节、文件夹、按固定区域截图
- 使用鼠标(像QQ截图一样)自由截取Unity程序中的任意地方 && 获取本地文件夹下的所有图片
- 利用ASP.NET来访问Excel文档+DATAGRID显示数据[注意:Excel中有图片]
- Android开发之--读取文件夹下图片生成略缩图并点击显示大图
- [ASP] 数据库中 OLEDB 格式 jpeg 图片的读取及显示(原作)
- android开发如何用file读出sdcard中含图片的文件夹,并将文件夹显示到listview上????
- asp.net(c#)从数据库里读取图片并显示到页面