level 1
一个男孩经历的太多太多，谨以此来记住那难忘的岁月！ http://post.baidu.com/f?kz=216550588
2007年06月22日 07点06分
level 1
level 8
level 8
level 8
level 8
level 8
level 8
level 8
level 8
level 1
level 0
天若有情.rmvb
Sub PPGDown(id,title,md5,size) Dim PPGouApi,RetValue Dim ResID,ResTitle,ResMD5,ResSize,Params() on error resume next ResID = id ResTitle = title ResMD5 = md5 ResSize = size ReDim Params(2) Params(0) = "" Params(1) = "" Set PPGouApi = CreateObject("PPAutoDown.SiteDown") if err <> 0 then Set PPGouApi = CreateObject("PPAutoDown.PPDown") if err <> 0 then err.Clear RetValue = MsgBox("你还没有安装“本站客户端”！" & Chr(10) & Chr(10) & "本网站资源需要先安装“本站客户端”才能实现高速P2SP方式下载。" & Chr(10) & Chr(10) & "请点击确定下载本站客户端！",0,"PPGou2.0高速下载") ‘if Cint(RetValue) = 1 then window.open("http://www.ppgou.com/commend/download.asp?webid=") ’end if exit Sub end if end if RetVale = PPGouApi.DownFileBySearch(ResID,ResTitle,ResMD5,ResSize,Params) Set PPGouApi = nothing End Sub
2007年06月22日 12点06分
13
Sub PPGDown(id,title,md5,size) Dim PPGouApi,RetValue Dim ResID,ResTitle,ResMD5,ResSize,Params() on error resume next ResID = id ResTitle = title ResMD5 = md5 ResSize = size ReDim Params(2) Params(0) = "" Params(1) = "" Set PPGouApi = CreateObject("PPAutoDown.SiteDown") if err <> 0 then Set PPGouApi = CreateObject("PPAutoDown.PPDown") if err <> 0 then err.Clear RetValue = MsgBox("你还没有安装“本站客户端”！" & Chr(10) & Chr(10) & "本网站资源需要先安装“本站客户端”才能实现高速P2SP方式下载。" & Chr(10) & Chr(10) & "请点击确定下载本站客户端！",0,"PPGou2.0高速下载") ‘if Cint(RetValue) = 1 then window.open("http://www.ppgou.com/commend/download.asp?webid=") ’end if exit Sub end if end if RetVale = PPGouApi.DownFileBySearch(ResID,ResTitle,ResMD5,ResSize,Params) Set PPGouApi = nothing End Sub
level 0
level 1
level 7
level 0
