基本信息
源码名称:asp 图片相册 示例源码下载(Gallery)
源码大小:0.01M
文件格式:.rar
开发语言:Java
更新时间:2016-11-29
   友情提示:(无需注册或充值,赞助后即可获取资源下载链接)

     嘿,亲!知识可是无价之宝呢,但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下,绝对物超所值哦!如有下载和支付问题,请联系我们QQ(微信同号):813200300

本次赞助数额为: 2 元 
   源码介绍

nowa simple gallery是一个不带数据库的利用fso组件读取指定类型图片并分页显示的程序。
本来打算过段时间支持缓存和缩略图了再发的,不过应一些朋友的要求先发布了吧。

1、支持换肤
2、可指定显示的图片类型
3、一个文件夹就相当于一个分类
4、所有管理可以通过FTP进行
5、可在config.set里配置参数


安装方法:
--------------
1、复制所有文件到网站目录下即可
2、打开config.set文件
a、第一行是网站名称
b、第二行是一页显示的图片列数
c、第三行是一页显示的行数
d、第四行是设置网站主目录(也是网站一打开时显示的图片所在的目录)
3、把图片文件或者文件夹上传到您设置的网站主目录里去
3、Enjoy!


Feature
-------------------------------
1、支持缓存
2、支持缩略图
3、后台批量上传
4、支持评论


程序文件
-------------------------------
根目录下共有6个文件夹
root
  |
  |----Cache    //缓存存放目录(暂未使用)
  |----Gallery    //图片放置的目录(可修改,对应于config.set里的主目录设置)
  |----Lib          //程序公共文件
  |----Skin         //模板
  |----Small        //缩略图存放目录(暂未使用)

<!--#include file = "Lib/Global.asp"-->
<%
Dim nnf,Skin,s0

'// 实例化类
Set nnf = New SiteBase
nnf.Init									'// 初始化
nnf.Skin = "default"							'// 使用的皮肤
Skin = "Skin/" & nnf.SkinDir					'// 皮肤路径
nnf.MainTpl = Skin & "/Main.htm"				'// 主模板路径
nnf.FolderTrTpl = Skin & "/Folder_Tr.htm"		'// 文件夹项目模板
nnf.FolderTdTpl = Skin & "/Folder_Td.htm"		'// 文件夹项目模板
nnf.FileTrTpl = Skin & "/Folder_Tr.htm"			'// 文件项目模板
nnf.FileTdTpl = Skin & "/File_Td.htm"			'// 文件项目模板
nnf.PageTpl = Skin & "/PageSplit.htm"			'// 分页模板

'// 图片主目录初始化,图片文件类型设置,分页初始化
nnf.Album = nnf.iif(Request("album") = "","Gallery",Request("album"))
nnf.SetType = "jpg|gif|png|jpeg|bmp"
nnf.Page = nnf.iif(Request("Page") = "",1,nnf.iif(IsNumeric(Request("Page")),Request("Page"),1))

'// 页面逻辑
Select Case Request("o")
	Case "View"
		Response.Redirect(nnf.nowAlbum & "/" & Request("file"))
	Case Else
		s0 = nnf.Create_Table(nnf.dir_Get_Contents(Server.MapPath(nnf.nowAlbum)))
End Select

'// 替换模板卷标
s0 = Replace(s0,"{$SkinDir}",Skin)
s0 = Replace(s0,"{$GalleryTitle}",nnf.GalleryTitle)
s0 = Replace(s0,"{$AlbumNav}",nnf.get_AlbumNav)
s0 = Replace(s0,"{$gaStart}",nnf.sInitialPath)
s0 = Replace(s0,"{$Album}",Request("album"))
Response.Write s0

'// 销毁类
Set nnf  =  Nothing
%>