Asp显示某文件夹下图片的程序
来源:互联网 发布:linux 静态ip 网关 编辑:程序博客网 时间:2024/04/30 07:41
<%
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必须在此程序下。
- Asp显示某文件夹下图片的程序
- Java修改文件夹下图片的名称
- 查找文件夹下图片的数量
- IE6 下图片不能显示的问题解决
- asp.net web页面显示服务器绝对路径下图片
- 《程序猿的第n+2天》-Myeclipse下图片无法显示问题
- 随机获取文件夹下图片
- Android 读取R.raw文件夹下图片的分辨率问题
- 安卓各个分辨率文件夹下图片的比例
- 批量装换文件夹下图片的格式
- opencv读取某文件夹下图片并进行归一化
- 我的第一个MFC小程序——文件夹下图片批量灰度化和归一化
- MFC、OpenCV下图片显示
- 不同dpi下图片显示的理解的demo
- asp.Net下图片防止盗链的原理
- MFC下图片保存的截屏程序
- Android开发之--读取文件夹下图片生成略缩图并点击显示大图
- Android开发之--读取文件夹下图片生成略缩图并点击显示大图
- http://zdcm.net非主流
- 数据库的用户帐号管理基础知识
- CSS制作11种风格不同的特效文字
- 读写CMOS内存
- 远程无线攻克你的系统--Intel无线网卡的漏洞
- Asp显示某文件夹下图片的程序
- CSS中的滑动门技术研究
- MySQL数据库初学者的使用指南
- 不错的育儿网站
- Project JEDI VCL组件编码标准
- 通用Inline Hook代码
- 极限编程
- 用CSS定义标题的几个实例
- 从MySQL得到最大的优化性能