用了一下午做了个Flash图库.用表格做的.方法如下.

演示:http://3dmax9.com/v3/
另一个风格演示:http://3dmax9.com/zhangv1/5g/index.htm

利用表格加FlashPicViewer 做成了与首页风格一致.
所有资源调用163相册图片.给站长朋友们开点思路.
      
      声明:本人老菜.该文非教程.个人建站体会交流.望高手指正.

      难易程度:---[略有难度].需会运用Dreamweaver MX 2004 等软件.或懂些网页知识.

      该站优点:节剩大量图片占用的空间.纯调用资源.[如不调用也可用ftp直接上传到空间对应的文件夹.自动生成.免去一张张上传之苦].

      适合对象:图片站.资源站.艺术展示.专业摄影.及设计类网站图库.

方法:1/在根目录下建一文件夹.保证能访问到.将FlashPicViewer文件全部上传.
       2/网易163相册防盗链破解程序(ASP版)--------->

1. http://3dmax9.com/v3/showpic.asp?url=http://img190.photo.163.com/cnparis_008/17601031/528527127.jpg
   
2. 
   
3. 在所有的163相册的图片前面加上上面的URL即可实现照片外部调用。
   
4. 下面是程序的ASP代码
   
5. 
   
6. 
   
7. <%
   
8. '盗链判断
   
9. 'If Instr(Request.ServerVariables("http_referer"),"http://"&Request.ServerVariables("server_name")&"") = 0 Then
   
10. 'Response.Write "非法链接"
    
11. 'Response.End
    
12. 'End If
    
13. 
    
14. Dim url, body, myCache
    
15. 
    
16. url = Request.QueryString("url")
    
17. 
    
18.   Set myCache = new cache
    
19.   myCache.name = "picindex"&url
    
20.   If myCache.valid Then
    
21.          body = myCache.value
    
22.   Else
    
23.          body = GetWebData(url)
    
24.          myCache.add body,dateadd("d",1,now)
    
25.   End If
    
26. 
    
27.   If Err.Number = 0 Then
    
28.        Response.CharSet = "UTF-8"
    
29.        Response.ContentType = "application/octet-stream"
    
30.        Response.BinaryWrite body
    
31.        Response.Flush
    
32.   Else
    
33.        Wscript.Echo Err.Description
    
34.   End if
    
35. 
    
36. '取得数据
    
37. Public Function GetWebData(ByVal strUrl)
    
38. Dim curlpath
    
39. curlpath = Mid(strUrl,1,Instr(8,strUrl,"/"))
    
40. Dim Retrieval
    
41. Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
    
42. With Retrieval
    
43. .Open "Get", strUrl, False,"",""
    
44. .setRequestHeader "Referer", curlpath
    
45. .Send
    
46. GetWebData =.ResponseBody
    
47. End With
    
48. Set Retrieval = Nothing
    
49. End Function
    
50. 
    
51. 
    
52. 'cache类
    
53. 
    
54. class Cache
    
55.        private obj                                'cache内容
    
56.        private expireTime                '过期时间
    
57.        private expireTimeName        '过期时间application名
    
58.        private cacheName                'cache内容application名
    
59.        private path                        'url
    
60.       
    
61.        private sub class_initialize()
    
62.                path=request.servervariables("url")
    
63.                path=left(path,instrRev(path,"/"))
    
64.        end sub
    
65.       
    
66.        private sub class_terminate()
    
67.        end sub
    
68.       
    
69.        public property get blEmpty
    
70.                '是否为空
    
71.                if isempty(obj) then
    
72.                        blEmpty=true
    
73.                else
    
74.                        blEmpty=false
    
75.                end if
    
76.        end property
    
77.       
    
78.        public property get valid
    
79.                '是否可用(过期)
    
80.                if isempty(obj) or not isDate(expireTime) then
    
81.                        valid=false
    
82.                elseif CDate(expireTime)<now then
    
83.                                valid=false
    
84.                else
    
85.                        valid=true
    
86.                end if
    
87.        end property
    
88.       
    
89.        public property let name(str)
    
90.                '设置cache名
    
91.                cacheName=str & path
    
92.                obj=application(cacheName)
    
93.                expireTimeName=str & "expires" & path
    
94.                expireTime=application(expireTimeName)
    
95.        end property
    
96.       
    
97.        public property let expires(tm)
    
98.                '重设置过期时间
    
99.                expireTime=tm
    
100.                application.lock
     
101.                application(expireTimeName)=expireTime
     
102.                application.unlock
     
103.        end property
     
104.       
     
105.        public sub add(var,expire)
     
106.                '赋值
     
107.                if isempty(var) or not isDate(expire) then
     
108.                        exit sub
     
109.                end if
     
110.                obj=var
     
111.                expireTime=expire
     
112.                application.lock
     
113.                application(cacheName)=obj
     
114.                application(expireTimeName)=expireTime
     
115.                application.unlock
     
116.        end sub
     
117.       
     
118.        public property get value
     
119.                '取值
     
120.                if isempty(obj) or not isDate(expireTime) then
     
121.                        value=null
     
122.                elseif CDate(expireTime)<now then
     
123.                        value=null
     
124.                else
     
125.                        value=obj
     
126.                end if
     
127.        end property
     
128.       
     
129.        public sub makeEmpty()
     
130.                '释放application
     
131.                application.lock
     
132.                application(cacheName)=empty
     
133.                application(expireTimeName)=empty
     
134.                application.unlock
     
