魔方吧·中文魔方俱乐部

标题: 百慕大死三角 [打印本页]

作者: ddkddk 时间: 2011-4-26 22:20:45 标题: 百慕大死三角

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

附件: 1551502131-0.jpg (2011-4-26 22:20:45, 161.93 KB) / 下载次数 30
http://bbs.mf8-china.com/forum.php?mod=attachment&aid=MTQxMDYyfDgyOTc4NGEwfDE3MTU4Mjg3ODh8MHww

作者: ↖槑↗玖連環 时间: 2011-4-26 22:53:31 标题: 回复 1# 的帖子

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

附件: 百慕大死三角-拓扑.JPG (2011-4-26 22:53:31, 93.45 KB) / 下载次数 27
http://bbs.mf8-china.com/forum.php?mod=attachment&aid=MTQxMDY2fGY1YTA5YjI2fDE3MTU4Mjg3ODh8MHww

作者: ↖槑↗玖連環 时间: 2011-4-26 22:58:18 标题: 回复 1# 的帖子

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

作者: lizaiying 时间: 2011-4-26 22:58:57

作者: 忧天杞人 时间: 2011-4-27 05:03:32 标题: 回复 3# 的帖子

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

作者: ↖槑↗玖連環 时间: 2011-4-27 06:24:52 标题: 回复 5# 的帖子

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

作者: 华容道 时间: 2011-4-27 09:02:40 标题: 回复 6# 的帖子

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

作者: ddkddk 时间: 2011-4-27 10:56:01 标题: 回复 6# 的帖子

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

作者: ddkddk 时间: 2011-4-27 10:57:07 标题: 回复 5# 的帖子

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

作者: ddkddk 时间: 2011-4-27 11:23:39 标题: 回复 6# 的帖子

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

源代码如下：

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=图片地址

作者: 忧天杞人 时间: 2011-4-27 12:13:32 标题: 回复 6# 的帖子

为什么不在“编辑个人资料”选择本地上传呢

作者: ↖槑↗玖連環 时间: 2011-4-27 17:47:20 标题: 回复 10# 的帖子回复 11# 的帖子

DDK是师傅的方法太深奥了，看不懂。
我去那个帖子传了个照片不知管用不管用。
杞人师傅说的本地上传，我确实是一直没找到。郁闷。

终于弄好了，原帖说的要加后缀.jpg，没注意到。

[ 本帖最后由 ↖槑↗玖連環于 2011-4-27 18:59 编辑 ]

作者: 华容道 时间: 2011-4-27 20:28:42 标题: 回复 11# 的帖子

貌似达到红魔才能有“本地上传”的权限。

欢迎光临魔方吧·中文魔方俱乐部 (http://bbs.mf8-china.com/)