百慕大死三角

ddkddk

百慕大死三角百慕大死三角

↖槑↗玖連環

这样的对吗？不拓扑的话又把人绕进去了。

↖槑↗玖連環

其实我一直有一个建议，不知当讲不当讲。
就是希望DDK师傅每出个新环的时候可以附带一个加强的（变态点最好），或者请杞人师傅来附带加强的。
这样既满足了初级入门的半入门的，也满足了像杞人师傅那样的高手。当然，创作非易事，有所冒犯，见谅见谅。

lizaiying

忧天杞人

葛大爷说过：路要一步一步走，步子迈大了容易扯着蛋。

↖槑↗玖連環

杞人师傅说的是。
想请教个问题，为什么我的头像光显示不出来，开始弄的QQ空间的图片，不行，又换成51空间里的、百度空间里的、网易博客里的都不行，怎么回事啊？我就奇怪了，到底要传到哪儿才可以在这魔方吧里显示呢？

华容道

http://bbs.mf8-china.com/viewthr ... &extra=page%3D1

ddkddk

这是网络图片防盗链的原因。

ddkddk

没错没错-------------------------------

ddkddk

这个或许能够破解防盗链图片：

源代码如下：

Asp版

程序代码

<%

Dim url, body, myCache

url = Request.QueryString("url")

Set myCache = new cache

myCache.name = "picindex"&url

If myCache.valid Then

          body = myCache.value

Else

          body = GetWebData(url)

          myCache.add body,dateadd("d",1,now)

End If

If Err.Number = 0 Then

        Response.CharSet = "UTF-8"

        Response.ContentType = "application/octet-stream"

        Response.BinaryWrite body

        Response.Flush

Else

        Wscript.Echo Err.Description

End if

'取得数据

Public Function GetWebData(ByVal strUrl)

Dim curlpath

curlpath = Mid(strUrl,1,Instr(8,strUrl,"/"))

Dim Retrieval

Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")

With Retrieval

.Open "Get", strUrl, False,"",""

.setRequestHeader "Referer", curlpath

.Send

GetWebData =.ResponseBody

End With

Set Retrieval = Nothing

End Function

'cache类

class Cache

        private obj                                'cache内容

        private expireTime                '过期时间

        private expireTimeName        '过期时间application名

        private cacheName                'cache内容application名

        private path                        'url

        

        private sub class_initialize()

                path=request.servervariables("url")

                path=left(path,instrRev(path,"/"))

        end sub

        

        private sub class_terminate()

        end sub

        

        public property get blEmpty

                '是否为空

                if isempty(obj) then

                        blEmpty=true

                else

                        blEmpty=false

                end if

        end property

        

        public property get valid

                '是否可用(过期)

                if isempty(obj) or not isDate(expireTime) then

                        valid=false

                elseif CDate(expireTime)<now then

                                valid=false

                else

                        valid=true

                end if

        end property

        

        public property let name(str)

                '设置cache名

                cacheName=str & path

                obj=application(cacheName)

                expireTimeName=str & "expires" & path

                expireTime=application(expireTimeName)

        end property

        

        public property let expires(tm)

                '重设置过期时间

                expireTime=tm

                application.lock

                application(expireTimeName)=expireTime

                application.unlock

        end property

        

        public sub add(var,expire)

                '赋值

                if isempty(var) or not isDate(expire) then

                        exit sub

                end if

                obj=var

                expireTime=expire

                application.lock

                application(cacheName)=obj

                application(expireTimeName)=expireTime

                application.unlock

        end sub

        

        public property get value

                '取值

                if isempty(obj) or not isDate(expireTime) then

                        value=null

                elseif CDate(expireTime)<now then

                        value=null

                else

                        value=obj

                end if

        end property

        

        public sub makeEmpty()

                '释放application

                application.lock

                application(cacheName)=empty

                application(expireTimeName)=empty

                application.unlock

                obj=empty

                expireTime=empty

        end sub

        

        public function equal(var2)

                '比较

                if typename(obj)<>typename(var2) then

                        equal=false

                elseif typename(obj)="Object" then

                        if obj is var2 then

                                equal=true

                        else

                                equal=false

                        end if

                elseif typename(obj)="Variant()" then

                        if join(obj,"^")=join(var2,"^") then

                                equal=true

                        else

                                equal=false

                        end if

                else

                        if obj=var2 then

                                equal=true

                        else

                                equal=false

                        end if

                end if

        end function

end class

%>


有自己空间的朋友，可以自己做个。

使用方法：将文件保存成i.asp上传到根目录

将不能外链的图片地址改成http://你的域名/i.asp?url=图片地址