135.                obj=empty
     
136.                expireTime=empty
     
137.        end sub
     
138.       
     
139.        public function equal(var2)
     
140.                '比较
     
141.                if typename(obj)<>typename(var2) then
     
142.                        equal=false
     
143.                elseif typename(obj)="Object" then
     
144.                        if obj is var2 then
     
145.                                equal=true
     
146.                        else
     
147.                                equal=false
     
148.                        end if
     
149.                elseif typename(obj)="Variant()" then
     
150.                        if join(obj,"^")=join(var2,"^") then
     
151.                                equal=true
     
152.                        else
     
153.                                equal=false
     
154.                        end if
     
155.                else
     
156.                        if obj=var2 then
     
157.                                equal=true
     
158.                        else
     
159.                                equal=false
     
160.                        end if
     
161.                end if
     
162.        end function
     
163. end class
     
164. %>
     
165. 
     
166. 
     
167. 将上面的文件另存为 showpic.asp,调用图片的时候以
     
168. http://3dmax9.com/v3/showpic.asp?url=http://img190.photo.163.com/cnparis_008/17601031/528527127.jpg  格式调用。showpic.asp的文件名可以任意更改，调用的时候注意不要用错名字就是了。
     

复制代码

补上:
           网易163相册防盗链破解程序(php版)--------->  

1. <?php
   
2. ob_start();
   
3. $img=$_GET['url'];
   
4. 
   
5. $host=$path=str_replace('http://','',$img);
   
6. $host=explode('/',$host);
   
7. $host=$host[0];
   
8. $path=strstr($path,'/');
   
9. $fp = fsockopen($host, 80, $errno, $errstr, 30);
   
10. if ($fp)
    
11. {
    
12. @fputs($fp, "GET $path HTTP/1.1\r\n");
    
13. @fputs($fp, "Host: $host\r\n");
    
14. @fputs($fp, "Accept: */*\r\n");
    
15. @fputs($fp, "Referer: http://$host/\r\n");
    
16. @fputs($fp, "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)\r\n");
    
17. @fputs($fp, "Connection: Close\r\n\r\n");
    
18. }
    
19. 
    
20. $Content = '';
    
21. while ($str = fread($fp, 4096))
    
22. $Content .= $str;
    
23. @fclose($fp);
    
24. $pos=strpos($Content,"\r\n\r\n");
    
25. $head=substr($Content,0,$pos);
    
26. $text=substr($Content,$pos+4);
    
27. header($head);
    
28. echo $text;
    
29. ?>

复制代码

       3/注册163相册.上传图片或随意调用其它相册内容.
       4/按FlashPicViewer程序说明操作.进入调用--成功.
       5/用Dreamweaver MX 2004 等软件进行模版制做风格.留出显示Flash位置.
       6/将FlashPicViewer--------index页文件代码打开.截取

1. <object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,0,0" width="970" height="580" align="middle">
   
2.       <param name="allowScriptAccess" value="sameDomain" />
   
3.       <param name="movie" value="FPV v3.swf?a=http://yellow.163.com/yellow.jpg&.swf" />
   
4.       <param name="quality" value="high" />
   
5.       <param name="bgcolor" value="#666666" />
   
6.       <embed src="FPV v3.swf?a=http://yellow.163.com/yellow.jpg&.swf" quality="high" bgcolor="#666666" width="970" height="580" align="middle" allowscriptaccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />   
   
7. </object>

复制代码

字段放入预留位置.
保存刷新.
    7/FlashPicViewer v3.5 免费版下载:http://fpv.cn/index.html
    8/ 基本功能介绍

1.强大的Skin,可自定义前台内任何元件样式位置和效果.
2.支持外域图片,例如网易相册,56相册等.(网易相册附有读取工具)
3.对图片进行评论.
4.图片标题介绍等信息.
5.缩放,旋转,翻转等图片操作
6.支持幻灯片,有溶解,百叶窗等多种效果.
7.自动读取某个目录下所有图片,无需手动添加.
8.自动生成缩略图.
9.支持中文目录名,列表名,文件名.
10.支持扩展插件,可自己添加功能扩展.
11.对分类增加密码,可自定义密码提示.
12.对单个图片增加密码,可自定义密码提示问题.
13.全屏模式
14.单张图片调用
15.图片自定义扩展信息显示
16.漫画模式(适合浏览扫描漫画书)
17.可选类似windows文件夹的分类浏览方式
18.可针对文件下载,浏览图片时下载某个文件而不是图片.
19.后台图形化列表管理,可视化编辑图片列表.
20.支持分类直接调用 例如 index.asp?f=美女
21.对分类的浏览数统计
22.对单个图片的浏览数统计
23.图片属性扩展(例如添加“摄影师:阿黄”)
24.无限级分类.
还有更多,不一一列出...
.......
    9/最后将该链接链接到你的 SupeSite 5.0 首页导航栏上.[随意].

[ 本帖最后由 zhanglei700 于 2006-10-14 19:17 编辑 ]

是否写的太乱.我看大家都对此无兴趣.还是.........

值得学习!支持一下!

不错，支持

会不会使速度变慢

原帖由 bigrat 于 2006-9-24 05:06 发表
会不会使速度变慢

163相册2000M带宽.快慢决定于你空间速度.

呵，俺也有，不过是用来调用论坛的附件图片的

http://xvsky.com/bbs/tk.asp

漂亮！支持一下！！:)

有没ＰＨＰ的？